100 doors: Difference between revisions
no edit summary
imported>Arakov |
No edit summary |
||
Line 14,901:
Optimized
<syntaxhighlight lang="yabasic">for i = 1 to sqrt(100) : print "Door ", i**2, " is open" : next</syntaxhighlight>
=={{header|YAMLScript}}==
<syntaxhighlight lang="yaml">
!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)
</syntaxhighlight>
{{out}}
<pre>
$ ys 100-doors.ys
Open doors after 100 passes: 1, 4, 9, 16, 25, 36, 49, 64, 81, 100
</pre>
=={{header|Yorick}}==
| |||