Anonymous user
Stair-climbing puzzle: Difference between revisions
→{{header|SAS}}
Thundergnat (talk | contribs) m (→{{header|REBOL}}: Remove vanity tags) |
|||
Line 1,164:
%sysfunc(round(%sysfunc(ranuni(0))))
%mend step;
</lang>
==Recursive==
<lang SAS>
%macro step_up();
Line 1,178 ⟶ 1,181:
%step_up;
</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:
|