Decompose integer into sum of squares by kozima

(defmacro m(b v)`(dotimes(,v 18),b))(dotimes(n 301)(prog()(m(m(m(m(or(/=(+(* a a)(* b b)(* c c)(* d d))n)(format(> n 0)"~D:~{ ~D~}
"n(remove 0`(,d,c,b,a)))(go x))d)c)b)a)x))

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

download

return to the top page