15 lines
306 B
Text
15 lines
306 B
Text
|
Module Arr {
|
||
|
|
\\ array as tuple
|
||
|
|
A=(1,2,3,4,5)
|
||
|
|
Print Array(A,0)=1
|
||
|
|
Print A
|
||
|
|
\\ add two arrays
|
||
|
|
A=Cons(A, (6,))
|
||
|
|
Print Len(A)=6
|
||
|
|
Print A
|
||
|
|
\\ arrays may have arrays, inventories, stacks as items
|
||
|
|
A=((1,2,3),(4,5,6))
|
||
|
|
Print Array(Array(A, 0),2)=3
|
||
|
|
}
|
||
|
|
Arr
|