Aplicaciones de operaciones

6 Comentarios

1. Haskell

   aplicaciones :: [a -> b -> c] -> [a] -> [b] -> [c] aplicaciones xs ys zs = [ x y z | x <- xs, y <- ys, z <- zs]

   1 2 3 4

   aplicaciones :: [a -> b -> c] -> [a] -> [b] -> [c] aplicaciones xs ys zs = [ x y z | x <- xs,                                  y <- ys,                                  z <- zs]

   Responder

2. Haskell

   aplicaciones :: [a -> b -> c] -> [a] -> [b] -> [c] aplicaciones fs xs ys = [f x y| f <- fs, x <- xs, y <-ys]

   1 2	aplicaciones :: [a -> b -> c] -> [a] -> [b] -> [c] aplicaciones fs xs ys = [f x y| f <- fs,  x <- xs, y <-ys]

   Responder

3. Usando functores aplicativos

   Haskell

   aplicaciones :: [a -> b -> c] -> [a] -> [b] -> [c] aplicaciones os xs ys = os <*> xs <*> ys

   1 2	aplicaciones :: [a -> b -> c] -> [a] -> [b] -> [c] aplicaciones os xs ys = os <*> xs <*> ys

   Eliminando los argumentos en la definición anterior

   Haskell

   aplicaciones :: [a -> b -> c] -> [a] -> [b] -> [c] aplicaciones = ((<*>) .) . (<*>)

   1 2	aplicaciones :: [a -> b -> c] -> [a] -> [b] -> [c] aplicaciones = ((<*>) .) . (<*>)

   Responder

4. Haskell

   aplicaciones :: [a -> b -> c] -> [a] -> [b] -> [c] aplicaciones os xs ys = aux os xs xs ys aux :: [a -> b -> c] -> [a] -> [a] -> [b] -> [c] aux (o:os) [] ys zs = aux os ys ys zs aux [] _ _ _ = [] aux a@(o:os) (x:xs) ys zs = map (o x) zs ++ aux a xs ys zs

   1 2 3 4 5 6 7

   aplicaciones :: [a -> b -> c] -> [a] -> [b] -> [c] aplicaciones os xs ys = aux os xs xs ys   aux :: [a -> b -> c] -> [a] -> [a] -> [b] -> [c] aux (o:os)    []     ys zs = aux os ys ys zs aux []        _      _  _  = [] aux a@(o:os) (x:xs) ys zs = map (o x) zs ++ aux a xs ys zs

   Responder

5. Haskell

   aplicaciones :: [a -> b -> c] -> [a] -> [b] -> [c] aplicaciones (f:os) xs ys = [f x y | x <- xs, y <- ys] ++ aplicaciones os xs ys aplicaciones _ _ _ = []

   1 2 3

   aplicaciones :: [a -> b -> c] -> [a] -> [b] -> [c] aplicaciones (f:os) xs ys = [f x y | x <- xs, y <- ys] ++ aplicaciones os xs ys aplicaciones _ _ _       = []

   Responder

6. Haskell

   aplicacion f (x:xs) ys = (map (f x) ys)++(aplicacion f xs ys) aplicacion f _ [] = [] aplicacion f [] _ = [] aplicaciones (f:os) xs ys = (aplicacion f xs ys) ++ (aplicaciones os xs ys) aplicaciones [] xs ys = []

   1 2 3 4 5

   aplicacion  f (x:xs) ys = (map (f x) ys)++(aplicacion f xs ys) aplicacion f _ [] = [] aplicacion f [] _ = [] aplicaciones (f:os) xs ys = (aplicacion f xs ys) ++ (aplicaciones os xs ys) aplicaciones [] xs ys = []

   Responder