99 個艾爾姆難題/第 8 個難題/解答

解答 1：遞迴版本

compress list =
  case list of
    [] -> []
    [ first ] -> [ first ]
    first :: next :: tail ->
      if first == next then
        compress (next :: tail)
      else
        first :: compress (next :: tail)