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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Interactive-programming-repl-/REXX/interactive-programming-repl--1.rexx
View file

@ -1,4 +1,14 @@
/*REXX*/ parse arg a b c
say f(a,b,c)
-- 12 Sep 2025
say 'INTERACTIVE PROGRAMMING'
say
say 'Type source code at the REXX prompt, followed by Enter.'
say 'Just Enter or command ''exit'' leaves the program.'
say
do until command = ''
call Charout, 'REXX '
parse pull command
interpret command
say
end
say 'Goodbye!'
exit
f:return arg(1)arg(3)arg(3)arg(2)

29
Task/Interactive-programming-repl-/REXX/interactive-programming-repl--2.rexx
View file

@ -1,6 +1,23 @@
/*REXX program demonstrates interactive programming by using a function [F]. */
say f('Rosetta', "Code", ':')
say f('The definition of a trivial program is ', " one that has no bugs.", '───')
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
f: return arg(1) || copies(arg(3),2) || arg(2) /*return the required string to invoker*/
-- 12 Sep 2025
include Setting
say 'INTERACTIVE PROGRAMMING'
say version
say
say 'Type source code at the REXX prompt, followed by Enter.'
say 'Just Enter or command ''exit'' leaves the program.'
say
IgnoreError16:
include Setting
do until command = ''
call Charout, 'REXX '
parse pull command
interpret command
say
end
say 'Goodbye!'
exit
include Math

7
Task/Interactive-programming-repl-/REXX/interactive-programming-repl--3.rexx
View file

@ -1,7 +0,0 @@
/*REXX program demonstrates interactive programming by using a function [F]. */
say '══════════════════ enter the function F with three comma-separated arguments:'
parse pull funky
interpret 'SAY' funky
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
f: return arg(1) || copies(arg(3),2) || arg(2) /*return the required string to invoker*/