line 13: unlit: Program line next to comment phase `Literate pre-processor' failed (exitcode = 1)

split3' :: [a] -> [a] -> [a] -> [a] -> [[a]]
split3' [] x y z = [x,y,z]
split3' p x y z | (length p) >= 3 = split3' (drop 3 p) (x ++ [p1]) (y ++ [p2]) (z ++ [p3]) 
                | (length p) == 2 = [(x ++ [p1]) , (y ++ [p2]),z]
                | (length p) == 1 = [(x ++ [p1]),y,z]
                   where p1 = p !! 0
                         p2 = p !! 1
                         p3 = p !! 2
 
split3 :: [a] -> [[a]]
split3 x = split3' x [] [] []
 
Main> split3 [1,2,3,4,5,6,7]
 
[[1,4,7],[2,5],[3,6]]
 
Main> split3 "Abrakadabra"
 ["Aadr","bkaa","rab"]

split3' :: [a] -> [a] -> [a] -> [a] -> [[a]]
split3' [] x y z = [x,y,z]
split3' p x y z | (length p) >= 3 = split3' (drop 3 p) (x ++ [p1]) (y ++ [p2]) (z ++ [p3]) 
                | (length p) == 2 = [(x ++ [p1]) , (y ++ [p2]),z]
                | (length p) == 1 = [(x ++ [p1]),y,z]
                   where p1 = p !! 0
                         p2 = p !! 1
                         p3 = p !! 2
 
split3 :: [a] -> [[a]]
split3 x = split3' x [] [] []

split3 [1,2,3,4,5,6,7]

-- 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 [] [] []

split3 :: [a] -> [[a]]
split3 x = [p1,p2,p3]
           where p1 = map fst (filter (\ w -> ((snd w) `mod` 3) == 1) p)
                 p2 = map fst (filter (\ w -> ((snd w) `mod` 3) == 2) p)
                 p3 = map fst (filter (\ w -> ((snd w) `mod` 3) == 0) p)
                 p = zip x [1..]

[p1,p2,p3] = [ map fst $ filter (\ w -> mod (snd w) 3 - k == 0) $ p | k <- [1..3] ]