Hello [EMAIL PROTECTED]
On 13-Oct-99, [EMAIL PROTECTED] wrote:
>
> If you haven't found it yet, there is a spelling error of "myarray"
> in this code sample. I presume that will fix it.
>
No it won't :(
After a quick dabble, I came up with the following:
>> my-array: array/initial [3 3 3] 0
== [[[0 0 0] [0 0 0] [0 0 0]]
[[0 0 0] [0 0 0] [0 0 0]]
[[0 0 0] [0 0 0] [0 0 0]]]
>> foreach element my-array [[
[ print element
[ ]
0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0
>> for i 1 3 1 [
[ for j 1 3 1 [
[ for k 1 3 1 [
[ print ["my-array["i j k"] =" my-array/:i/:j/:k]
[ ]
[ ]
[ ]
my-array[ 1 1 1 ] = 0
my-array[ 1 1 2 ] = 0
my-array[ 1 1 3 ] = 0
my-array[ 1 2 1 ] = 0
my-array[ 1 2 2 ] = 0
my-array[ 1 2 3 ] = 0
my-array[ 1 3 1 ] = 0
my-array[ 1 3 2 ] = 0
my-array[ 1 3 3 ] = 0
my-array[ 2 1 1 ] = 0
my-array[ 2 1 2 ] = 0
my-array[ 2 1 3 ] = 0
my-array[ 2 2 1 ] = 0
my-array[ 2 2 2 ] = 0
my-array[ 2 2 3 ] = 0
my-array[ 2 3 1 ] = 0
my-array[ 2 3 2 ] = 0
my-array[ 2 3 3 ] = 0
my-array[ 3 1 1 ] = 0
my-array[ 3 1 2 ] = 0
my-array[ 3 1 3 ] = 0
my-array[ 3 2 1 ] = 0
my-array[ 3 2 2 ] = 0
my-array[ 3 2 3 ] = 0
my-array[ 3 3 1 ] = 0
my-array[ 3 3 2 ] = 0
my-array[ 3 3 3 ] = 0
>> for i 1 3 1 [
[ poke my-array/:i/:i i 999
[ ]
== [0 0 999]
>> my-array
== [[[999 0 0] [0 0 0] [0 0 0]]
[[ 0 0 0] [0 999 0] [0 0 0]]
[[ 0 0 0] [0 0 0] [0 0 999]]]
Hope this helps
Blaz
P.S. I edited the output the first and last reference to 'my-array to
make it easier to see what is going on :).
