>>522
Haskell

main = mapM_ print $ zip list $ map zlen list

zlen x = (length.(filter (== '0')).show.product) [1..x]

list = [0,1,2,3,4,5,10,100,1000,10000]

Out

(0,0)
(1,0)
(2,0)
(3,0)
(4,0)
(5,1)
(10,2)
(100,30)
(1000,472)
(10000,5803)