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 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

21
Task/100-doors/ArkScript/100-doors-1.ark Normal file
View file

@ -0,0 +1,21 @@
(import std.Range :range :forEach)
(import std.List)
(mut doors (list:fill 100 false))
(let r (range 0 100))
(forEach r
(fun (i) {
(mut j i)
(while (< j 100) {
(@= doors j (not (@ doors j)))
(set j (+ j i 1)) })
(print doors) }))
(print
(list:map
(list:filter
(list:zipWithIndex doors)
(fun (e)
(@ e 1)))
(fun (e) (@ e 0))))

4
Task/100-doors/ArkScript/100-doors-2.ark Normal file
View file

@ -0,0 +1,4 @@
[true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true true]
...
[true false false true false false false false true false false false false false false true false false false false false false false false true false false false false false false false false false false true false false false false false false false false false false false false true false false false false false false false false false false false false false false true false false false false false false false false false false false false false false false false true false false false false false false false false false false false false false false false false false false true]
[0 3 8 15 24 35 48 63 80 99]