回答は、下記なのですが、理解に苦しみました。 compress :: Eq a => [a] -> [a] compress = map head . group mapを使ってリストの要素に対してhead . group をする意味が分かりませんでした。 map head . group [1,1,2,2,3] とあったときにリストの要素0番…