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