Pythagorean triple fixed by pooq

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