Data commit

Task/Knuth-shuffle/Icon/knuth-shuffle-1.icon

@@ -0,0 +1,14 @@
+procedure main()
+    show(shuffle([3,1,4,1,5,9,2,6,3]))
+    show(shuffle("this is a string"))
+end
+
+procedure shuffle(A)
+    every A[i := *A to 1 by -1] :=: A[?i]
+    return A
+end
+
+procedure show(A)
+    every writes(!A," ")
+    write()
+end

Task/Knuth-shuffle/Icon/knuth-shuffle-2.icon

@@ -0,0 +1,3 @@
+procedure shuffle(A)
+    every !A :=: ?A
+end