Conjunto de relaciones binarias entre dos conjuntos

3 Comentarios

1. Haskell

   import Data.List (subsequences) relaciones :: [a] -> [b] -> [[(a,b)]] relaciones xs = subsequences . producto xs producto :: [a] -> [b] -> [(a,b)] producto xs ys = [(x,y) | x <- xs, y <- ys] nRelaciones :: [a] -> [b] -> Integer nRelaciones xs ys = 2^(length xs * length ys)

   1 2 3 4 5 6 7 8 9 10

   import Data.List (subsequences)   relaciones :: [a] -> [b] -> [[(a,b)]] relaciones xs = subsequences . producto xs   producto :: [a] -> [b] -> [(a,b)] producto xs ys = [(x,y) | x <- xs, y <- ys]   nRelaciones :: [a] -> [b] -> Integer nRelaciones xs ys = 2^(length xs * length ys)

   Responder

   1. llego a la misma solución, lo único que el producto lo defino dentro de relaciones, tal que así:

      Haskell

      import Data.List relaciones :: [a] -> [b] -> [[(a,b)]] relaciones xs ys = subsequences [(x,y) | x<-xs,y<-ys] nRelaciones :: [a] -> [b] -> Integer nRelaciones xs ys = 2^(length xs *length ys)

      1 2 3 4 5 6 7

      import Data.List   relaciones :: [a] -> [b] -> [[(a,b)]] relaciones xs ys = subsequences [(x,y) | x<-xs,y<-ys]   nRelaciones :: [a] -> [b] -> Integer nRelaciones xs ys = 2^(length xs *length ys)

      Responder

      1. La mía es parecida, pero defino nRelaciones de otra manera :

         Haskell

         import Data.List (subsequences) relaciones :: [a] -> [b] -> [[(a,b)]] relaciones xs ys = subsequences aux1 where aux1 = productoCartesiano xs ys productoCartesiano :: [a] -> [b] -> [(a,b)] productoCartesiano xs ys = [(x,y)| x <- xs, y <- ys] nRelaciones :: [a] -> [b] -> Integer nRelaciones xs ys = 2^aux2 where aux2 = length $ productoCartesiano xs ys

         1 2 3 4 5 6 7 8 9 10 11 12

         import Data.List (subsequences)   relaciones :: [a] -> [b] -> [[(a,b)]] relaciones xs ys = subsequences aux1   where aux1 = productoCartesiano xs ys   productoCartesiano :: [a] -> [b] -> [(a,b)] productoCartesiano xs ys = [(x,y)| x <- xs, y <- ys]   nRelaciones :: [a] -> [b] -> Integer nRelaciones xs ys = 2^aux2   where aux2 = length $ productoCartesiano xs ys

         Responder