在Haskell中增加字符串标识符的数字部分

Question

我有这段代码（我是Haskell的新手）。

import Data.List.Split 

padL :: Int -> String -> String 
padL n s 
    | length s < n = replicate (n - length s) '0' ++ s 
    | otherwise = s 

strInc :: String -> String -> String 
strInc sep str = 
     let strarr = splitOn sep str 
      zprefix = strarr !! 0 
      znumber = strarr !! 1 
     in zprefix ++ sep ++ padL (length (znumber)) (show (read (znumber) + 1)) 

这是不好的，一般的还是很好的Haskell代码？如何改进？ 谢谢。

Answer 1

import Data.List.Split 

不害怕使用非基本包：这很好。

-- Original code 
padL :: Int -> String -> String 
padL n s 
    | length s < n = replicate (n - length s) '0' ++ s 
    | otherwise = s 

不需要的情况：这不是“坏”，而是“愚蠢”。考虑替代：

-- New code 
padL n s = replicate (n - length s) '0' ++ s 

如果length s >= n然后replicate (0 or negative) '0' == ""而这个答案是一样的，否则情况。

-- Original code 
strInc :: String -> String -> String 
strInc sep str = 
     let strarr = splitOn sep str 
      zprefix = strarr !! 0 
      znumber = strarr !! 1 
     in zprefix ++ sep ++ padL (length (znumber)) (show (read (znumber) + 1)) 

使用索引到列表（!!）：（？如果什么列表是短比你预期的），这是不好的，因为它是丑陋的失败。

在使用括号的：这是恼人的

如何：

-- New code 
strInc :: String -> String -> String 
strInc sep str = 
    case splitOn sep str of 
     (zprefix:znumber:_) -> zprefix ++ sep ++ padL (length znumber) (show (read znumber + 1)) 
     _ -> "" -- some error value 

对所有很好的工作。做得很好。