Partition function by pooq

$ :=Map clone;for(i,1,100,s:=0;for(j,1,100,s=s+a:=if(j>1and j<i,$at(i-j .."-".. j)+ $at(i-1 .."-".. j-1),if(i<j,0,1));$atPut(i .."-".. j,a))writeln("p(",i,")=",s))

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

download

return to the top page