Narcissistic decimal number: Difference between revisions
Content added Content deleted
(Entry for BBC BASIC) |
|||
Line 727: | Line 727: | ||
=={{header|BASIC}}== |
=={{header|BASIC}}== |
||
==={{header|BBC BASIC}}=== |
|||
{{works with|BBC BASIC for Windows}} |
|||
<syntaxhighlight lang="bbcbasic"> WHILE N% < 25 |
|||
L%=LENSTR$I% |
|||
M%=0 |
|||
J%=I% |
|||
WHILE J% |
|||
M%+=(J% MOD 10) ^ L% |
|||
J%/=10 |
|||
ENDWHILE |
|||
IF I% == M% N%+=1 : PRINT N%, I% |
|||
I%+=1 |
|||
ENDWHILE</syntaxhighlight> |
|||
==={{header|Chipmunk Basic}}=== |
==={{header|Chipmunk Basic}}=== |
||
{{trans|Go}} |
{{trans|Go}} |