Le 16 sept. 2013 19:35, "Florian Lammel" <mail@florianlammel.com> a écrit :
> splitInHalf :: [a] -> ([a], [a])
> splitInHalf [] = ([], [])
> splitInHalf [x] = ([x], [])
> splitInHalf (x:y:xys) = (x:xs, y:ys)
>     where (xs, ys) = splitInHalf xys

Try the following :

>    where ~(xs, ys) = splitInHalf xys

And let us know if that help.
--
Chaddaï