Actualización de «Expresiones vectoriales»
He actualizado las soluciones del ejercicio Expresiones vectoriales cuyo enunciado es
El siguiente tipo de dato define las expresiones vectoriales formadas por un vector, la suma de dos expresiones vectoriales o el producto de un entero por una expresión vectorial.
data ExpV = Vec Int Int | Sum ExpV ExpV | Mul Int ExpV deriving Show
Definir la función
valor :: ExpV -> (Int,Int)
tal que (valor e) es el valor de la expresión vectorial e. Por ejemplo,
valor (Vec 1 2) == (1,2) valor (Sum (Vec 1 2 ) (Vec 3 4)) == (4,6) valor (Mul 2 (Vec 3 4)) == (6,8) valor (Mul 2 (Sum (Vec 1 2 ) (Vec 3 4))) == (8,12) valor (Sum (Mul 2 (Vec 1 2)) (Mul 2 (Vec 3 4))) == (8,12)
Nota: Puedes consultar las soluciones aquí.