Code: Select all
)clear
clear ws
∇ foo args
[1] [1] :Implements Trigger *
[2] [2] (⍕⎕THIS),'.',args.Name,' has changed'
[3] [3] :If 2=args.⎕NC'Indexers'
[4] [4] '≢Indexers',(≢args.Indexers)
[5] [5] 'Indexers',,args.Indexers
[6] [6] :EndIf
[7] ∇
⎕FX ⎕CR 'foo'
a←2 3 3⍴0
#.a has changed
a[1;2;2]←0
#.a has changed
≢Indexers 1
Indexers 5E¯324
a[1;⍳2;⍳2]←5
#.a has changed
≢Indexers 4
Indexers 9 10 12 5E¯324 ¯3.59538627E308 5E¯324 2.84E¯321 1E¯323
In version:
Interpreter:
Version: 17.0.36073
Platform: Mac-64
Edition: Unicode/64
Date: Mar 29 2019 at 09:33:41
THANKS!