하스켈 - 병합 단어와 숫자 정렬하기

Question

하스켈에서 병합 정렬을 작성했습니다. 숫자가 아닌 단어를 사용할 때 작동합니다. 그렇게 생각했습니다. 단어와 글자를 사용할 때 "범위가 맞지 않습니다"라는 메시지가 나타납니다. 내가 도대체 ​​뭘 잘못하고있는 겁니까?

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

mergeSort :: Ord a => [a] -> [a] 
mergeSort [] = [] 
mergeSort [x] = [x] 
mergeSort xs 
    = merge (mergeSort top) (mergeSort bottom) 
    where 
    (top, bottom) = splitAt (length xs `div` 2) xs 

Answer 1

는이 같은 단어를 입력 :

여기 내 코드입니까?

[this,is,an,example,sentence] 

구문이 올바르지 않습니다. 당신이 입력에 리터럴 문자열을 원하는 경우에, 당신은 큰 따옴표 (")에서 그것을 encapsulte해야 :

["this","is","an","example","sentence"] 

을 그 당신의 오류,이 대답을 무시 주시기없는 경우.

Answer 2

코드가 올바르게 작동합니다.

그러나 length을 사용하지 않고 한 번에 목록을 분할하는 것이 좋습니다. 물론 순서는 중요하지 않습니다. 단지 두 개의 동일한 크기 목록 만 가지고 있습니다. ...

splitList zs = go zs [] [] where 
    go [] xs ys = (xs, ys) 
    go [x] xs ys = (x:xs, ys) 
    go (x:y:zs) xs ys = go zs (x:xs) (y:ys)  

... 또는 인덱스를 사용하여 ...

splitList [] = ([],[]) 
splitList [x] = ([x],[]) 
splitList (x:y:zs) = let (xs,ys) = splitList zs in (x:xs, y:ys) 

... 또는 재귀 꼬리

splitList xs = (go even, go odd) where 
    go f = map snd $ filter (f.fst) $ indexed 
    indexed = zip [0..] xs 

... 나 : 당신은 그런 식으로 할 수 접은자를 사용하여 ...

import Data.List 

splitList zs = snd $ foldl' go (True,([],[])) zs where 
    go (True,(xs,ys)) x = (False,(x:xs,ys)) 
    go (False,(xs,ys)) x = (True,(xs,x:ys))