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