99 Elm problems — My solutions (solution only listed if different from others)

lists-problem-3.elm

elementAt : List a -> Int -> Maybe a
elementAt xs n =
    case List.drop (n - 1) xs of
      [ ]
        -> Nothing
      y::ys
        -> Just y

lists-problem-4.elm

countElements : List a -> Int
countElements xs =
    List.map (always 1) xs |> List.sum