longestLastname :: [Person] -> Person longestLastname names = maximumBy (comparing (length . lastname)) names
extractProperty list = map (\x -> (f x, x)) list