100 doors: Difference between revisions

say: |-

"Open doors after 100 passes:

$(apply str interpose(\"', \"' open-doors()))"

for: .[[d n] map(vector doors() iterate(inc 1)) :when d] n:

fn [(doors idx]): assoc(doors idx true)

map \(dec (%1 * %1)): 1 .. 10