Magnanimous numbers: Difference between revisions
m
→{{header|Factor}}: minor style tweak
(→{{header|Factor}}: replace with simpler, faster version) |
m (→{{header|Factor}}: minor style tweak) |
||
Line 184:
: magnanimous? ( n -- ? )
dup 10 < [ drop t ] [
dup log10 >integer [1,b] [ 10^ /mod + prime? not ] with
find nip
] if ;
| |||