Rename method name & compare fullname

main
Hammy 4 years ago
parent 61abf66828
commit fe3526b6fb

@ -1,22 +1,51 @@
import Data.List (sort, sortBy) import Data.List (sort, sortBy)
import AllNames (names) import AllNames (names)
compareLastNames :: Ord a1 => (a2, a1) -> (a3, a1) -> Ordering compareSurname :: Ord a1 => (a2, a1) -> (a3, a1) -> Ordering
compareLastNames name1 name2 = if surname1 > surname2 compareSurname name1 name2 = if surname1 > surname2
then GT then GT
else if surname1 < surname2 else if surname1 < surname2
then LT then LT
else EQ else EQ
where surname1 = snd name1 where surname1 = snd name1
surname2 = snd name2 surname2 = snd name2
-- Using Guards for boolean expressions compareFullName :: (Ord a1, Ord a2) => (a2, a1) -> (a2, a1) -> Ordering
compareFullName name1 name2 = if surname1 > surname2
then GT
else if surname1 < surname2
then LT
else if forename1 > forename2
then GT
else if forename1 < forename2
then LT
else EQ
where surname1 = snd name1
surname2 = snd name2
forename1 = fst name1
forename2 = fst name2
{- Using Guards for boolean expressions
compareSurname :: Ord a1 => (a2, a1) -> (a3, a1) -> Ordering
compareSurname name1 name2
| surname1 > surname2 = GT
| surname1 < surname2 = LT
| otherwise = EQ
where
surname1 = snd name1
surname2 = snd name2
-- compareLastNames :: Ord a1 => (a2, a1) -> (a3, a1) -> Ordering compareFullName :: (Ord a1, Ord a2) => (a2, a1) -> (a2, a1) -> Ordering
-- compareLastNames name1 name2 compareFullName name1 name2
-- | surname1 > surname2 = GT | lastName1 > lastName2 = GT
-- | surname1 < surname2 = LT | lastName1 < lastName2 = LT
-- | otherwise = EQ | firstName1 > firstName2 = GT
-- where | firstName1 < firstName2 = LT
-- surname1 = snd name1 | otherwise = EQ
-- surname2 = snd name2 where
lastName1 = snd name1
lastName2 = snd name2
firstName1 = fst name1
firstName2 = fst name2
-}
Loading…
Cancel
Save