27 lines
539 B
Smalltalk
27 lines
539 B
Smalltalk
Object subclass: BidimensionalArray [
|
|
|biArr|
|
|
<comment: 'bidim array'>
|
|
].
|
|
BidimensionalArray class extend [
|
|
new: biDim [ |r|
|
|
r := super new.
|
|
r init: biDim.
|
|
^ r
|
|
]
|
|
].
|
|
BidimensionalArray extend [
|
|
init: biDim [
|
|
biArr := Array new: (biDim at: 1).
|
|
1 to: (biDim at: 1) do: [ :i |
|
|
biArr at: i put: (Array new: (biDim at: 2))
|
|
].
|
|
^ self
|
|
]
|
|
at: biDim [
|
|
^ (biArr at: (biDim at: 1)) at: (biDim at: 2)
|
|
]
|
|
at: biDim put: val [
|
|
^ (biArr at: (biDim at: 1)) at: (biDim at: 2) put: val
|
|
]
|
|
].
|