Data update

Task/Recamans-sequence/Minimal-BASIC/recamans-sequence.basic

@@ -0,0 +1,30 @@
+10 DIM A(100)
+20 PRINT "FIRST 15 TERMS:"
+30 FOR N=0 TO 14
+40 GOSUB 170
+50 PRINT A(N);" ";
+60 NEXT N
+70 PRINT
+80 PRINT "FIRST REPEATED TERM:"
+90 GOSUB 170
+100 FOR M=0 TO N-1
+110 IF A(M)=A(N) THEN 150
+120 NEXT M
+130 LET N=N+1
+140 GOTO 90
+150 PRINT "A(";N;") = ";A(N)
+160 STOP
+170 IF N=0 THEN 280
+180 LET X = A(N-1)-N
+190 IF X<0 THEN 250
+200 FOR M=0 TO N-1
+210 IF A(M)=X THEN 250
+220 NEXT M
+230 LET A(N)=X
+240 RETURN
+250 LET A(N)=A(N-1)+N
+260 RETURN
+270 STOP
+280 LET A(0)=0
+290 RETURN
+300 END