99 个 Elm 难题/难题 3/解决方案

解决方案 1：递归版本

nth n list =
  case (list, n) of
    ([], _) -> Nothing
    (head :: _, 0) -> Just head
    (_ :: tail, _) -> nth (n-1) tail

解决方案 2：点式自由版本

nth n =
  drop n >> head