haskell 基础题解（33）

最新推荐文章于 2019-08-27 13:42:07 发布

可雷曼土

最新推荐文章于 2019-08-27 13:42:07 发布

阅读量235

点赞数

CC 4.0 BY-SA版权

分类专栏： HASKELL

本文链接：https://blog.youkuaiyun.com/ggyhang/article/details/99584290

HASKELL 专栏收录该内容

61 篇文章

订阅专栏

本文介绍了一种将人民币金额从数字形式转换为汉字大写形式的方法，特别关注于零的正确处理，确保转换准确无误。文章提供了详细的转换规则，并通过Haskell代码实现了这一功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

人民币金额大写

【题目】在打印凭据，签定合同等场合，经常需要把人民币金额用汉字大写。这个需求十分常见，十分重要。但细节多，很容易出错。
请你把一个整数表示的人民币金额转为金额大写
特别要注意，金额中，零的出现，既不能多，也不能少。
例如：
1000000001 -> 壹拾亿零壹
1250030001 -> 壹拾贰亿伍仟零叁万零壹
30050 -> 叁万零伍拾

总体的大规则上并不难。
西方按3位一组命名: thousand,million, billion 等
中文则4位一组命名：万，亿，万亿，亿亿，万亿亿，亿亿亿等
如果某组为0，它的单位不读出，
中间多个连续零读为一个
结尾不能有零。。。。
细节很多

上个 haskell 码

import Data.List (dropWhileEnd)

f合并连续零 :: String -> String
f合并连续零 = foldr f [] 
    where 
    f x [] = [x]
    f x (y:ys) | x=='零' && y=='零' = y:ys
               | otherwise          = x:y:ys  

f拆组 :: Integer -> Integer -> [Integer] 
f拆组 0 _ = []
f拆组 x n = x `mod` n : f拆组 (x `div` n) n

f千内 :: Integer -> String
f千内 x = 
    let 
        u1 = ["零","壹","贰","叁","肆","伍","陆","柒","捌","玖"]
        u2 = ["","拾","佰","仟"]
        f加单位 0 _ = "零"
        f加单位 n u = u1 !! fromIntegral n ++ u
        t  = zipWith f加单位 (f拆组 x 10) u2 
        t1 = concat $ reverse t
        t2 = dropWhileEnd (=='零') t1  ---去尾零
        t3 = f合并连续零 t2
    in 
         if null t3 then "零" else t3

fRMB :: Integer -> String
fRMB x = 
    let 
        u = "" : [y : replicate (i `div` 2) '亿' | 
                        i<-[0..], 
                        let y = if even i then '万' else '亿']
        f加单位 n u | n == 0    = "零"
                    | n < 1000  = "零" ++ f千内 n ++ u
                    | otherwise = f千内 n ++ u
        t = zipWith f加单位 (f拆组 x 10000) u
        t1 = concat $ reverse t
        t2 = dropWhileEnd (=='零') t1  ---去尾零
        t3 = dropWhile (=='零') t2 ---去首零
        t4 = f合并连续零 t3
    in 
         if null t4 then "零" else t4  

main :: IO ()
main = do
    putStrLn $ fRMB 0
    putStrLn $ fRMB 2
    putStrLn $ fRMB 10
    putStrLn $ fRMB 23
    putStrLn $ fRMB 100
    putStrLn $ fRMB 108
    putStrLn $ fRMB 120
    putStrLn $ fRMB 456
    putStrLn $ fRMB 2000
    putStrLn $ fRMB 2001
    putStrLn $ fRMB 2100
    putStrLn $ fRMB 2040
    putStrLn $ fRMB 12040
    putStrLn $ fRMB 30000
    putStrLn $ fRMB 30001
    putStrLn $ fRMB 30050
    putStrLn $ fRMB 31000
    putStrLn $ fRMB 31009
    putStrLn $ fRMB 1000030001
    putStrLn $ fRMB 1000000001
    putStrLn $ fRMB 1000000070
    putStrLn $ fRMB 1200030001
    putStrLn $ fRMB 1250030001