list et fonction auxiliaire

Bonjour , jai un petit probleme :calim2:
jarriver pas à implementer cette fonction

let addpositive i=
let lo=[2;3;4;5;-1];
let rec list acc = function
|[]->acc
|a::b -> if (a<0) then list acc b else list (a+acc) b
in list 0 lo;;

ou la fonction addpositive fait l' addition juste des membre positive de lo que jai definit à l'intérieure de la fonction
mercii d'avance

Citation:

---

Envoyé par nemoO

ou la fonction addpositive fait l' addition juste des membre positive de lo que jai definit à l'intérieure de la fonction

---

La fonction fait la somme des entiers positifs présents dans la liste lo ? Sans considération de son paramètre ? C'est donc une fonction constante, tu confirmes ? La fonction list que tu as créée est correcte (à part son nom un peu maladroit à mon goût).

Bonjour,

Effectivement, j'ai une erreur de compilation chez moi, dû au fait que tu ne confères pas la bonne portée à lo : puisqu'il s'agit d'une variable locale, tu devrais utiliser in lors de sa définition. D'autre part, il serait plus logique d'agir sur un argument, dans le sens où tu pourras de toute manière faire ton test dessus.

Code:

---

1 2 3 4 5 6 7 8

let addpositive l = let rec aux n l = match l with [] -> n | head :: tail -> if head > 0 then aux (n + head) tail else aux n tail in aux 0 l ;;

---

Bonne journée.

Une pratique courante en Caml consiste à d'abord définir une fonction avec accumulateur (let rec) puis à la redéfinir (let) sans accumulateur.

Code:

---

1 2 3 4 5 6

let rec sum_positives acc = function | [] -> acc | h :: t -> sum_positives (if h > 0 then acc + h else acc) t let sum_positives = sum_positives 0;;

---