[OCaml] Pretty printer et fonctions mutuellements récursives
Résolu/Fermé
Sauvegarde2
Messages postés
205
Date d'inscription
dimanche 14 décembre 2008
Statut
Membre
Dernière intervention
11 janvier 2015
-
19 déc. 2012 à 18:25
Sauvegarde2 Messages postés 205 Date d'inscription dimanche 14 décembre 2008 Statut Membre Dernière intervention 11 janvier 2015 - 19 déc. 2012 à 20:19
Sauvegarde2 Messages postés 205 Date d'inscription dimanche 14 décembre 2008 Statut Membre Dernière intervention 11 janvier 2015 - 19 déc. 2012 à 20:19
A voir également:
- [OCaml] Pretty printer et fonctions mutuellements récursives
- Fonction si et - Guide
- Codes secrets Android : accéder aux fonctions cachées - Guide
- Easy poster printer - Télécharger - Divers Photo & Graphisme
- Photo printer - Télécharger - Albums photo
- Ronyasoft poster printer - Télécharger - Impression
1 réponse
KX
Messages postés
16733
Date d'inscription
samedi 31 mai 2008
Statut
Modérateur
Dernière intervention
31 janvier 2024
3 014
Modifié par KX le 19/12/2012 à 18:55
Modifié par KX le 19/12/2012 à 18:55
Tu dois déclarer tes fonctions qui se croisent en même temps (au sein du même let)
Donc je n'ai pas pu vérifié puisqu'il me manque deux trois trucs (Number_val, etc.), mais de tête ça doit faire quelque chose comme ça :
Donc je n'ai pas pu vérifié puisqu'il me manque deux trois trucs (Number_val, etc.), mais de tête ça doit faire quelque chose comme ça :
let print_json json = let rec print_list o print_content = match o with | t::[] -> print_content t | t::c -> print_content t; print_string ",\n"; print_list c print_content in let inner_print o delimiters print_content = print_char delimiters.[0]; print_string "\n\t"; print_list o print_content; print_char delimiters.[1]; print_string "\n" in let rec print_jvalue v = match v with | String_val s -> print_char '"'; print_string s; print_char '"' | Number_val n -> print_float n | Object_val o -> print_jobject o | Array_val a -> print_jarray a | Bool_val b -> print_bool b | Null_val -> print_string "null" and print_jobject o = inner_print o "{}" print_jvalue and print_jarray a = inner_print a "[]" print_jobject in print_jobject json;;La confiance n'exclut pas le contrôle
19 déc. 2012 à 20:19
Merci :-)