Munchausen numbers: Difference between revisions
Add min
PatGarrett (talk | contribs) (→{{header|TI-83 BASIC}}: Section added) |
(Add min) |
||
Line 1,199:
{{out}}
<pre>{1,3435}</pre>
=={{header|min}}==
{{works with|min|0.19.3}}
<lang min>(dup string "" split (int dup pow) (+) map-reduce ==) :munchausen?
1 :i
(i 5000 <=) ((i munchausen?) (i puts!) when i succ @i) while</lang>
{{out}}
<pre>
1
3435
</pre>
=={{header|Modula-2}}==
| |||