Discussion :

[Arnaud22370]

Bonjour,

sans doute trivial comme question mais bon... Quand on débute, on débute :p
Voici le problème:

data A = I Int
| S [A]
deriving(show,Eq)

je fais un:
let t = S [I 1,I 2,I 3]
mais quand je fais un:
sum t
Ghci me renvoi une erreur.

Si quelqu'un avait une piste pour pouvoir additionner les entiers définis dans t, je lui serai éternellement reconnaissant

Merci d'avance!

[Chatanga]

La fonction sum est du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sum :: (Num a) => [a] -> a

Or tu ne lui fournis pas un tableau de nombres, mais une sorte d'arbre (quand bien même il n'aurait qu'une profondeur de 1). En utilisant cette version alternative, ça fonctionnera :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sum' :: A -> Int
sum' (S elements) = sum (map sum' elements)
sum' (I n) = n