Haskell中如何结合toDigits与padLeft实现整数转补零数字列表

你已经完成了两个核心功能的编写，只需要按照业务逻辑的优先级梳理两者的调用关系，就能完全匹配作业要求，不需要额外编写大量代码：

• 优先处理边界情况：只要输入是0或者负数，直接返回空列表，完全不进入后续的拆位、补零流程（避免给空列表补0得到错误结果）
• 对正整数输入，先执行你已经写好的拆位逻辑，把整数转成各位数字组成的列表
• 把拆位得到的列表作为参数，调用你的padLeft函数，固定以9为目标长度、0为填充值，完成左侧补零

toDigits :: Integer -> [Integer]
toDigits n
  -- 边界判断：0和负数直接返回空列表
  | n <= 0    = []
  -- 正整数输入：拆位后调用padLeft补零到9位
  | otherwise = padLeft 9 0 (digitsOf n)
  where
    -- 仅处理正整数的拆位逻辑（移除原代码中冗余的负数判断）
    digitsOf 0 = []
    digitsOf x = digitsOf (x `div` 10) ++ [x `mod` 10]

padLeft :: Int -> a -> [a] -> [a]
padLeft n x xs = replicate (n - length xs) x ++ xs

• 你原有的toDigits没有调用补零函数，且把负数判断逻辑嵌套在递归拆位流程里，存在冗余：调整后把边界判断放在最外层，拆位逻辑只负责处理正整数，减少不必要的分支判断，也能避免后续修改代码时出现负数递归无限循环的问题
• 你写的padLeft可以直接复用，不需要修改：当待补的列表长度超过目标长度时，replicate接收到负长度参数会返回空列表，相当于直接返回原列表，刚好匹配“不足9位才补零”的规则，不会出现截断或者报错
• 测试验证完全匹配预期：
  • toDigits 496351：拆位得到[4,9,6,3,5,1]，补3个前导0后得到[0,0,0,4,9,6,3,5,1]
  • toDigits 0：触发边界判断，直接返回[]
  • toDigits (-17)：触发边界判断，直接返回[]

内容的提问来源于stack exchange，提问作者Yuki1112