Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
20
Task/Runtime-evaluation/REXX/runtime-evaluation.rexx
Normal file
20
Task/Runtime-evaluation/REXX/runtime-evaluation.rexx
Normal file
|
|
@ -0,0 +1,20 @@
|
|||
/*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
|
||||
/* [↓] now, we hear from the user. */
|
||||
say 'enter an expression:'
|
||||
pull expression
|
||||
say
|
||||
say 'expression entered is:' expression
|
||||
say
|
||||
|
||||
interpret '?='expression
|
||||
|
||||
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 all done. */
|
||||
Loading…
Add table
Add a link
Reference in a new issue