Haskell Ошибка синтаксического анализа в определении функции

Question

Я пытаюсь скомпилировать эту функцию:

fff [] _ = [] 
fff (x:xs) ys 
    | r == [] = xs1 
    | otherwise ys ++ xs1 
    where r = filter (x<) ys 
     xs1 = fff xs ys 

Но я получаю эту ошибку:

Test.hs:14:4: parse error on input `where'

Failed, modules loaded: none.

Любая помощь, чтобы решить эту проблему?

Thanks,
Sebastián.

Answer 1

Вы пропустили необходимый = после otherwise.

Кстати, r == [] лучше заменить на более общий null r.

Попробуйте это:

fff [] _ = [] 
fff (x:xs) ys 
    | r == [] = xs1 
    | otherwise = ys ++ xs1 
    where r = filter (x<) ys 
      xs1 = fff xs ys