20 lines
319 B
Text
20 lines
319 B
Text
FOR N = 1 TO 5E7
|
|
IF FNselfdescribing(N) PRINT N
|
|
NEXT
|
|
|
|
|
|
sub FNselfdescribing(N)
|
|
LOCAL D(9), I, L, O
|
|
|
|
O = N
|
|
L = INT(LOG(N, 10))
|
|
WHILE(N)
|
|
I = MOD(N, 10)
|
|
D(I) = D(I) + 10^(L-I)
|
|
N = INT(N / 10)
|
|
WEND
|
|
|
|
L = 0
|
|
FOR I = 0 TO 8 : L = L + D(I) : NEXT
|
|
RETURN O = L
|
|
END SUB
|