33 lines
551 B
Rexx
33 lines
551 B
Rexx
|
-- 21 Feb 2026
|
||
|
|
include Setting
|
||
|
|
|
||
|
|
say 'MULTI-DIMENSIONAL ARRAY'
|
||
|
|
say version
|
||
|
|
say
|
||
|
|
-- Default value
|
||
|
|
stem1.=0
|
||
|
|
-- Incomplete multiplication table
|
||
|
|
do i = 1 to 5
|
||
|
|
do j = 1 to 5
|
||
|
|
stem1.i.j=i*j
|
||
|
|
end
|
||
|
|
end
|
||
|
|
-- Show some results
|
||
|
|
say 'Multiplication table'
|
||
|
|
say '2 x 3 =' stem1.2.3
|
||
|
|
say '5 x 2 =' stem1.5.2
|
||
|
|
say '3 x 3 =' stem1.3.3
|
||
|
|
say '4 x 6 =' stem1.4.6
|
||
|
|
say
|
||
|
|
-- Indices may have any value, not just numeric.
|
||
|
|
a="~"; b=" "; c="'"
|
||
|
|
stem2.a.b.c="Special indices"
|
||
|
|
say "stem2.~. .' =" stem2.a.b.c
|
||
|
|
say
|
||
|
|
-- Dump variable pool
|
||
|
|
call Showvars
|
||
|
|
exit
|
||
|
|
|
||
|
|
-- Showvars
|
||
|
|
include Math
|