RosettaCodeData/Task/Knuth-shuffle/ALGOL-68/knuth-shuffle-2.alg
2013-04-10 14:16:51 -07:00

6 lines
91 B
Text

main:(
[20]INT a;
FOR i FROM 1 TO 20 DO a[i] := i OD;
knuth shuffle(a);
print(a)
)