# "Pythagorean triple fixed" by tails. # not golfed. 51,2>{:s,1>{:t; # for (s,t) s.t. 1 <= t < s <= 50 s.*t.*- :x; # x = s*s-t*t 2s*t* :y; # y = 2*s*t s.*t.*+ :z; # z = s*s+t*t x y < x y if :w; # w = min(x,y) 100 w/,{2*):d; # for d = 1, 3, 5, ... 2*(100/w)+1 <- too big eh? d 9% d 25% * 0> { # exclude some values from d to avoid dup. x d* :a; # (a,b,c) = d*(x,y,z) y d* :b; z d* :c; a 101 < {[a b c]}* # found b 101 < {[b a c]}* # found }* }/ }/}% $ # sort {" "*n}% # format

Note that non-ascii characters in the above source code will be escaped (such as \x9f).