let rec toAttr = function
| Element( s , a , [] ) -> a
| Element( s , a , p::q ) -> fusion (fusion a (toAttr p)) (List.concat (List.map toAttr q))
| PCData s -> [] ;;
Evidemment ça fait 3 lignes....
12h d'arrachage de cheveux pour ça.
Moi pas doué :-(
Bon, c'était mon deuxième baptème du feu !
« Il n’y a pas de choix démocratiques contre les Traités européens » - Jean-Claude Junker
# GRRRRRRRRR
Posté par Ontologia (site web personnel) . En réponse au message [OCAML] Descente d'un arbre xml. Évalué à 3.
let rec toAttr = function| Element( s , a , [] ) -> a
| Element( s , a , p::q ) -> fusion (fusion a (toAttr p)) (List.concat (List.map toAttr q))
| PCData s -> [] ;;
Evidemment ça fait 3 lignes....
12h d'arrachage de cheveux pour ça.
Moi pas doué :-(
Bon, c'était mon deuxième baptème du feu !
« Il n’y a pas de choix démocratiques contre les Traités européens » - Jean-Claude Junker