# "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).