Stair-climbing puzzle: Difference between revisions
Added Arturo implementation
m (→{{header|Phix}}: syntax coloured) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 179:
Climbed up to +1
</pre>
=={{header|Arturo}}==
<lang rebol>Position: 0
stepUp: function [].export:[Position][
startPos: Position
until -> step [
Position = startPos + 1
]
]
step: function [].export:[Position][
(0.5 > random 0 1.0)? [
Position: Position - 1
print ~"fall (|Position|)"
false
][
Position: Position + 1
print ~"rise (|Position|)"
true
]
]
stepUp</lang>
{{out}}
<pre>fall (-1)
fall (-2)
rise (-1)
rise (0)
fall (-1)
fall (-2)
rise (-1)
rise (0)
rise (1)</pre>
=={{header|AutoHotkey}}==
| |||