100 doors: Difference between revisions

m
→‎{{header|Oforth}}: Word syntax update
(Added Idris Solution)
m (→‎{{header|Oforth}}: Word syntax update)
Line 5,340:
=={{header|Oforth}}==
 
<lang Oforth>func: doors
{
| i j l |
ListBuffer initValue(100, false) ->l
100 loop: i [
i 100 i step: j [ l put(j, l at(j) not) ]
]
l println ;
}</lang>
 
=={{header|ooRexx}}==
1,015

edits