p.=0 do n=1 to 100 a=1 do k=0 to n i=n-k a=a+p.k.i p.n.i=a end say"p("n")="a end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page