Data commit

Task/Prime-decomposition/Jq/prime-decomposition-1.jq

@@ -0,0 +1,14 @@
+def factors:
+  . as $in
+  | [2, $in, false]
+  | recurse(
+      . as [$p, $q, $valid, $s]
+      | if $q == 1        then empty
+        elif $q % $p == 0 then [$p, $q/$p, true]
+        elif $p == 2      then [3, $q, false, $s]
+        else ($s // ($q | sqrt)) as $s
+        | if $p + 2 <= $s then [$p + 2, $q, false, $s]
+          else [$q, 1, true]
+          end
+        end )
+   | if .[2] then .[0] else empty end ;

Task/Prime-decomposition/Jq/prime-decomposition-2.jq

@@ -0,0 +1,9 @@
+24 | factors
+#=> 2 2 2 3
+
+[9007199254740992 | factors] | length
+#=> 53
+
+# 2**29-1 is 536870911
+[ 536870911 | factors ]
+#=> [233,1103,2089]