rebol[]for a 3 100 1[for b 3 5000 1[c: a * a +(b * b)** .5 if c = d: to-integer c[print [a b d]]]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page