小编Laz*_*oke的帖子

digits :: Int->Int->Int
digits x y
     |x`mod`10 == y`mod`10 = count x y 
     |otherwise = digits (x`div`10) (y`div`10)

count :: Int -> Int -> Int
k = 0 + 1
count x y 
    |x < 1 = getprize k
    |otherwise = digits (x`div`10) (y`div`10) 

getprize :: Int -> Int
getprize k
      |k == 8 = 1000000
      |k == 7 = 100000
      |k == 6 = 8000
      |k == 5 = 300       
      |k == 4 = 20
      |k == 3 = …