Munchausen numbers: Difference between revisions
Content added Content deleted
m (→{{header|Factor}}: whitespace and style tweaks) |
|||
Line 716: | Line 716: | ||
dup 1 digit-groups dup [ ^ ] 2map sum = ; |
dup 1 digit-groups dup [ ^ ] 2map sum = ; |
||
5000 [1,b] [ munchausen? ] filter . |
5000 [1,b] [ munchausen? ] filter .</lang> |
||
MAIN: main</lang> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |