aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-03-06 22:25:12 -08:00
parent ed705008a8
commit 0df55f9f24
2196 changed files with 32999 additions and 3075 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/100-doors/YAMLScript/100-doors.ys
View file

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