Partition function by tanon

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