Data update

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

View file

@ -1,5 +1,17 @@
print_all: procedure /* [↓] is the # of args passed.*/
do j=1 for arg()
say arg(j)
end /*j*/
-- 11 Sep 2025
include Setting
say 'VARIADIC FUNCTION'
say version
say
call Task 'Sin(x)',,0,Abs(-12),SqRt(12)/1,,'Number 7',,2**10
exit
Task:
procedure
do a = 1 to Arg()
say 'Arg('a')' '=' Arg(a)
end
return
include Math

View file

@ -1,5 +1,13 @@
print_all: procedure /* [↓] is the # of args passed.*/
do j=1 for arg()
say '[argument' j"]: " arg(j)
end /*j*/
/* REXX */
list=''
Do i=1 To 6
list=list||'"arg"'i','
End
list=list||'"end"'
Interpret 'call show' list
Exit
show: procedure
do j=1 for arg()
say arg(j)
end /*j*/
return

View file

@ -1,10 +0,0 @@
call print_all .1,5,2,4,-3, 4.7e1, 013.000 ,, 8**2 -3, sign(-66), abs(-71.00), 8 || 9, 'seven numbers are prime, 8th is null'
call print_all "One ringy-dingy,",
"two ringy-dingy,",
"three ringy-dingy...",
"Hello? This is Ma Bell.",
"Have you been misusing your instrument?",
"(Lily Tomlin routine)"
/* [↑] example showing multi-line arguments.*/

View file

@ -1,13 +0,0 @@
/* REXX */
list=''
Do i=1 To 6
list=list||'"arg"'i','
End
list=list||'"end"'
Interpret 'call show' list
Exit
show: procedure
do j=1 for arg()
say arg(j)
end /*j*/
return