Last non-zero digit of n!
Mathematica, 45 36 bytes

Last@Select[IntegerDigits[#!],#&gt;0&amp;]&amp;


Very readable for a winning answer. :) (Then again, there's no GolfScript &amp; Co. submission yet.)

This handles input 1,000,000 in about 5 seconds on my machine.