在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 

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