1006 换个格式输出整数 (15分) Haskell 题解

1006 换个格式输出整数 (15分)

让我们用字母 B 来表示“百”、字母 S 表示“十”，用 12...n 来表示不为零的个位数字 n（<10），换个格式来输出任一个不超过 3 位的正整数。例如 234 应该被输出为 BBSSS1234，因为它有 2 个“百”、3 个“十”、以及个位的 4。

输入格式：

每个测试输入包含 1 个测试用例，给出正整数 n（<1000）。

输出格式：

每个测试用例的输出占一行，用规定的格式输出 n。

输入样例 1：

234

输出样例 1：

BBSSS1234

输入样例 2：

23

输出样例 2：

SS123

解题思路：

一个技巧是用 zip 将每一位数字绑定对应的函数来避免做判断。

import Data.Char

bai :: Int -> String
bai = flip replicate 'B'

shi :: Int -> String
shi = flip replicate 'S'

ge :: Int -> String
ge = flip take ['1'..]

main :: IO ()
main = do
    s <- getLine
    let r = zip (reverse $ map digitToInt s) [ge, shi, bai]
    putStrLn $ concat $ reverse $ map (\(x, f) -> f x) r