10 lines
258 B
Text
10 lines
258 B
Text
Dim Base 0, A(2,2)=1, B(1,2)=6
|
|
A()=Cons(A(), B(), A(), B())
|
|
\\ Restore the dimensions (without erasing items)
|
|
Dim A(Dimension(A(),1)/2, 2)
|
|
For I=0 to Dimension(A(),1)-1 {
|
|
For j=0 to Dimension(A(),2)-1 {
|
|
Print A(i, j),
|
|
}
|
|
Print
|
|
}
|