Magnanimous numbers: Difference between revisions

=={{header|Quackery}}==

<syntaxhighlight lang="Quackery"> [ [] swap

[ 10 /mod

rot join swap

dup 0 = until ]

drop ] is ->digits ( n --> [ )

[ 0 swap witheach

[ swap 10 * + ] ] is digits-> ( [ --> n )

[ ->digits

true

over size 1 - times

[ over i 1+ split

digits->

swap digits->

+ isprime not if

[ not

conclude ] ]

nip ] is magnanimous ( n --> b )

[] 0

[ dup magnanimous

if [ tuck join swap ]

1+

over size 250 =

until ]

drop

say "First 45 magnanimous numbers:" cr

45 split swap echo cr cr

say "Magnanimous numbers 241-250:" cr

-10 split echo cr cr

drop</syntaxhighlight>

{{out}}

<pre>First 45 magnanimous numbers:

[ 0 1 2 3 4 5 6 7 8 9 11 12 14 16 20 21 23 25 29 30 32 34 38 41 43 47 49 50 52 56 58 61 65 67 70 74 76 83 85 89 92 94 98 101 110 ]

Magnanimous numbers 241-250:

[ 17992 19972 20209 20261 20861 22061 22201 22801 22885 24407 ]

</pre>