Iroh a écrit: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 a écrit:Tu peux le faire plus simplement sinon: http://paste.scratchbook.ch/view/878bd988
let somme : int -> int -> int =
fun x y -> x + y
let somme x y = x + y
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
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 7 invités
Tu pars déja ?
Identification
Pas encore inscrit ?
Ou identifiez-vous :