题解 P1179 【数字统计】
HoshinoTented
2018-12-22 22:14:20
# 开头说几句
水题, 没什么好说的, 思路也就那样。。。
# [题解(Haskell)](https://github.com/HoshinoTented/LuoGu/blob/master/src/P1179.hs)
```haskell
-- 计算数字中 '2' 的数量 :: 数字 -> '2' 的数量
count :: Int -> Int
count x = foldr (\x l -> (if x == '2' then (+1) else (+0)) l) 0 $ show x
-- 程序主入口
main :: IO ()
main = do
-- 读取 begin 和 end
[begin, end] <- (map read . words) <$> getLine :: IO [Int]
-- 迭代 [begin..end] 并将每个数字的 '2' 的数量加起来 并输出
print $ foldr (\x l -> count x + l) 0 [begin..end]
-- 返回 IO ()
return ()
```
水题, 过不过的去看后台硬不硬了