Could you suggest easier way of doing this? I especially don't like the verb l and wish to have a purely tacit one.
n=: 0&, ~: ,&0
v=: (] ,~ ' ' $~ [)
l=: 13 : '(n&.>)^:(i.y) < 1'
xortr=:[: > ([: |. i.) v&.> [: ":&.> l
xortr 10
1
1 1
1 0 1
1 1 1 1
1 0 0 0 1
1 1 0 0 1 1
1 0 1 0 1 0 1
1 1 1 1 1 1 1 1
1 0 0 0 0 0 0 0 1
1 1 0 0 0 0 0 0 1 1
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
