Discussion :

[bumbolol]

Voilà un petit bout de code, je pense que c'est un peu cracra dans l'esprit ocaml d'écrire ça, je me demandais s'il y avait une manière plus élégante d'écrire ça tout en produisant exactement le même résultat.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
let test var = match
   | Type1 -> Printf.sprintf "%s avec %s" var.s1 var.s2
   | Type2 -> Printf.sprintf "- %s sans %s -" var.s1 var.s2

Cordialement.

[Cacophrene]

Salut !

Première solution : avec et sans sont récupérés lors du filtrage pour former un troisième paramètre de sprintf.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
let test var typ =
  let str = match typ with
    | Type1 -> "avec"
    | Type2 -> "sans" 
  in Printf.sprintf "%s %s %s" var.s1 str var.s2

Seconde solution : Tu as d'autres filtrages possibles qui changent complètement la forme du format. Mais par contre tous les formats demandent deux arguments de type string. On peut alors mettre à profit la fonction Scanf.format_from_string.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
let test var typ =
  let str = match typ with
    | Type1 -> "%s avec %s"
    | Type2 -> "%s sans %s" 
    | Type3 -> "foo %s bar %s foobar"
  in Printf.sprintf (Scanf.format_from_string str "%s%s") var.s1 var.s2

Remarque : Un peu de magie (Obj.magic) fonctionnerait aussi, mais c'est sans contrôle et donc absolument pas recommandé.


Cordialement,
Cacophrène

[LLB]

Ou aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
let test var typ =
  let printer = match typ with
    | Type1 -> Printf.sprintf "%s avec %s"
    | Type2 -> Printf.sprintf "- %s sans %s -"
  in printer var.s1 str var.s2

De façon plus moche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
let test var typ =
  let fmt = match typ with
    | Type1 -> ("%s avec %s" : (_, _, _) format)
    | Type2 -> ("- %s sans %s -" : (_, _, _) format)
  in Printf.printf fmt var.s1 str var.s2