Actualización de «Listas con suma dada»
He actualizado las soluciones del ejercicio «Listas con suma dada» cuyo enunciado es
Definir la función
conSuma :: (Eq a, Num a) => [a] -> [[a]] -> [[[a]]]
tal que (conSuma xs yss) es la lista de los vectores de xss cuya suma vectorial es xs. Por ejemplo,
λ> conSuma [9,10,12] [[4,7,3],[3,1,4],[5,3,9],[2,2,5]] [[[4,7,3],[5,3,9]],[[4,7,3],[3,1,4],[2,2,5]]] λ> conSuma [9,11,12] [[4,7,3],[3,1,4],[5,3,9],[2,2,5]] [] λ> length (conSuma [5,5,5] (replicate 70 [1,1,1])) 12103014
Nota: Puedes consultar las soluciones aquí.