100 doors: Difference between revisions

Improving REBOL snippet
(REBOL solution)
(Improving REBOL snippet)
Line 1,387:
<lang rebol>doors: array/initial 100 'open
forskip doors 2 [ change next doors 'closed ]
if error? try [
doors: skip doors 2
forskip doors 3 [ state: firstthird doors poke doors 13 either state = 'open [ 'closed ] [ 'open ] ]
] [ doors: head doors ]</lang>
 
=={{header|Ruby}}==
Anonymous user