Data update

Task/100-doors/YAMLScript/100-doors.ys

@@ -3,14 +3,15 @@
 defn main():
   say: |-
     Open doors after 100 passes:
-    $(apply str interpose(', ' open-doors()))
+    $(open-doors().join(', '))
 
 defn open-doors():
-  for [[d n] map(vector doors() iterate(inc 1)) :when d]:
-    n
+  ? for [d n] map(vector doors() range().drop(1))
+        :when d
+  : n
 
 defn doors():
   reduce:
-    fn(doors idx): assoc(doors idx true)
+    fn(doors idx): doors.assoc(idx true)
     into []: repeat(100 false)
-    map \(dec (%1 * %1)): 1 .. 10
+    map \(sqr(_).--): 1 .. 10