(for a 3 100(for b 3 5e3(= c(sqrt:+(* a a)(* b b)))(if(is(int c)c)(prn a" "b" "c))))

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

download

return to the top page