Skip to main content
1 de 2
ChemaCortes
  • 8.9k
  • 22
  • 36

Una forma directa:

repartir :: [a] -> ([a],[a])
repartir xs = ([xs!!i | i <- [0,2..n]], [xs!!i | i <- [1,3..n]])
    where n = length xs - 1

El operador !! no es muy eficiente en listas, por lo que no hay que abusar de él. Una versión más eficaz:

repartir :: [a] -> ([a],[a])
repartir xs = ([x | (i,x) <- zs, odd i], [x | (i,x) <- zs, even i])
    where zs = zip [1..] xs

PD: no ha hecho falta importar el módulo Data.List ya que las funciones necesarias están incluidas en el Prelude

ChemaCortes
  • 8.9k
  • 22
  • 36