TAD de los polinomios - Transformaciones entre las representaciones dispersa y densa
Definir las funciones
densaAdispersa :: (Num a, Eq a) => [a] -> [(Int,a)] dispersaAdensa :: (Num a, Eq a) => [(Int,a)] -> [a]
tales que
-
densaAdispersa xs
es la representación dispersa del polinomio cuya representación densa esxs
. Por ejemplo,
λ> densaAdispersa [9,0,0,5,0,4,7] [(6,9),(3,5),(1,4),(0,7)]
-
dispersaAdensa ps
es la representación densa del polinomio cuya representación dispersa esps
. Por ejemplo,
λ> dispersaAdensa [(6,9),(3,5),(1,4),(0,7)] [9,0,0,5,0,4,7]
Comprobar con QuickCheck que las funciones densaAdispersa y dispersaAdensa son inversas.