Munchausen numbers: Difference between revisions
m
→{{header|Factor}}: whitespace and style tweaks
Langurmonkey (talk | contribs) |
m (→{{header|Factor}}: whitespace and style tweaks) |
||
Line 710:
=={{header|Factor}}==
<lang factor>USING: kernel math.functions math.ranges math.text.utils▼
▲USING: kernel math.functions math.ranges math.text.utils
prettyprint sequences ;
: munchausen? ( n -- ? )
dup 1 digit-groups dup [ ^ ] 2map sum = ;
MAIN: main</lang>
{{out}}
<pre>
| |||