Listas con suma dada

Un comentario

1. Haskell

   import Data.List (subsequences) conSuma :: (Eq a, Num a) => [a] -> [[a]] -> [[[a]]] conSuma xs yss = [ys | ys <- subsequences yss, sumaVec ys == xs] sumaVec :: Num a => [[a]] -> [a] sumaVec xss | map length xss == replicate (length xss) 1 = [sum (map head xss)] sumaVec xss = sum (map head xss) : sumaVec (map tail xss) -- sumaVec es la misma que en el anterior ejercicio

   1 2 3 4 5 6 7 8 9 10 11

   import Data.List (subsequences)   conSuma :: (Eq a, Num a) => [a] -> [[a]] -> [[[a]]] conSuma xs yss = [ys | ys <- subsequences yss, sumaVec ys == xs]   sumaVec :: Num a => [[a]] -> [a] sumaVec xss     | map length xss == replicate (length xss) 1 = [sum (map head xss)] sumaVec xss = sum (map head xss) : sumaVec (map tail xss)   -- sumaVec es la misma que en el anterior ejercicio

   Responder