Finally, I should note that it takes five iterations of ptgen to produce all pythogorean triples with a hypotenuse no greater than 100:
#(ptrp 100)-./:~"1 ptgen^:4,:3 4 5 1 #(ptrp 100)-./:~"1 ptgen^:5,:3 4 5 0 -- Raul ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
