bestPackage :: [Package] -> Package
bestPackage = maximumBy (compare `on` (\(_, w, p) -> (p, -w)))
bestPackage :: [Package] -> Package
bestPackage = maximumBy (compare `on` (\(_, w, p) -> (p, -w)))
bestPackage = maximumBy (compare `on` (\(_, w, p) -> (p, -w)))