RosettaCodeData/Task/Knuth-shuffle/ALGOL-68/knuth-shuffle-2.alg
2023-07-01 13:44:08 -04: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)
)