Haskell Merge Sort

Question

Это реализация Mergesort с использованием функций более высокого порядка, охранников, где и рекурсия.

Однако получаю сообщение об ошибке от компилятора 6:26: parse error on input ‘=’

mergeSort :: ([a] -> [a] -> [a]) -> [a] -> [a] 
    mergeSort merge xs 
     | length xs < 2 = xs 
     | otherwise = merge (mergeSort merge first) (mergeSort merge second) 
     where first = take half xs 
       second = drop half xs 
       half = (length xs) `div` 2 

Я не могу видеть, что случилось? или, скорее, я не понимаю компилятор.

Answer 1

Haskell - это язык программирования, чувствительный к отступу, вам просто нужно исправить это (кстати, если вы используете изменения табуляции, чтобы использовать пробелы).

mergeSort :: ([a] -> [a] -> [a]) -> [a] -> [a] 
mergeSort merge xs 
     | length xs < 2 = xs 
     | otherwise = merge (mergeSort merge first) (mergeSort merge second) 
     where first = take half xs 
       second = drop half xs 
       half = length xs `div` 2 

Answer 2

msort реализация в Хаскелле;

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 

halve :: [a] -> ([a],[a]) 
halve xs = (take lhx xs, drop lhx xs) 
      where lhx = length xs `div` 2 

msort :: Ord a => [a] -> [a] 
msort [x] = [x] 
msort xs = merge (msort left) (msort right) 
      where (left,right) = halve xs