(-@|[EMAIL PROTECTED]@[EMAIL PROTECTED] |."0 1 ]) ":&> (, [:(1, 1,~ 2~:/\
])&.> {:)^:10 < 1
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
1 0 1 0 0 0 0 0 1 0 1
Or
xor=:(, [:(1, 1,~ 2~:/\ ])&.> {:)
frmt=:(-@|[EMAIL PROTECTED]@[EMAIL PROTECTED] |."0 1 ]) ":&>
frmt xor ^:10 [1
R.E. Boss
-----Oorspronkelijk bericht-----
Van: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Namens June Kim
Verzonden: vrijdag 14 april 2006 18:51
Aan: Programming forum
Onderwerp: [Jprogramming] XOR triangle
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
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
