演習問題

8章の演習問題を解きました。ポイントフリースタイルで書く問題。

まずはlstrip

lstrip :: String -> String
lstrip = dropWhile (== ' ')

そしてrstrip

rstrip :: String -> String
rstrip = reverse . lstrip . reverse

最後にstrip

strip :: String -> String
strip = rstrip . lstrip

回答例を見るとlstripがちょっと違っていました。

import Char

lstrip :: String -> String
lstrip = dropWhile isSpace

isSpaceのことをすっかり忘れていましたよ。