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