line 13: unlit: Program line next to comment phase `Literate pre-processor' failed (exitcode = 1) - Haskell - Ответ 5804297

-- split3' - функция с тремя накопительными параметрами.
 
split3' :: [a] -> [a] -> [a] -> [a] -> [[a]]  -- тип функции
 
split3' [] x y z = [x,y,z] -- если входной список исчерпан - объединяем накопленное и возвращаем
-- если в списке более трех элементов - рекурсивно применяем функцию к остатку списка
-- без первых трех. При этом первый присоединяем к нак. параметру x; второй - к y; третий - к z.
split3' p x y z | (length p) >= 3 = split3' (drop 3 p) (x ++ [p1]) (y ++ [p2]) (z ++ [p3]) 
-- если осталось два элемента - присоединем первый к x; второй к y и возвращаем объединение;
                | (length p) == 2 = [(x ++ [p1]) , (y ++ [p2]),z]
-- если остался один элемент - присоединем его к x;  и возвращаем объединение;
                | (length p) == 1 = [(x ++ [p1]),y,z]
                   where p1 = p !! 0 -- первый элемент
                         p2 = p !! 1 -- второй
                         p3 = p !! 2 -- третий
-- функция-оболочка (чтобы при вызове не задавать три пустых списка).
split3 :: [a] -> [[a]]
split3 x = split3' x [] [] []