feat(tests): adding Rosetta Code solutions

Author: SuperFola

tests/unittests/resources/RosettaSuite/compound_data_type.ark

@@ -0,0 +1,11 @@
+(let point (fun (x y)
+  (fun (&x &y) ())))
+
+(let point1 (point 3 5))
+(let point2 (point 2.7 -3.8))
+
+(assert
+  (and
+    (!= point1.x point2.x)
+    (!= point1.y point2.y))
+  "point1 and point2 are different")

tests/unittests/resources/RosettaSuite/currying.ark

@@ -0,0 +1,7 @@
+(let addN (fun (n)
+  (fun (x &n)
+    (+ x n))))
+
+(let add2 (addN 2))
+(assert (= "Closure" (type add2)) "add2 is a closure")
+(assert (= 7 (add2 5)) "add2 5 is 7")

tests/unittests/resources/RosettaSuite/extend_your_language.ark

@@ -0,0 +1,34 @@
+($ if2 (conds bothConditionsAreTrue firstConditionIsTrue secondConditionIsTrue noConditionIsTrue) {
+  (mut result1 (head conds))
+  (mut result2 (@ conds 1))
+  (if (and result1 result2)
+    bothConditionsAreTrue
+    (if result1
+      firstConditionIsTrue
+      (if result2
+        secondConditionIsTrue
+        noConditionIsTrue)))})
+
+(if2 (true true)
+  (assert true "if2 true true")
+  (assert false "if2 true false")
+  (assert false "if2 false true")
+  (assert false "if2 false false"))
+
+(if2 (true false)
+  (assert false "if2 true true")
+  (assert true "if2 true false")
+  (assert false "if2 false true")
+  (assert false "if2 false false"))
+
+(if2 (false true)
+  (assert false "if2 true true")
+  (assert false "if2 true false")
+  (assert true "if2 false true")
+  (assert false "if2 false false"))
+
+(if2 (false false)
+  (assert false "if2 true true")
+  (assert false "if2 true false")
+  (assert false "if2 false true")
+  (assert true "if2 false false"))

tests/unittests/resources/RosettaSuite/string_matching.ark

@@ -0,0 +1,6 @@
+(assert (= 0 (string:find "abcd" "ab")) "abcd starts with ab")
+(assert (= 6 (string:find "hello world" "world")) "world is located at 6")
+(assert (= -1 (string:find "abcd" "zn")) "abcd does not contain zn")
+(assert (= -1 (string:find "abab" "bb")) "abab does not contain bb")
+(assert (= 0 (string:find "abab" "ab")) "abab contains ab")
+(assert (= 2 (string:find "abab" "ab" 1)) "starting lookup at index 1, we found ab at position 2")