Initial data commit

Task/Stern-Brocot-sequence/BASIC/stern-brocot-sequence.basic

@@ -0,0 +1,22 @@
+10 DEFINT A,B,I,J,S: DIM S(1200)
+20 S(1)=1: S(2)=1
+30 FOR I=2 TO 600
+40 S(I*2-1)=S(I)+S(I-1)
+50 S(I*2)=S(I)
+60 NEXT I
+70 PRINT "First 15 elements: ";
+80 FOR I=1 TO 15: PRINT USING"# ";S(I);: NEXT I
+85 PRINT
+90 FOR I=1 TO 10
+100 FOR J=1 TO 1200: IF S(J)<>I THEN NEXT J
+110 PRINT "First";I;"at";J
+120 NEXT I
+130 FOR J=1 TO 1200: IF S(J)<>100 THEN NEXT J
+140 PRINT "First 100 at";J
+150 FOR I=2 TO 1000
+160 A=S(I): B=S(I-1)
+170 J=A: A=B: B=J MOD A: IF B THEN 170
+180 IF A<>1 THEN PRINT "GCD <> 1 at ";I: STOP
+190 NEXT I
+200 PRINT "All GCDs are 1."
+210 END