Test a function: Difference between revisions

Line 1,828:

===stress test some REXX BIFs===

This stress tests some of the REXX built-in functions (BIFs).

<lang rexx>/*REXX program ~~to show~~ a secret message. */

<lang rexx>/*REXX program shows a secret message to the terminal by using REXX built─in functions. */

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)))

z.1=left(substr(format(z,2,z==y,,z==y.1),5),z==y)

z.1= left( substr( format(z, 2, z==y, , z==y.1), 5), z==y)

z.2=copies(right(symbol('z.'20),z==y),left(w,1))

z.2= copies( right( symbol('z.'20), z==y), left(w, 1))

z.3=translate(right(date('w'),z==y))

z.3= translate( right( date('w'), z==y))

z.5=right(form(),z==y)

z.5= right( form(), z==y)

z.6=x2c(d2x(x2d(c2x(substr(symbol(substr(z,2)),2,z==y)))-1))

z.6= x2c( d2x( x2d( c2x( substr( symbol( substr(z, 2)), 2, z==y))) - 1))

z.7=right(symbol('z.'||(z\==z)),z==y)

z.7= right( symbol('z.' || (z\==z) ), z==y)

z.8=substr(form(),(z==y)+left(w,1),z==y)

z.8= substr( form(), (z==y) + left(w, 1), z==y)

z.9=reverse(left(form(),z==y))

z.9= reverse( left( form(), z==y))

z.10=left(substr(form(),6),z==y)

z.10= left( substr( form(), 6), z==y)

z.11=right(datatype(z),z==y)

z.11= right( datatype(z), z==y)

z.12=substr(symbol(left(z,z=z)),left(w,1),z==y)

z.12= substr( symbol(left(z, z=z)), left(w, 1), z==y)

z.13=left(form(),z==y)

z.13= left( form(), z==y)

do z=-31 to 31;z.32=z.32||z.z;end

do z=-31 to 31; z.32= z.32 || z.z; end

say

say z.32

say~~</lang>~~

say

exit 0 /*stick a fork in it, we're all done. */</lang>

'''output'''

<pre>