2011-07-11 53 views
0

兩個函數digitsfirstDigit定義如下:添加一個firstDigit - 哈斯克爾

digits :: String -> String 
digits st = [ ch | ch <- st , isDigit ch ] 

firstDigit :: String -> Char 
firstDigit st 
= case (digits st) of 
    []  -> '\0' 
    (x:_) -> x 

不過,我將如何去定義一個函數,增加了一到這個firstDigit,然後返回結果。

P

+3

你到目前爲止嘗試過什麼? StackOverflow可以爲作業提供幫助,而不是作業回答。 – stusmith

+0

我嘗試以下: – user832488

+0

firstDigitPlusOne ::字符串 - 的 []>字符 firstDigitPlusOne ST =情況下(位ST) - > '\ 0' (X:_) - > X + 1 – user832488

回答

3

我想你需要digitToInt,在Data.Char定義。

+0

我該如何將它應用到上面定義的函數? – user832488

+0

你的函數返回Char,digitToInt接受Char作爲它的輸入(Char-> Int),那麼你還希望什麼? –