16 lines
333 B
Text
16 lines
333 B
Text
!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 * %1)): 1 .. 10
|