[EMAIL PROTECTED] wrote:
>
> I am try to modify an array element
>
> >> c: 1
> == 1
> >> c2: 2
> == 2
> >> a: array [10 3]
> == [[none none none] [none none none] [none none none] [none none none]
> [none none none] [none none none] [none none none]
> [none no...
> >> print a/:c/:c2
> none
> >> a/1/2: "this works"
> == [none "this works" none]
> >> a/:c/:c2: "this does not work"
> ** Syntax Error: Invalid word -- :c2:.
> ** Where: (line 1) a/:c/:c2: "this does not work"
> >>
Try the following...
>> a: array [4 4]
== [[none none none none] [none none none none]
[none none none none] [none none none none]]
>> a
== [[none none none none] [none none none none]
[none none none none] [none none none none]]
>> poke pick a 2 3 "Hello!"
== [none none "Hello!" none]
>> a
== [[none none none none] [none none "Hello!" none]
[none none none none] [none none none none]]
Sorta uggggly, but easy to wrap into a func ...
>> set2d: func [b [block!] d1 [integer!] d2 [integer!] x] [
[ poke pick b d1 d2 x
[ ]
>> set2d a 3 2 "Goodbye!"
== [none "Goodbye!" none none]
>> a
== [[none none none none] [none none "Hello!" none]
[none "Goodbye! none none] [none none none none]]
... and to generalize ...
>> a3: array [3 3 3]
== [[[none none none] [none none none] [none none none]]
[[none none none] [none none none] [none none none]]
[[none none none] [no...
>> set3d: func [
[ b [block!] d1 [integer!] d2 [integer!] d3 [integer!] x][
[ poke pick pick b d1 d2 d3 x
[ ]
>> set3d a3 1 2 3 "YOW!"
== [none none "YOW!"]
>> a3
== [[[none none none] [none none "YOW!"] [none none none]]
[[none none none] [none none none] [none none none]]
[[none none none] [...
>>
... to even higher planes of existence.
-jn-
