Factorial

Score: 54.13 (pass)

#!perl -l
$n=1;($n*=$_)=~s/0*$//,$n%=1e8for 1..pop;print$n%10