Stair-climbing puzzle: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: syntax coloured) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 179: | Line 179: | ||
Climbed up to +1 |
Climbed up to +1 |
||
</pre> |
</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}}== |
=={{header|AutoHotkey}}== |