I'm trying to compile this function:
fff [] _ = []
fff (x:xs) ys
| r == [] = xs1
| otherwise ys ++ xs1
where r = filter (x<) ys
xs1 = fff xs ys
But I get this error:
Test.hs:14:4: parse error on input `where'
Failed, modules loaded: none.
Any help to solve it?
Thanks,
Sebastián.