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