sum of square numbers by medialuna

f=:+/@:*:@i.@>:
wd"0 f".>0{"1[_2]\;:1!:1[3

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

download

return top