Subexpresiones aritméticas

3 Comentarios

1. Haskell

   import Data.Set data Expr = N Int | S Expr Expr | P Expr Expr deriving (Eq, Ord, Show) subexpresiones :: Expr -> Set Expr subexpresiones (N a) = singleton (N a) subexpresiones (S x y)= insert (S x y) (union (subexpresiones x) (subexpresiones y )) subexpresiones (P x y)= insert (P x y) (union (subexpresiones x) (subexpresiones y ))

   1 2 3 4 5 6 7 8 9 10

   import Data.Set   data Expr = N Int | S Expr Expr | P Expr Expr       deriving (Eq, Ord, Show)     subexpresiones :: Expr -> Set Expr subexpresiones (N a) = singleton (N a) subexpresiones (S x y)= insert (S x y) (union (subexpresiones x) (subexpresiones y )) subexpresiones (P x y)= insert (P x y) (union (subexpresiones x) (subexpresiones y ))

   Responder

2. Haskell

   import Data.Set data Expr = N Int | S Expr Expr | P Expr Expr deriving (Eq, Ord, Show) subexpresiones :: Expr -> Set Expr subexpresiones (N n) = fromList [N n] subexpresiones (S a b) = unions [(subexpresiones a), (subexpresiones b), (fromList [S a b])] subexpresiones (P a b) = unions [(subexpresiones a), (subexpresiones b), (fromList [P a b])]

   1 2 3 4 5 6 7 8 9

   import Data.Set data Expr = N Int | S Expr Expr | P Expr Expr     deriving (Eq, Ord, Show) subexpresiones :: Expr -> Set Expr subexpresiones (N n) = fromList [N n] subexpresiones (S a b) = unions [(subexpresiones a), (subexpresiones b), (fromList [S a b])] subexpresiones (P a b) = unions [(subexpresiones a), (subexpresiones b), (fromList [P a b])]

   Responder

3. Haskell

   import Data.Set data Expr = N Int | S Expr Expr | P Expr Expr deriving (Eq, Ord, Show) subexpresiones :: Expr -> Set Expr subexpresiones (N x) = singleton (N x) subexpresiones (S i d) = unions [subexpresiones i, subexpresiones d, singleton (S i d)] subexpresiones (P i d) = unions [subexpresiones i, subexpresiones d, singleton (P i d)]

   1 2 3 4 5 6 7 8 9

   import Data.Set   data Expr = N Int | S Expr Expr | P Expr Expr deriving (Eq, Ord, Show)   subexpresiones :: Expr -> Set Expr subexpresiones (N x) = singleton (N x) subexpresiones (S i d) = unions [subexpresiones i, subexpresiones d, singleton (S i d)] subexpresiones (P i d) = unions [subexpresiones i, subexpresiones d, singleton (P i d)]

   Responder