Epreuve enpc info problème Caml

[Archytas]

Tu peux le faire plus simplement sinon: http://paste.scratchbook.ch/view/878bd988

je ne comprends pas le "fun g s -> " au début, il ne doit pas être commun aux deux langages :hum:

[Iroh]

Plus simple de comprendre avec la fonction "somme(x,y) = x +y":

Code: Tout sélectionner

let somme : int -> int -> int =
  fun x y -> x + y

ou

Code: Tout sélectionner

let somme x y = x + y

Ça permet de donner un type à la fonction, sinon ocaml peut le faire seul mais génère le type le plus général possible.

Mais tu peux réécrire la fonction voisins sans:

Code: Tout sélectionner

let rec voisins g s = match g with
    | Graphe (_, []) -> []
    | Graphe (0, _) -> []
    | Graphe (n, (Arete (a, b))::ls) ->
      if s == a then insere (voisins (Graphe (n, ls)) s) b
      else if s == b then insere (voisins (Graphe (n, ls)) s) a
      else voisins (Graphe (n, ls)) s       

[Archytas]

Très bien merci !