Narcissistic decimal number: Difference between revisions
Entry for BBC BASIC
(Entry for BBC BASIC) |
|||
Line 727:
=={{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}}===
{{trans|Go}}
| |||