number-comparable.elm

maxNum : List ( comparable, number ) -> Maybe ( comparable, number )
maxNum tuples =
  case tuples of
    x :: xs ->
      Just
        (List.foldl
          (\(( _, count ) as tup) maxSoFar ->
            if count  > (snd maxSoFar) then
              tup
            else
              maxSoFar
          )
          x
          xs
        )

    _ ->
      Nothing