fedepujol / parcial-piratas-funcional

Paradigmas de Programacion

Parcial:

- Fecha: 08/05/2018
- Nombre: Piratas del Caribe
- Paradigma: Funcional

Consideraciones

Brach:

• Master: resolucion del parcial.
• Final: resolucion con errores corregidos.

Codigo

Funcion zipWith

En el branch master, se encuentra el error de usar la funcion zipWith con dos listas de distintos tamaños. La funcion zipWith acorta el resultado al tamaño de la lista mas corta.

Ej:

unaLista :: [Int]
unaLista = [1, 2, 3]

otraLista :: [Int]
otraLista = [4, 5]

funcionEjemplo :: [Int] -> [Int] -> [Int]
funcionEjemplo unaLista otraLista = zipWith (+) unaLista otraLista

Resultado:

[5, 7]

Repeticion de logica:

...
anclarEnIsla :: Isla -> Tripulacion -> Tripulacion
anclarEnIsla isla tripulacion
   | length isla == length tripulacion = zipWith sumarABotin tripulacion isla
   | otherwise = tripulacion
...
saquearCiudad :: Ciudad -> Tripulacion -> Tripulacion
saquearCiudad ciudad tripulacion
   | length ciudad == length tripulacion = zipWith robarJoyas ciudad tripulacion
   | otherwise = tripulacion
...
manoAMano :: Tripulacion -> Tripulacion -> Tripulacion
manoAMano atacantes defensores
   | length atacantes == length defensores = zipWith ataqueEntrePiratas atacantes defensores
   | otherwise = defensores

Con un nivel mas de abstraccion:

aplicaZipCriterio criterio lista1 lista2 = zipWith criterio lista1 lista2 ++ drop (length lista1) lista2

Dando como resultado:

anclarEnIsla :: Isla -> Tripulacion -> Tripulacion
anclarEnIsla isla tripulacion = aplicaZipCriterio (flip sumarABotin) isla tripulacion
...

Enunciado