Test a function: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: made REXX 2nd version compliant, changed to the use of a '''output''' template. -- ~~~~) |
m (→stress test some REXX BIFs: removed a stray question mark (?). -- ~~~~) |
||
Line 1,043: | Line 1,043: | ||
===stress test some REXX BIFs=== |
===stress test some REXX BIFs=== |
||
This stress tests some of the REXX built-in functions (BIFs). |
This stress tests some of the REXX built-in functions (BIFs). |
||
<lang rexx> |
<lang rexx>/*REXX program to show a secret message. */ |
||
z.=' ';z=12-25-2002;y=z;w=-y |
z.=' ';z=12-25-2002;y=z;w=-y |
||
z.0=translate(right(time('c'),substr(z,4,z==y))) |
z.0=translate(right(time('c'),substr(z,4,z==y))) |
||
Line 1,069: | Line 1,069: | ||
</pre> |
</pre> |
||
Because the REXX language is interpreted, many REXX stress tests are "simple" programs like those listed above, albetit highly obfuscated. |
Because the REXX language is interpreted, many REXX stress tests are "simple" programs like those listed above, albetit highly obfuscated. |
||
<br><br> |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |