(while:prn((= r read o(obj)f(fn(x y z)(if(> x y)(or=(o:+""x y z)(f(f(- x 5)y z)(f(- y 5)z x)(f(- z 5)x y)))z)))(*:r)(r)(r)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page