Skip to main content
se añadieron 39 caracteres en el cuerpo
Origen Enlace
ChemaCortes
  • 8.9k
  • 22
  • 36

Me piden hacer recursivamente que dados 3 listas de enteros, se concatene en la última lista la concatenación inversa de las dos primeras listas. Ejemplo: invconc_aux [1,2,3] [4,5,6,7,8] [9,10] debería de quedar así [8,7,6,5,4,3,2,1,9,10]. Adjunto mi código:

invconc_aux::[Integer]->[Integer]->[Integer]->[Integer]
invconc_aux [] [] w = w
invconc_aux s r w
   |null s = invconc_aux s [head(tail r)] ++ ([head r] ++ w)
   | otherwise = invconc_aux [head(tail s)] r ([head s] ++ w) 
invconc_aux :: [Integer] -> [Integer] -> [Integer] -> [Integer]
invconc_aux [] [] w = w
invconc_aux s r w
   | null s = invconc_aux s [head(tail r)] ++ ([head r] ++ w)
   | otherwise = invconc_aux [head(tail s)] r ([head s] ++ w) 

Mi idea es que hasta que ss no esté vaciovacío se vayan concatenando los elementos de ss al comienzo de ww, y cuando ss esté vacío se vayan concatenando los elementos de rr al comienzo de ww. Cuando ss y rr estén ambos vacíos se devolverá Ww.

Me piden hacer recursivamente que dados 3 listas de enteros, se concatene en la última lista la concatenación inversa de las dos primeras listas. Ejemplo: invconc_aux [1,2,3] [4,5,6,7,8] [9,10] debería de quedar así [8,7,6,5,4,3,2,1,9,10]. Adjunto mi código:

invconc_aux::[Integer]->[Integer]->[Integer]->[Integer]
invconc_aux [] [] w = w
invconc_aux s r w
   |null s = invconc_aux s [head(tail r)] ++ ([head r] ++ w)
   | otherwise = invconc_aux [head(tail s)] r ([head s] ++ w) 

Mi idea es que hasta que s no esté vacio se vayan concatenando los elementos de s al comienzo de w y cuando s esté vacío se vayan concatenando los elementos de r al comienzo de w. Cuando s y r estén ambos vacíos se devolverá W

Me piden hacer recursivamente que dados 3 listas de enteros, se concatene en la última lista la concatenación inversa de las dos primeras listas. Ejemplo: invconc_aux [1,2,3] [4,5,6,7,8] [9,10] debería de quedar así [8,7,6,5,4,3,2,1,9,10]. Adjunto mi código:

invconc_aux :: [Integer] -> [Integer] -> [Integer] -> [Integer]
invconc_aux [] [] w = w
invconc_aux s r w
   | null s = invconc_aux s [head(tail r)] ++ ([head r] ++ w)
   | otherwise = invconc_aux [head(tail s)] r ([head s] ++ w) 

Mi idea es que hasta que s no esté vacío se vayan concatenando los elementos de s al comienzo de w, y cuando s esté vacío se vayan concatenando los elementos de r al comienzo de w. Cuando s y r estén ambos vacíos se devolverá w.

Origen Enlace

Que falla o cómo puedo hacer esto recursivamente en Haskell

Me piden hacer recursivamente que dados 3 listas de enteros, se concatene en la última lista la concatenación inversa de las dos primeras listas. Ejemplo: invconc_aux [1,2,3] [4,5,6,7,8] [9,10] debería de quedar así [8,7,6,5,4,3,2,1,9,10]. Adjunto mi código:

invconc_aux::[Integer]->[Integer]->[Integer]->[Integer]
invconc_aux [] [] w = w
invconc_aux s r w
   |null s = invconc_aux s [head(tail r)] ++ ([head r] ++ w)
   | otherwise = invconc_aux [head(tail s)] r ([head s] ++ w) 

Mi idea es que hasta que s no esté vacio se vayan concatenando los elementos de s al comienzo de w y cuando s esté vacío se vayan concatenando los elementos de r al comienzo de w. Cuando s y r estén ambos vacíos se devolverá W