Given the following Rexx program:
a=.array~new
/a[1,1]="a"/ /* first usage, makes array a two dimensional array */
/*a[4,5]="b"*/
say "a[4,5]:" a[4,5]
/a~put("c", 6, 7)/ /* use PUT instead of []= */
say '... after a~put("c", 6, 7) ...'
say "a[1,1]:" a[1,1]
say "a[4,5]:" a[4,5] "<--- why not there anymore?"
say "a[3,6]:" a[3,6] "<--- should be at index: (4,5) !"
say "a[6,7]:" a[6,7]
say
say "---"
say
z=.array~new
/z[1,1]="a" / /* first usage, makes array a two dimensional array */
*z[4,5]="b"*
say "z[4,5]:" z[4,5]
/z[6,7]="c"/
say '... after z[6,7]="c" ...'
say "z[1,1]:" z[1,1]
say "z[4,5]:" z[4,5] "<--- why not there anymore?"
say "z[3,6]:" z[3,6] "<--- should be at index: (4,5) !"
say "z[6,7]:" z[6,7]
and its output being:
*a[4,5]: b*
... after a~put("c", 6, 7) ...
a[1,1]: a
/a[4,5]: The NIL object/ <--- why not there anymore?
/a[3,6]: b /<--- should be at index: (4,5) !
a[6,7]: c
---
*z[4,5]: b*
... after z[6,7]="c" ...
z[1,1]: a
/z[4,5]: The NIL object/ <--- why not there anymore?
/z[3,6]: b/ <--- should be at index: (4,5) !
z[6,7]: c
---rony
_______________________________________________
Oorexx-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/oorexx-devel
