99 道 Elm 習題/第 14 題/解答

解答 1：遞迴版本

duplicate list =
  case list of
    [] -> []
    x :: xs -> x :: x :: duplicate xs

解答 2：使用 List.foldr 進行的無關鍵點版本

duplicate = List.foldr (\x xs -> x :: x :: xs) []