하스켈에서 정렬 된 목록에 새 항목 만들기

Question

다음 코드를 구현하여 이름 목록에 새 항목을 만들었습니다 (이름과 생년월일 포함). 목록은 알파벳순으로 정렬되며이 정렬을 유지해야합니다. 이름이 같은 경우 날짜가 정렬을 정의합니다. dateTurn 함수는 날짜를 바꿔서 완벽하게 작동합니다.

type Lastname = String 
type Firstname = String 

dateTurn :: (Int, Int, Int) -> (Int, Int, Int) 
dateTurn (a,b,c) = (c,b,a) 

new :: ((Lastname,Firstname),(Int,Int,Int)) -> [((Lastname,Firstname),(Int,Int,Int))] -> [((Lastname,Firstname),(Int,Int,Int))] 
new x [] = [x] 
new x (y:ys) 
    |(fst x)<(fst y) = x:(y:ys) 
    |(fst x)>(fst y) = y: (new x ys) 
    |(fst x)==(fst y) = if (dateTurn (snd x))<(dateTurn (snd y)) then y: (new x ys) else (x:y:ys) 

스크립트를 컴파일하는 중 오류가 없습니다. 사람 목록을 빈 목록에 추가하면 제대로 작동합니다. 그러나 비어 있지 않은 목록에 추가하면. 프로그램이 작동을 멈추지 않으면 작동을 멈추기 위해 중단해야합니다. 그래서 어떻게이 문제를 해결할 수 있습니까? 당신이 조작

Answer 1

은 일반적인 당신해야 추상적 그것을

insertSorted :: Ord a => a -> [a] -> [a] 
insertSorted x [] = [x] 
insertSorted x (y:ys) | x <= y = x: y: ys 
         | otherwise = y: insertSorted x ys 

다음, 나를 위해 Ord

data Person = Person { name :: String 
        , age :: Int 
        } deriving (Eq, Show) 

instance Ord Person where 
    (Person a _) `compare` (Person b _) = a `compare` b 

다음

print $ insertSorted (Person "Peter" 5) [ Person "John" 6 
             , Person "Zorn" 3]