Magnanimous numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,780: / Line 2,780: @@
 <code>isprime</code> is defined at [[Primality by trial division#Quackery]].
-<syntaxhighlight lang="Quackery">  [ [] swap
+<syntaxhighlight lang="Quackery">  [ 10
-    [ 10 /mod
+    [ 2dup /mod
-      rot join swap
+      over 0 = iff
-      dup 0 = until ]
+        [ 2drop true ]
+        done
-    drop ]               is ->digits    ( n --> [ )
+      + isprime not iff
-  [ 0 swap witheach
+        false done
-      [ swap 10 * + ] ]  is digits->    ( [ --> n )
+* again ]
+    unrot 2drop ]       is magnanimous ( n --> b )
-  [ ->digits
-    true
-    over size 1 - times
-      [ over i 1+ split
-        digits->
-        swap digits->
-        + isprime not if
-          [ not
-            conclude ] ]
-    nip ]                is magnanimous ( n --> b )
   [] 0