题解 P1179 【数字统计】

HoshinoTented

2018-12-22 22:14:20

Solution

# 开头说几句 水题, 没什么好说的, 思路也就那样。。。 # [题解(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 () ``` 水题, 过不过的去看后台硬不硬了