Stair-climbing puzzle: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|REBOL}}: Remove vanity tags) |
|||
| Line 1,164: | Line 1,164: | ||
%sysfunc(round(%sysfunc(ranuni(0)))) |
%sysfunc(round(%sysfunc(ranuni(0)))) |
||
%mend step; |
%mend step; |
||
</lang> |
|||
==Recursive== |
|||
<lang SAS> |
|||
%macro step_up(); |
%macro step_up(); |
||
| Line 1,178: | Line 1,181: | ||
%step_up; |
%step_up; |
||
</lang> |
</lang> |
||
==Iterative== |
|||
<lang SAS> |
|||
%macro step_up(); |
|||
%do %while (not %step); |
|||
%put Step Down; |
|||
%step_up; |
|||
%end; |
|||
%put Step Up; |
|||
%mend step_up; |
|||
</lang> |
|||
Sample Output: |
Sample Output: |
||