sub p{my($k,$n)=@_;$h{$k,$n}//=$n>$k?p($k+1,$n)+p($k,$n-$k):$n==$k}print"p($_)=",p(1,$_),$/for 1..100
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page