Data update

Lang/YAMLScript/100-doors

@@ -0,0 +1 @@
+../../Task/100-doors/YAMLScript

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

@@ -0,0 +1,15 @@
+!yamlscript/v0
+
+defn main():
+  say:
+    "Open doors after 100 passes:
+    $(apply str interpose(\", \" open-doors()))"
+
+defn open-doors():
+  for: .[[d n] map(vector doors() iterate(inc 1)) :when d] n
+
+defn doors():
+  reduce:
+    fn [doors idx]: assoc(doors idx true)
+    into []: repeat(100 false)
+    map \(dec (% * %)): (1 .. 10)