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