Data update

2023-09-16 17:28:03 -07:00 · 2023-09-16 17:28:03 -07:00 · 796d366b97
commit 796d366b97
parent 5af6d93694
455 changed files with 7413 additions and 1900 deletions
--- a/Task/Recamans-sequence/EasyLang/recamans-sequence.easy
+++ b/Task/Recamans-sequence/EasyLang/recamans-sequence.easy
@ -0,0 +1,21 @@
+arrbase a[] 0
+arrbase seen[] 0
+len seen[] 100
+#
+a[] &= 0
+seen[0] = 1
+i = 1
+repeat
+   h = a[i - 1] - i
+   if h <= 0 or seen[h] = 1
+      h = a[i - 1] + i
+   .
+   until seen[h] = 1
+   seen[h] = 1
+   a[] &= h
+   if i = 14
+      print a[]
+   .
+   i += 1
+.
+print h