33 lines
981 B
Plaintext
33 lines
981 B
Plaintext
10 HOME
|
|
|
|
100 N = 27
|
|
110 GOSUB 400"HAILSTONE
|
|
120 DEF FN L(I) = E(I + 4 * (I < 0))
|
|
130IFL=112AND(S(0)=27ANDS(1)=82ANDS(2)=41ANDS(3)=124)AND(FNL(M-3)=8ANDFNL(M-2)=4ANDFNL(M-1)=2ANDFNL(M)=1)THENPRINT"THE HAILSTONE SEQUENCE FOR THE NUMBER 27 HAS 112 ELEMENTS STARTING WITH 27, 82, 41, 124 AND ENDING WITH 8, 4, 2, 1"
|
|
140 PRINT
|
|
150 V = PEEK(37) + 1
|
|
|
|
200 N = 1
|
|
210 GOSUB 400"HAILSTONE
|
|
220 MN = 1
|
|
230 ML = L
|
|
240 FOR I = 2 TO 99999
|
|
250 N = I
|
|
260 GOSUB 400"HAILSTONE
|
|
270 IFL>MLTHENMN=I:ML=L:VTABV:HTAB1:PRINT "THE NUMBER " MN " HAS A HAILSTONE SEQUENCE LENGTH OF "L" WHICH IS THE LONGEST HAILSTONE SEQUENCE OF NUMBERS LESS THAN ";:Y=PEEK(37)+1:X=PEEK(36)+1
|
|
280 IF Y THEN VTAB Y : HTAB X : PRINTI+1;
|
|
290 NEXT I
|
|
|
|
300 END
|
|
|
|
400 M = 0
|
|
410 FOR L = 1 TO 1E38
|
|
420 IF L < 5 THEN S(L-1) = N
|
|
430 M = (M + 1) * (M < 3)
|
|
440 E(M) = N
|
|
450 IF N = 1 THEN RETURN
|
|
460 EVEN = INT(N/2)=N/2
|
|
470 IF EVEN THEN N=N/2
|
|
480 IF NOT EVEN THEN N = (3 * N) + 1
|
|
490 NEXT L : STOP
|