Data commit

Task/Knuth-shuffle/ERRE/knuth-shuffle.erre

@@ -0,0 +1,19 @@
+PROGRAM KNUTH_SHUFFLE
+
+CONST CARDS%=52
+
+DIM PACK%[CARDS%]
+
+BEGIN
+   RANDOMIZE(TIMER)
+   FOR I%=1 TO CARDS% DO
+      PACK%[I%]=I%
+   END FOR
+   FOR N%=CARDS% TO 2 STEP -1 DO
+      SWAP(PACK%[N%],PACK%[1+INT(N%*RND(1))])
+   END FOR
+   FOR I%=1 TO CARDS% DO
+      PRINT(PACK%[I%];)
+   END FOR
+   PRINT
+END PROGRAM