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