1016 部分A+B (15分) Haskell 题解

最新推荐文章于 2025-11-17 12:14:43 发布

原创最新推荐文章于 2025-11-17 12:14:43 发布 · 268 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#算法 #haskell

Haskell 同时被 2 个专栏收录

17 篇文章

订阅专栏

PAT

17 篇文章

订阅专栏

该博客主要介绍了一个程序设计问题，即给定两个正整数A和B，以及两个数字DA和DB，计算A的DA部分（P_A）和B的DB部分（P_B）之和。程序通过过滤出A和B中对应位置的DA和DB，然后将这些数字相加得出结果。示例中展示了如何处理包含多个相同数字的情况以及返回0的情况。

正整数 A 的“DA（为 1 位整数）部分”定义为由 A 中所有 DA 组成的新整数 PA。例如：给定 A=3862767，DA=6，则 A 的“6 部分”PA 是 66，因为 A 中有 2 个 6。

现给定 A、DA、B、DB，请编写程序计算 PA+PB。

输入格式：

输入在一行中依次给出 A、DA、B、DB，中间以空格分隔，其中 0<A,B<1010。

输出格式：

在一行中输出 PA+PB 的值。

输入样例 1：

3862767 6 13530293 3

输出样例 1：

输入样例 2：

3862767 1 13530293 8

输出样例 2：

解题思路：

用 filter 选择相等的值，再转换成 Int 做计算，转换时要注意空字符串的处理。

main :: IO ()
main = do
    line <- getLine
    let xs = words line
        a = xs !! 0
        da = xs !! 1 !! 0
        b = xs !! 2
        db = xs !! 3 !! 0
        stringToInt s = if s == "" then 0 else read s
        ra = stringToInt $ filter (== da) a
        rb = stringToInt $ filter (== db) b
    print $ ra + rb