Data commit

Task/Recamans-sequence/Ring/recamans-sequence.ring

@@ -0,0 +1,49 @@
+load "zerolib.ring"
+
+recaman = Z(0:50)
+duplicate = 0
+dup = []
+recDuplicate = []
+recnum = 0
+
+see "working..." + nl
+see "the first 15 Recaman's numbers are:" + nl
+
+for n = 1 to len(recaman) - 1
+    if n = 1
+       recaman[0] = 0
+       add(dup,0)
+       see "" + recaman[0] + " "
+    ok
+    recaman[n] = recaman[n-1] - n
+    if recaman[n] <= 0
+       recaman[n] = recaman[n-1] + n
+    ok
+    fnrec = find(dup,recaman[n])
+    if fnrec > 0
+       del(dup,fnrec)
+       recaman[n] = recaman[n-1] + n
+       add(dup,recaman[n])
+    else
+       add(dup,recaman[n])
+    ok
+    recnum = recnum + 1
+    if recnum < 15
+       see "" + recaman[n] + " "
+    ok
+    add(recDuplicate,recaman[n])
+next
+see nl
+
+see "the first duplicated term is a["
+for n = len(recDuplicate) to 2 step -1
+    for m = n-1 to 1 step -1
+        if recDuplicate[n] = recDuplicate[m]
+           duplicate = recDuplicate[n]
+           dupnr = n
+        ok
+    next
+next
+
+see "" + dupnr + "] = " + duplicate + nl
+see "done..." + nl