sub p{my($k,$n)=@_;$m{$n,$k}||=$k<$n?p($k+1,$n)+p($k,$n-$k):$k==$n}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