Munchausen numbers: Difference between revisions
Added Quackery.
MaiconSoft (talk | contribs) m (Added Delphi reference to Pascal code) |
(Added Quackery.) |
||
Line 2,104:
main()</lang>
<pre>[1, 3435]</pre>
=={{header|Quackery}}==
<lang Quackery> [ dup 0 swap
[ dup 0 != while
10 /mod dup **
rot + swap again ]
drop = ] is munchausen ( n --> b )
5000 times
[ i^ 1+ munchausen if
[ i^ 1+ echo sp ] ]</lang>
{{out}}
<pre>1 3435 </pre>
=={{header|Racket}}==
| |||