Stair-climbing puzzle: Difference between revisions
Content added Content deleted
(Added Quackery.) |
(Stair-climbing puzzle en FreeBASIC) |
||
| Line 540: | Line 540: | ||
end module StairRobot</lang> |
end module StairRobot</lang> |
||
=={{header|FreeBASIC}}== |
|||
<lang freebasic>' since step is a statement modifier in FreeBASIC, we will use step_ |
|||
Function step_() As Boolean |
|||
'dim as integer tepp = Int((Rnd * 2)) |
|||
If Int((Rnd * 2)) Then |
|||
Return True |
|||
Else |
|||
Return False |
|||
End If |
|||
End Function |
|||
Sub step_up() |
|||
While Not step_() |
|||
step_up() |
|||
Wend |
|||
End Sub |
|||
Sleep</lang> |
|||
=={{header|Go}}== |
=={{header|Go}}== |
||