19 lines
358 B
Plaintext
19 lines
358 B
Plaintext
REM Version 1: Brute force
|
|
|
|
T = TIMER
|
|
n1 = 0
|
|
FOR i = 1 TO 10000000
|
|
j = i
|
|
DO
|
|
k = 0
|
|
DO
|
|
k = INT(k + (j MOD 10) ^ 2)
|
|
j = INT(j / 10)
|
|
LOOP WHILE j <> 0
|
|
j = k
|
|
LOOP UNTIL j = 89 OR j = 1
|
|
IF j > 1 THEN n1 = n1 + 1
|
|
NEXT i
|
|
PRINT USING "Version 1: ####### in ##.### seconds."; n1; (TIMER - T)
|
|
END
|