use bigint; @f=1; $f[$_]=$f[$_-1]*$_ for 1..15; $n=<>; $m=<>; @a=(0,1); for$i(2..$n){ $z=0; for$j(0..$i-1){ $z+=$f[$i]/($f[$j]*$f[$i-$j])*$a[$j]; } $a[$i]=($i+0)**$n-$z; } print$m>$n?0:$a[$m];