17 lines
379 B
Plaintext
17 lines
379 B
Plaintext
10 FOR i=1 TO 100
|
|
20 GO SUB 1000
|
|
30 IF isHappy=1 THEN PRINT i;" is a happy number"
|
|
40 NEXT i
|
|
50 STOP
|
|
1000 REM Is Happy?
|
|
1010 LET isHappy=0: LET count=0: LET num=i
|
|
1020 IF count=50 OR isHappy=1 THEN RETURN
|
|
1030 LET n$=STR$ (num)
|
|
1040 LET count=count+1
|
|
1050 LET isHappy=0
|
|
1060 FOR j=1 TO LEN n$
|
|
1070 LET isHappy=isHappy+VAL n$(j)^2
|
|
1080 NEXT j
|
|
1090 LET num=isHappy
|
|
1100 GO TO 1020
|