Data commit

Task/Hailstone-sequence/Applesoft-BASIC/hailstone-sequence.basic

@@ -0,0 +1,32 @@
+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