Recaman's sequence: Difference between revisions

Content added Content deleted
(Add MAD)
m (→‎{{header|BASIC}}: syntax highlighting)
Line 445: Line 445:


=={{header|BASIC}}==
=={{header|BASIC}}==
<lang BASIC>10 DEFINT A-Z: DIM A(100)
<lang gwbasic>10 DEFINT A-Z: DIM A(100)
20 PRINT "First 15 terms:"
20 PRINT "First 15 terms:"
30 FOR N=0 TO 14: GOSUB 100: PRINT A(N);: NEXT
30 FOR N=0 TO 14: GOSUB 100: PRINT A(N);: NEXT