Haskell和字符串長度

Question

我在Haskell的新手，我有一個問題： 我寫的代碼：

word_list = ["list", "lol", "wordword"] 
check str = if head str == 'l' then tail str else str 
average wl = (length $ concat $ map check wl) `div` length wl 

這個代碼必須刪除在單詞表中的每一個字第一個「L」標誌，CONCAT收到的話，得到結果字符串的長度和字數的div。

所以在這個代碼我必須收到： 13/3 = 4,333 ...（ 「listlolwordword」= 15， 「istolwordword」= 13） 但我只收到4

average :: [[Char]] -> Float不工作，我收到錯誤。我的錯誤在哪裏？ ps。對不起我的英語水平，請

Answer 1

的length函數返回一個Int和div函數執行整數除法，換句話說，它丟棄小數部分。如果你想要一個Float因此，你需要先轉換結果的length到Float，然後用(/)爲師，而不是：

word_list = ["list", "lol", "wordword"] 
check str = if head str == 'l' then tail str else str 
average wl = fromIntegral (length $ concat $ map check wl)/fromIntegral (length wl) 

，而我在這，你應該考慮使用模式在check匹配，而不是如：

check ('l':str) = str 
check str = str 

這種風格既更具可讀性和不太可能有錯誤 - 例如，如果給一個空字符串您的版本將失敗。