Aplicaciones alternativas

PorJosé A. Alonso 26-noviembre-201425-marzo-2022

Enunciado

-- Definir la función
--    alternativa :: (a -> b) -> (a -> b) -> [a] -> [b]
-- tal que (alternativa f g xs) es la lista obtenida aplicando
-- alternativamente las funciones f y g a los elementos de xs. Por
-- ejemplo, 
--    alternativa (+1)  (+10) [1,2,3,4]    ==  [2,12,4,14]
--    alternativa (+10) (*10) [1,2,3,4,5]  ==  [11,20,13,40,15]

1

2

3

4

5

6

7

-- Definir la función

-- alternativa :: (a -> b) -> (a -> b) -> [a] -> [b]

-- tal que (alternativa f g xs) es la lista obtenida aplicando

-- alternativamente las funciones f y g a los elementos de xs. Por

-- ejemplo,

-- alternativa (+1) (+10) [1,2,3,4] == [2,12,4,14]

-- alternativa (+10) (*10) [1,2,3,4,5] == [11,20,13,40,15]

Soluciones

[schedule expon=’2014-12-03′ expat=»06:00″]

Las soluciones se pueden escribir en los comentarios hasta el 3 de diciembre.
El código se debe escribir entre una línea con <pre lang=»haskell»> y otra con </pre>

[/schedule]

[schedule on=’2014-12-03′ at=»06:00″]

-- 1ª definición (por recursión):
alternativa1 :: (a -> b) -> (a -> b) -> [a] -> [b]
alternativa1 f g []     = []
alternativa1 f g (x:xs) = f x : alternativa1 g f xs

-- 2ª definición (por comprensión):
alternativa2 :: (a -> b) -> (a -> b) -> [a] -> [b]
alternativa2 f g xs = 
    [h x | (h,x) <- zip (cycle [f,g]) xs]

1

2

3

4

5

6

7

8

9

-- 1ª definición (por recursión):

alternativa1 :: (a -> b) -> (a -> b) -> [a] -> [b]

alternativa1 f g [] = []

alternativa1 f g (x:xs) = f x : alternativa1 g f xs

-- 2ª definición (por comprensión):

alternativa2 :: (a -> b) -> (a -> b) -> [a] -> [b]

alternativa2 f g xs =

[h x | (h,x) <- zip (cycle [f,g]) xs]

[/schedule]

5 Comentarios

Jesús Navas Orozco dice:

26-noviembre-2014 a las 15:02

Haskell

alternativa :: (a -> b) -> (a -> b) -> [a] -> [b] alternativa _ _ [] = [] alternativa f _ [x] = [f x] alternativa f g (x:y:xs) = f x: g y: alternativa f g xs

1
2
3
4

alternativa :: (a -> b) -> (a -> b) -> [a] -> [b]
alternativa _ _ [] = []
alternativa f _ [x] = [f x]
alternativa f g (x:y:xs) = f x: g y: alternativa f g xs

Responder
Sara Díaz Real dice:

26-noviembre-2014 a las 16:38

Haskell

alternativa :: (a -> b) -> (a -> b) -> [a] -> [b] alternativa f g [] = [] alternativa f g[x] = [f x] alternativa f g (x:y:xs)= f x : g y : alternativa f g xs

1
2
3
4

alternativa :: (a -> b) -> (a -> b) -> [a] -> [b]
alternativa f g [] = []
alternativa f g[x] = [f x]
alternativa f g (x:y:xs)= f x : g y : alternativa f g xs

Responder
Diego dice:

26-noviembre-2014 a las 23:27

Ha costado, pero aquí hay una solución con sólo funciones de orden superior.

Haskell

alternativa :: (a -> b) -> (a -> b) -> [a] -> [b] alternativa f g = zipWith ($) (concat (repeat [f,g]))

1
2

alternativa :: (a -> b) -> (a -> b) -> [a] -> [b]
alternativa f g = zipWith ($) (concat (repeat [f,g]))

Responder
1. Diego dice:
  
  27-noviembre-2014 a las 19:06
  
  O más simple:
  
  Haskell
  
  alternativa :: (a -> b) -> (a -> b) -> [a] -> [b] alternativa f g = zipWith ($) (cycle [f,g])
  
  1
  2
  
  alternativa :: (a -> b) -> (a -> b) -> [a] -> [b]
  alternativa f g = zipWith ($) (cycle [f,g])
  
  Responder
Eduardo Román dice:

1-diciembre-2014 a las 22:12

Haskell

alternativa :: (a -> b) -> (a -> b) -> [a] -> [b] alternativa _ _ [] = [] alternativa f g (x:xs) = f x : alternativa g f xs

1
2
3

alternativa :: (a -> b) -> (a -> b) -> [a] -> [b]
alternativa _ _ []     = []
alternativa f g (x:xs) = f x : alternativa g f xs

Responder

Escribe tu soluciónCancel reply