list et fonction auxiliaire

[nemoO]

Bonjour , jai un petit probleme
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

[prgasp77]

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).

[Kirilenko]

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.

[SpiceGuid]

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

Code OCaml :

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;;