Data commit

Task/Unprimeable-numbers/Jq/unprimeable-numbers-1.jq

@@ -0,0 +1,3 @@
+def digits: tostring | explode | map([.] | implode | tonumber);
+
+def lpad($len): tostring | ($len - length) as $l | (" " * $l)[:$l] + .;

Task/Unprimeable-numbers/Jq/unprimeable-numbers-2.jq

@@ -0,0 +1,16 @@
+def variants:
+  digits
+  | range(0; length) as $pos
+  | range(0;10) as $newdigit
+  | if .[$pos] == $newdigit then empty
+    else .[$pos] = $newdigit
+    | join("")|tonumber
+    end;
+
+def is_unprimeable:
+  if is_prime or any(variants; is_prime) then false
+  else true
+  end;
+
+def unprimeables:
+  range(4; infinite) | select(is_unprimeable);

Task/Unprimeable-numbers/Jq/unprimeable-numbers-3.jq

@@ -0,0 +1,14 @@
+def task:
+  "First 35 unprimeables: ",
+  [limit(35; range(0;infinite) | select(is_unprimeable))],
+
+  "\nThe 600th unprimeable is \( nth(600 - 1; unprimeables) ).",
+
+  "\nDigit  First unprimeable ending with that digit",
+    "-----------------------------------------------",
+  (range(0;10) as $dig
+   | first( range(0;infinite) | select((. % 10 == $dig) and is_unprimeable))
+   | "  \($dig)  \(lpad(9))" )
+ ;
+
+task