aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/Recamans-sequence/EasyLang/recamans-sequence.easy
View file

@ -1,17 +1,15 @@
arrbase a[] 0
arrbase seen[] 0
len seen[] 100
#
a[] &= 0
seen[0] = 1
seen[1] = 1
i = 1
repeat
h = a[i - 1] - i
if h <= 0 or seen[h] = 1
h = a[i - 1] + i
h = a[i - 1 + 1] - i
if h <= 0 or seen[h + 1] = 1
h = a[i - 1 + 1] + i
.
until seen[h] = 1
seen[h] = 1
until seen[h + 1] = 1
seen[h + 1] = 1
a[] &= h
if i = 14
print a[]