100 doors: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 14,913: | Line 14,913: | ||
defn open-doors(): |
defn open-doors(): |
||
for: .[[d n] |
for: .[[d n] map(vector doors() iterate(inc 1)) :when d] n |
||
map( |
|||
vector |
|||
doors() |
|||
iterate(inc 1) |
|||
) :when d] n |
|||
defn doors(): |
defn doors(): |
||
| Line 14,924: | Line 14,919: | ||
fn [doors idx]: assoc(doors idx true) |
fn [doors idx]: assoc(doors idx true) |
||
into []: repeat(100 false) |
into []: repeat(100 false) |
||
map |
map \(dec (% * %)): (1 .. 10)</syntaxhighlight> |
||
</syntaxhighlight> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||