LCM of 1 to n by ttmh

(loop(format t"~D
"(apply'lcm(dotimes(i(read)*)(push(1+ i)*)))))

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

download

return to the top page