Factorial

Score: 51.12 (pass)

Aha! I've finally clawed my way through the "barren zone" into the upper section of the leaderboard!

#!perl -l
$p=($p*$_)=~/0*$/*$`%1e6||1for 0..pop;print$p%10

Score: 52.13 (pass)

I swore I wasn't going to enter this month. I kept my vow until August 1, about 11 am...

#!perl -l
$p=($p*$_)=~/0*$/*$`%1e6||1for 0..pop;
print$p%10