Happy numbers: Difference between revisions
Content added Content deleted
(Happy numbers in BASIC256) |
(Applesoft BASIC) |
||
Line 744: | Line 744: | ||
<lang AppleScript>{1, 7, 10, 13, 19, 23, 28, 31}</lang> |
<lang AppleScript>{1, 7, 10, 13, 19, 23, 28, 31}</lang> |
||
=={{header|Applesoft BASIC}}== |
|||
<lang gwbasic> 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</lang> |
|||
{{out}} |
|||
<pre> |
|||
THE FIRST 8 HAPPY NUMBERS |
|||
1 7 10 13 19 23 28 31 |
|||
</pre> |
|||
=={{header|Arturo}}== |
=={{header|Arturo}}== |
||