for(v=n=0;n<2e3;v-1||print(n))[a,b,c,d]=v+'000',v=v>4?a*a+b*b+c*c+d*d:++n
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page