chore: adding more real life arkscript examples, with ungolfed (and non-optimal) golf code solutions

Author: SuperFola

tests/unittests/Suites/UngolfedSuite.cpp

@@ -0,0 +1,37 @@
+#include <boost/ut.hpp>
+
+#include <filesystem>
+
+#include <Ark/Ark.hpp>
+#include <TestsHelper.hpp>
+
+using namespace boost;
+
+ut::suite<"Ungolfed"> ungolfed_suite = [] {
+    using namespace ut;
+
+    "[run arkscript ungolfed golf code solutions]"_test = [] {
+        iterTestFiles(
+            "UngolfedSuite",
+            [](TestData&& data) {
+                Ark::State state({ lib_path });
+
+                should("compile " + data.stem) = [&] {
+                    try
+                    {
+                        const bool ok = mut(state).doFile(data.path);
+                        expect(ok) << fatal << "compilation failed";
+                    }
+                    catch (const Ark::CodeError&)
+                    {
+                        expect(false) << fatal << "encountered an exception while compiling";
+                    }
+                };
+
+                Ark::VM vm(state);
+                should("run " + data.stem + " without errors (exit code 0)") = [&] {
+                    expect(mut(vm).run() == 0);
+                };
+            });
+    };
+};

tests/unittests/resources/UngolfedSuite/abundant_numbers.ark

@@ -0,0 +1,8 @@
+(import std.List)
+(import std.Math)
+
+(list:map
+  (list:iota 1 1000)
+  (fun (n)
+    (if (> (list:sum (pop (math:divs n) -1)) n)
+      n)))

tests/unittests/resources/UngolfedSuite/arithmetics_numbers.ark

@@ -0,0 +1,9 @@
+(import std.List)
+(import std.Math)
+
+(list:map
+  (list:iota 1 1000)
+  (fun (n) {
+    (let d (math:divs n))
+    (if (math:integer? (/ (list:sum d) (len d)))
+      n) }))

tests/unittests/resources/UngolfedSuite/christmas_trees.ark

@@ -0,0 +1,9 @@
+(import std.String)
+(import std.List)
+
+(list:map
+  (list:iota 3 7)
+  (fun (s) {
+    (let d (+ " {:^" (toString (- (* 2 s) 1)) "}"))
+    (list:map (list:iota 1 s) (fun (x) (print (format d (string:repeat "*" (- (* 2 x) 1))))))
+    (print (format d "*") "\n") }))

tests/unittests/resources/UngolfedSuite/diamonds.ark

@@ -0,0 +1,17 @@
+(import std.List)
+(import std.String)
+
+(list:map
+  (list:iota 1 9)
+  (fun (x) {
+    (list:map
+      (list:iota 1 (- (let m (* 2 x)) 1))
+      (fun (y)
+        ((fun (x) {
+          (let d (list:iota 1 x))
+          (let r (list:reverse (pop d -1)))
+          (print (format "{:>10}{}" (string:join d "") (string:join r ""))) })
+          (if (<= y x)
+            y
+            (- m y)))))
+    (print "") }))

tests/unittests/resources/UngolfedSuite/e.ark

@@ -0,0 +1,19 @@
+(import std.List)
+
+(mut N 1009)
+(mut a (concat [0] (list:fill N 1)))
+(mut x 0)
+
+(while (< 9 N) {
+  (mut n
+    (set N (- N 1)))
+
+  (while n {
+    (@= a n (mod x n))
+    (set x (+ (* (@ a (- n 1)) 10) (/ (- x (@ a n)) n)))
+    (set n (- n 1)) })
+
+  (puts
+    (if (= 17 x)
+      "2.7"
+      x)) })

tests/unittests/resources/UngolfedSuite/emirp.ark

@@ -0,0 +1,13 @@
+(import std.Prelude)
+
+(mut sols [])
+
+(let f (fun (n) {
+  (let x (toNumber (string:reverse (toString n))))
+  (if (and (math:prime? n) (math:prime? x))
+    (append! sols n))
+
+  (if (< n 1000)
+    (f (+ 1 n))) }))
+
+(f 1)

tests/unittests/resources/UngolfedSuite/multitap.ark

@@ -0,0 +1,28 @@
+(import std.List)
+(import std.String)
+
+(let l [0 3 6 9 12 15 19 22 -33 0])
+(let data [
+  "44466833 777 337777806667 33660 22266688 5553"
+  "58877778 0999933 777666087772444660666733 660 4884443 33 555 44466 33 0933"
+  "8870 6 6667777802555 5550333 339 022 88 80833555 5550 7777 4466688 555 3" ])
+
+(list:map
+  (list:map data (fun (s) (string:split s " ")))
+  (fun (e) {
+    (list:map
+      (list:flatMap
+        e
+        (fun ((mut p)) {
+          (mut o [])
+          (mut i 0)
+          (let l (len p))
+          (while (< i l) {
+            (append! o (list:takeWhile p (fun (c) (= c (head p)))))
+            (set p (list:drop p (len (@ o -1))))
+            (set i (+ (len (@ o -1)) i)) })
+          (if (= p [])
+            o
+            (append o p)) }))
+      (fun (p) (puts (string:chr (+ 64 (len p) (@ l (- (toNumber (head p)) 2)))))))
+    (print "") }))

tests/unittests/resources/UngolfedSuite/recaman.ark

@@ -0,0 +1,14 @@
+(import std.List)
+
+(mut nums [0])
+
+(list:map
+  (list:iota 0 250)
+  (fun (n) {
+    (let r (- (@ nums -1) n))
+    (append!
+      nums
+      (if (and (> r 0) (< (list:find nums r) 0))
+        r
+        (+ (@ nums -1) n)))
+    (@ nums -1) }))

tests/unittests/resources/UngolfedSuite/rot13.ark

@@ -0,0 +1,18 @@
+(import std.String)
+(import std.List)
+
+(let f (fun (c) {
+  (mut n (string:ord c))
+
+  (if (and (< 96 n) (< n 123))
+    (string:chr (+ (mod (- n 97 -13) 26) 97))
+    (if (and (< 64 n) (< n 91))
+      (string:chr (+ (mod (- n 65 -13) 26) 65))
+      c)) }))
+
+(let data [
+  "JhU |jIU_[$7DlFxP3[f@P$G3:+hb?*;}PN7k:SdksO0ts^tM"
+  "6^HMLB4*PvJ/&/daJ[6_$>T4| '<d8I0?BNvb!,eAaF3aT#)|OLBtx[Kg`ohK-]i$:;e7W9?j3U}cBE)ub36pQ/DV6=~h"
+  "r01vhc|3mead^=emB~Q OL' Lg~@'3H3A6eu9/7 rg-7}U Q':XLqQ+@EE:IeEUs 2.I&-co``#Sb:C0vTR<iH2S2WtpwR%o>Y" ])
+
+(list:map data (fun (a) (print (string:join (list:map a f) ""))))