aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

all tasks

Browse source
This commit is contained in:
Ingy döt Net 2013-04-11 01:07:29 -07:00
parent b83f433714
commit 68f8f3e56b
14735 changed files with 178959 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
Task/Test-a-function/REXX/test-a-function-2.rexx Normal file
View file

@ -0,0 +1,19 @@
/*REXX program to show a secret message. */
z.=' ';z=12-25-2002;y=z;w=-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.2=copies(right(symbol('z.'20),z==y),left(w,1))
z.3=translate(right(date('w'),z==y))
z.5=right(form(),z==y)
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.8=substr(form(),(z==y)+left(w,1),z==y)
z.9=reverse(left(form(),z==y))
z.10=left(substr(form(),6),z==y)
z.11=right(datatype(z),z==y)
z.12=substr(symbol(left(z,z=z)),left(w,1),z==y)
z.13=left(form(),z==y)
do z=-31 to 31;z.32=z.32||z.z;end
say
say z.32
say