app/cses1618.hs

   1 main :: IO ()
   2 main = do
   3   line1 <- getLine
   4   let n = read line1
   5   let solution = solve n 5
   6   print solution
   7
   8 solve :: Int -> Int -> Int
   9 solve n f
  10   | n < f = 0
  11   | otherwise = (n `div` f) + solve n (f * 5)