Stair-climbing puzzle: Difference between revisions
Content added Content deleted
m (→{{header|J}}) |
|||
| Line 696: | Line 696: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
<lang perl6>sub step_up { step_up until step; }</lang> |
<lang perl6>sub step_up { step_up until step; }</lang> |
||
=={{header|Phix}}== |
|||
<lang Phix>procedure step_up() |
|||
while not step() do step_up() end while |
|||
end procedure</lang> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |
||