P.S. if I wanted to use the inner product pythogorean generator documented on that wikipedia page, I'd probably use something like this:
U=: 1 2 2 , _2 _1 _2 ,: 2 2 3 A=: 1 2 2 , 2 1 2 ,: 2 2 3 D=: _1 _2 _2 , 2 1 2 ,: 2 2 3 ip=:+/ .* ptgen=:(] , ip&U, ip&A, ip&D) ptgen^:2 ,:3 4 5 3 4 5 5 12 13 21 20 29 15 8 17 5 12 13 7 24 25 39 80 89 33 56 65 21 20 29 55 48 73 119 120 169 65 72 97 15 8 17 45 28 53 77 36 85 35 12 37 -- Raul ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
