32 lines
551 B
Rexx
32 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
|