Factorial
Score: 50.11 (pass)
#!perl -l ($~=$~*$_%9e9||1)=~s/0*$//for 0..pop;print$~%10