Estoy realizando un ejercicio de programación en Haskell, en el cual doy unos valores en una lista por ejemplo [1, 2, 2, 3, 4] y debe quedar de la siguiente forma [1, 4, 3, 4]. Hasta ahí el programa me funciona sin problemas con el siguiente código:
sustituirSumando [x,y]
| x==y = [x+y]
| otherwise = [x,y]
sustituirSumando [x,y,z]
| x==y = [x+y,z]
| y==z = [x,y+z]
|otherwise = [x,y,z]
sustituirSumando (x:y:xs)
| x==y = (x+y) : sustituirSumando (xs)
| otherwise = x: sustituirSumando (y:xs)
Donde no sé cómo proceder es en el siguiente supuesto ejemplo [1, 2, 2, 4, 5] aquí la lista debería quedar de la siguiente forma [1, 8, 5] pero en mi código queda [1, 4, 4, 5]. Gracias de antemano.