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/Summarize-primes/Quackery/summarize-primes.quackery
+++ b/Task/Summarize-primes/Quackery/summarize-primes.quackery
@ -0,0 +1,18 @@
+  [ number$
+    space 6 of swap join
+    -7 split nip echo$ ]    is rjust   (   n -->   )
+
+  say "  index  prime    sum" cr
+  say "  -----  -----    ---" cr
+  [] 1000 times
+    [ i^ isprime if [ i^ join ] ]
+  0 swap
+  witheach
+    [ dup dip +
+      over isprime iff
+        [ i^ 1+ rjust
+          rjust
+          dup rjust
+          cr ]
+      else drop ]
+  drop