gistfile1.hs

module Main where

import Data.List

magic :: Int -> Int -> Int
magic end c = foldr1 (+) (counted [1 .. end])
  where
    counted list  = map findN list
    findN x       = length . filter (\l -> length l == c) . group . sort . filter (/= 0) . map (\z -> z `mod` 10) . take 5 . iterate (\y -> y `div` 10) $ x