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

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Task/Runtime-evaluation/REXX/runtime-evaluation.rexx
View file

@ -1,22 +1,20 @@
/*REXX program illustrates ability to execute code entered at "runtime".*/
numeric digits 10000000 /*ten million digits should do it*/
/*REXX program illustrates the ability to execute code entered at runtime (from C.L.)*/
numeric digits 10000000 /*ten million digits should do it. */
bee=51
stuff= 'bee=min(-2,44); say 13*2 "[from inside the box.]"; abc=abs(bee)'
interpret stuff
say 'bee=' bee
say 'abc=' abc
say 'bee=' bee
say 'abc=' abc
say
/* [↓] now, we hear from da user*/
/* [↓] now, we hear from the user. */
say 'enter an expression:'
pull expression
say
say 'expression entered is:' expression
say 'expression entered is:' expression
say
interpret '?='expression
say
say 'length of result='length(?)
say ' left 50 bytes of result='left(?,50)'···'
say 'right 50 bytes of result=···'right(?,50)
/*stick a fork in it, we're done.*/
say ' left 50 bytes of result='left(?,50)"···"
say 'right 50 bytes of result=···'right(?, 50) /*stick a fork in it, we're all done. */