Decompose integer into sum of squares by yshl

0[]def 1 1 300{dup =only(:)print 9{1 1 20{2 index 1 index dup mul sub load dup
length 3 index lt{[1 index aload length 2 add index]4 index exch def length 3 1
roll}if pop pop}for}stopped 4 index load{( )print =only}forall()=}for

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


return to the top page