Rosetta Code

Test a function: Difference between revisions

Page Discussion

Test a function (view source)

Revision as of 21:19, 29 June 2021

138 bytes added ,  2 years ago
m
→‎stress REXX keywords (used as variables): added comments.
m (→‎stress test some REXX BIFs: added whitespace and comments.)
Line 1,799:
===stress REXX keywords (used as variables)===
{This was originally written in some form of FORTRAN.}
<lang rexx>/*REXX Thisprogram stresses various REXX usesfunctions a(BIFs), lotmany ofBIFs REXXare keywordsused as variables. */
signal=(interpret=value); value=(interpret<parse); do upper=value to value; end▼
 
end;exit=upper*upper*upper*upper-value-upper; say=' '; return=say say say; with.=signal▼
▲signal=(interpret=value);value=(interpret<parse);do upper=value to value
with.=signal;do then=value to exit; pull=''; do otherwise= upper to then-,▼
▲end;exit=upper*upper*upper*upper-value-upper;say=' ';return=say say say;
value; select=otherwise-value; if.otherwise=with.otherwise+with.select; end
▲with.=signal;do then=value to exit;pull='';do otherwise=upper to then-,
if.value;select=otherwise-value; if.otherwisethen=with.value; do otherwise+with.select=value to exit-then;end pull=pull,
if.value=valuesay''say;if.then=value end; do otherwise=value to exit-then; pull=pull center(if.otherwise,,
say''saylength(return)); end; say pull; do otherwise=value to thenexit;pull=pull center(ifwith.otherwise,=,
if.otherwise; end; end; exit 0 /*stick a fork in it, we're all done. */</lang>
length(return));end;say pull;do otherwise=value to exit;with.otherwise=,
{{out|output|text=''':'''}}
if.otherwise;end;end</lang>
'''output'''
<pre>
1
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/112643"