Munchausen numbers: Difference between revisions
Content added Content deleted
MaiconSoft (talk | contribs) m (Added Delphi reference to Pascal code) |
(Added Quackery.) |
||
Line 2,104: | Line 2,104: | ||
main()</lang> |
main()</lang> |
||
<pre>[1, 3435]</pre> |
<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}}== |
=={{header|Racket}}== |