Data update

2023-10-02 18:11:16 -07:00 · 2023-10-02 18:11:16 -07:00 · 35bcdeebf8
commit 35bcdeebf8
parent 796d366b97
504 changed files with 7045 additions and 610 deletions
--- a/Task/100-doors/Informix-4GL/100-doors-1.4gl
+++ b/Task/100-doors/Informix-4GL/100-doors-1.4gl
--- a/Task/100-doors/Informix-4GL/100-doors-2.4gl
+++ b/Task/100-doors/Informix-4GL/100-doors-2.4gl
@ -0,0 +1,12 @@
+(var doors (times 100 false))
+
+(for i  (range 1 101)
+     i2 (range (dec i) 100 i)
+  (var! doors (set-at [i2] (! (i2 doors))))
+  (continue))
+
+(-> (xmap vec doors)
+    (filter 1)
+    (map (comp 0 inc))
+    (join ", ")
+   @(str "open doors: "))