「入門Haskell」のp.31から二つ目。
② 単語のカウント方法として，`Theory of Everything'のようにバッククォートとシングルクォートで囲まれたパートを，１つの単語として表現するように wordsCount を拡張しなさい。
オリジナルの wordsCount。
wordsCount str = outWords str
where outWords [] = 0
outWords (c:cs)
| isAlphaNum c = 1 + inWords cs
| otherwise = outWords cs
inWords [] = 0
inWords (c:cs)
| isAlphaNum c = inWords cs
| otherwise = outWords cs拡張版。
wordsCount str = outWords str
where outWords [] = 0
outWords (c:cs)
| c == '`' = 1 + inQuote cs
| isAlphaNum c = 1 + inWords cs
| otherwise = outWords cs
inWords [] = 0
inWords (c:cs)
| c == '`' = 1 + inQuote cs
| isAlphaNum c = inWords cs
| otherwise = outWords cs
inQuote [] = 0
inQuote (c:cs)
| c == '\'' = outWords cs
| otherwise = inQuote cs結果。
*Main> wordsCount "`Theory of Everything' by Greg Egan" 4
