99 個 Elm 問題/問題 4/解決方案

解決方案 1：遞迴版本

myLength list =
  case list of
    [] -> 0
    head :: tail -> 1 + myLength tail

解決方案 2：使用 List.foldl

myLength = List.foldl (\_ b -> b + 1) 0