Générateur de l' exemple 1 - 1

<<Combinatorica`

RandomPermutation[Join[
Table[1,{201}],
Table[2,{238}],
Table[3,{137}],
Table[4,{142}],
Table[5,{55}],
Table[6,{15}],
Table[7,{4}],
Table[8,{2}]
]]