Factorial

Score: 52.10 (fail)

gives 4 for 5, instead of the correct 2

#!perl -l
$x=1;map{$_/=5 until$_%5;$x*=$_}1..pop;print$x%10

Score: 56.13 (pass)

I don't have time for golf this month, and with the crazy scores obtained by others so far, I feel too discouraged to even try! Oh well :)

#!perl -l
for$i(0..pop){/(.{0,8})0*$/;$_=$i*$1||1}print/(.)0*$/

Score: 59.11 (pass)

#!perl -l
$_=1;for$i(1..pop){$_*=$i;($_)=/(.{1,9}?)0*$/}print+chop

Score: 64.12 (pass)

First try ... weird hole!

#!perl -l
$_=1;for$i(1..pop){$_*=$i;s/0*$//;($_)=/(.{0,9})$/}print+chop