let rec addition n1 n2 =
let retenue = ref 0 in
match (n1 , n2) with
| ([] , []) -> []
| ([] , t::q) -> (t + !retenue) :: (addition [] q)
| (t::q , []) -> (t + !retenue) :: (addition...
Type: Messages; Utilisateur: Ptival
let rec addition n1 n2 =
let retenue = ref 0 in
match (n1 , n2) with
| ([] , []) -> []
| ([] , t::q) -> (t + !retenue) :: (addition [] q)
| (t::q , []) -> (t + !retenue) :: (addition...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.