Data update

2023-10-02 18:11:16 -07:00 · 2023-10-02 18:11:16 -07:00 · 35bcdeebf8
commit 35bcdeebf8
parent 796d366b97
504 changed files with 7045 additions and 610 deletions
--- a/Task/Prime-decomposition/Quackery/prime-decomposition.quackery
+++ b/Task/Prime-decomposition/Quackery/prime-decomposition.quackery
@ -1,6 +1,10 @@
-  [ [] swap
+  [ dup prime iff
+      nested done
+    [] swap
    dup times
-    [ [ dup i^ 2 + /mod
+    [ i^ 2 + prime
+      not if done
+      [ dup i^ 2 + /mod
        0 = while
        nip dip
          [ i^ 2 + join ]
@ -8,5 +12,3 @@
      drop
      dup 1 = if conclude ]
    drop ]                  is primefactors ( n --> [ )
-
- 1047552 primefactors echo