8 lines
563 B
Plaintext
8 lines
563 B
Plaintext
0 C = 8: DIM S(16):B = 10: PRINT "THE FIRST "C" HAPPY NUMBERS": FOR R = C TO 0 STEP 0:N = H: GOSUB 1: PRINT MID$ (" " + STR$ (H),1 + (R = C),255 * I);:R = R - I:H = H + 1: NEXT R: END
|
|
1 S = 0: GOSUB 3:I = N = 1: IF NOT Q THEN RETURN
|
|
2 FOR Q = 1 TO 0 STEP 0:S(S) = N:S = S + 1: GOSUB 6:N = T: GOSUB 3: NEXT Q:I = N = 1: RETURN
|
|
3 Q = N > 1: IF NOT Q OR NOT S THEN RETURN
|
|
4 Q = 0: FOR I = 0 TO S - 1: IF N = S(I) THEN RETURN
|
|
5 NEXT I:Q = 1: RETURN
|
|
6 T = 0: FOR I = N TO 0 STEP 0:M = INT (I / B):T = INT (T + (I - M * B) ^ 2):I = M: NEXT I: RETURN
|