Narcissistic decimal number: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Fix broken example) |
(Added Befunge example.) |
||
Line 508: | Line 508: | ||
0 1 2 3 4 5 6 7 8 9 153 370 371 407 1634 8208 9474 54748 92727 93084 548834 1741725 4210818 9800817 9926315 |
0 1 2 3 4 5 6 7 8 9 153 370 371 407 1634 8208 9474 54748 92727 93084 548834 1741725 4210818 9800817 9926315 |
||
</pre> |
</pre> |
||
=={{header|Befunge}}== |
|||
This can take several minutes to complete in most interpreters, so it's probably best to use a compiler if you want to see the full sequence. |
|||
<lang befunge>p55*\>:>:>:55+%\55+/00gvv_@ |
|||
>1>+>^v\_^#!:<p01p00:+1<>\> |
|||
>#-_>\>20p110g>\20g*\v>1-v| |
|||
^!p00:-1g00+$_^#!:<-1<^\.:<</lang> |
|||
{{out}} |
|||
<pre>0 1 2 3 4 5 6 7 8 9 153 370 371 407 1634 8208 9474 54748 92727 93084 548834 1741725 4210818 9800817 9926315</pre> |
|||
=={{header|C}}== |
=={{header|C}}== |