feat(random): adding a new package 'Random', with random:choice

Author: SuperFola

Random.ark

@@ -0,0 +1,15 @@
+# @brief Select a random element from a list
+# @details If the list is empty, returns nil
+# @param _L list of elements
+# =begin
+# (import std.Random)
+# (print (random:choice [1 2 3]))
+# =end
+# @author https://github.com/SuperFola
+(let choice (fun (_L)
+  (if (empty? _L)
+    nil
+    (if (= 1 (len _L))
+      (head _L)
+      (@ _L (random 0 (- (len _L) 1)))))))
+

tests/all.ark

@@ -8,6 +8,7 @@
 (import list-tests)
 (import macros-tests)
 (import math-tests)
+(import random-tests)
 (import range-tests)
 (import string-tests)
 (import switch-tests)
@@ -26,6 +27,7 @@
     list-tests:list-output
     macros-tests:macros-output
     math-tests:math-output
+    random-tests:random-output
     range-tests:range-output
     string-tests:string-output
     switch-tests:switch-output

tests/random-tests.ark

@@ -0,0 +1,22 @@
+(import std.Random)
+(import std.Testing)
+
+(test:suite random {
+    (test:case "choice" {
+        (test:eq nil (random:choice []))
+        (test:eq nil (random:choice ""))
+        (test:eq 1 (random:choice [1]))
+        (test:eq "1" (random:choice "1"))
+
+        # have to repeat the test to be sure that we hit every index
+        (test:eq 1 (random:choice [1 1 1]))
+        (test:eq 1 (random:choice [1 1 1]))
+        (test:eq 1 (random:choice [1 1 1]))
+        (test:eq 1 (random:choice [1 1 1]))
+        (test:eq 1 (random:choice [1 1 1]))
+        (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")) })})
+