Stair-climbing puzzle: Difference between revisions
Realize in F#
m (→{{header|Standard ML}}: add alternate SML version and fix syntax highlighting) |
(Realize in F#) |
||
Line 607:
end procedure</syntaxhighlight>
=={{header|F_Sharp|F#}}==
<syntaxhighlight lang="fsharp">
let rec step_up() = while not(step()) do step_up()
</syntaxhighlight>
=={{header|Factor}}==
<syntaxhighlight lang="factor">: step-up ( -- ) step [ step-up step-up ] unless ;</syntaxhighlight>
| |||