make it functional 함수형 프로그래밍의 모든 것

하스켈을 오늘 처음 접한 에이쥬어라고 합니다. 절차형 언어만 하다가 하스켈 같은 함수형 언어를 잡아 보니 신기합니다.

merge2 a [] = a
merge2 [] b = b
merge2 (x:xs) (y:ys) 
   | x < y = x:merge2 xs (y:ys)
   | x > y = y:merge2 (x:xs) ys
   | otherwise = x:y:merge2 xs ys 

mergesort [] = []
mergesort (x:xs) = merge2 [x] (mergesort xs)


*Main> mergesort [1,5,4,3,7,9]
[1,3,4,5,7,9]

솔직히 루비로 짤 때에 비해서 그리 짧아 보이지 않습니다만, 제가 미숙한 탓이겠죠.

더 하스켈스러운 코드라면 어떤 것이 있을까요?