У меня есть функция, которая преобразует [a, b, c, d, . . . ] до [(a,b), (c, d), . . .]. Теперь это работает, и вот код для этого: makeTuple :: [a] -> [(a,a)] makeTuple [] = [] makeTuple [a] = [] makeTuple (x:y:xs) = (x,y): (makeTuple...