Stair-climbing puzzle: Difference between revisions

Content added Content deleted
No edit summary
(Add Factor example)
Line 479: Line 479:
end if
end if
end procedure</lang>
end procedure</lang>

=={{header|Factor}}==
<lang factor>: step-up ( -- ) step [ step-up step-up ] unless ;</lang>


=={{header|Forth}}==
=={{header|Forth}}==