Rosetta Code

Magnanimous numbers: Difference between revisions

Page Discussion

Magnanimous numbers (view source)

Revision as of 23:40, 24 August 2023

230 bytes removed ,  9 months ago
→‎{{header|Quackery}}: simplified
Line 2,780:
<code>isprime</code> is defined at [[Primality by trial division#Quackery]].
 
<syntaxhighlight lang="Quackery"> [ [] swap10
[ 102dup /mod
rotover join0 swap= iff
dup 0 =[ until2drop true ]
[ notdone▼
drop ] is ->digits ( n --> [ )▼
+ isprime not ififf▼
 
[ 0 swap witheach false done
[ swap 10 * +again ] ] is digits-> ( [ --> n )
▲ dropunrot 2drop ] is ->digits 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
GordonCharlton
1,462

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/354120"