Data commit

Task/Knuth-shuffle/Ol/knuth-shuffle-1.ol

@@ -0,0 +1,15 @@
+(define (shuffle tp)
+   (let ((items (vm:cast tp (type tp)))) ; make a copy
+      (for-each (lambda (i)
+            (let ((a (ref items i))
+                  (j (+ 1 (rand! i))))
+               (set-ref! items i (ref items j))
+               (set-ref! items j a)))
+         (reverse (iota (size items) 1)))
+      items))
+
+(define (list-shuffle tp)
+   (map (lambda (i)
+         (list-ref tp i))
+      (tuple->list
+         (shuffle (list->tuple (iota (length tp)))))))

Task/Knuth-shuffle/Ol/knuth-shuffle-2.ol

@@ -0,0 +1,7 @@
+(define items (tuple 1 2 3 4 5 6 7 8 9))
+(print "tuple before: " items)
+(print "tuple after: " (shuffle items))
+
+(define items (list 1 2 3 4 5 6 7 8 9))
+(print "list before: " items)
+(print "list after: " (list-shuffle items))