Partition function by pooq

dim p(100,100)
for i=1to 100s=0
for j=1to i
a=1
if(j>1)*(j<i)a=p(i-j,j)+p(i-1,j-1)
s=s+a
p(i,j)=a
next
?"p(",i,")=",s
next

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

download

return to the top page