feat(random): adding random:shuffle

Author: SuperFola

Random.ark

@@ -13,3 +13,22 @@
       (head _L)
       (@ _L (random 0 (- (len _L) 1)))))))
 
+# @brief Shuffle a given list
+# @details The original list is not modified
+# @param _L list to shuffle
+# =begin
+# (import std.Random)
+# (let data [1 2 3 4 5])
+# (let randomized (random:shuffle data))
+# =end
+# @author https://github.com/SuperFola
+(let shuffle (fun (_L) {
+  (mut _output [])
+
+  (while (not (empty? _L)) {
+    (let _idx (random 0 (- (len _L) 1)))
+    (append! _output (@ _L _idx))
+    (pop! _L _idx) })
+
+  _output }))
+

tests/random-tests.ark

@@ -1,4 +1,5 @@
 (import std.Random)
+(import std.List :forEach :find)
 (import std.Testing)
 
 (test:suite random {
@@ -18,5 +19,18 @@
         (test:eq "1" (random:choice "111"))
         (test:eq "1" (random:choice "111"))
         (test:eq "1" (random:choice "111"))
-        (test:eq "1" (random:choice "111")) })})
+        (test:eq "1" (random:choice "111"))
+
+        (test:eq [] (random:shuffle []))
+        (test:eq [1] (random:shuffle [1]))
+
+        (let data [0 1 2 3 4 5 6 7 8 9])
+        (let randomized (random:shuffle data))
+        (test:eq (len data) (len randomized))
+
+        (forEach
+            randomized
+            (fun (e)
+                (test:expect (!= (list:find data e) -1))))
+        })})