Data commit

Task/Anti-primes/Transd/anti-primes.transd

@@ -0,0 +1,19 @@
+#lang transd
+
+MainModule: {
+    countDivs: (λ n Int() ret_ Int()
+        (= ret_ 2)
+        (for i in Range(2 (to-Int (/ (to-Double n) 2) 1)) do
+            (if (not (mod n i)) (+= ret_ 1)))
+        (ret ret_)
+    ),
+
+    _start: (λ locals: max 0 tmp 0 N 1 i 2
+        (textout 1 " ")
+        (while (< N 20)
+            (= tmp (countDivs i))
+            (if (> tmp max)
+                (textout i " ") (= max tmp) (+= N 1))
+            (+= i 1)
+    ))
+}