Par Arthur Charguéraud pour www.france-ioi.org

Introduction

Lire et afficher des données sur l'entrée standard en Caml peut être un peu technique lorsqu'on ne connaît pas, mais devient très facile lorsqu'on connaît les bonnes techniques. Le but de ce document est simplement de montrer quelques fonctions magiques qui permettent de faire tout ce qu'on veut.

Lire et afficher des données élémentaires

Pour lire des données, utilisez les fonctions suivantes :

   let scan_int () = Scanf.scanf " %d" (fun x -> x)
   let scan_float () = Scanf.scanf " %f" (fun x -> x)
   let scan_string () = Scanf.scanf " %s" (fun x -> x)

Note : il ne faut pas lire des caractères un par un car c'est trop lent et qu'en plus on a des problèmes avec les caractères de fin de ligne. On utilisera toujours "scan_string", et éventuellement une fonction de conversion d'une chaîne en tableau de caractères (décrite plus loin).

Pour afficher des données, utilisez les fonctions suivantes :

   let show_int n = Printf.printf "%d" n
   let show_float x = Printf.printf "%f" x
   (* lents : *)
   let show_string s = Printf.printf "%s" s 
   let show_bool b = Printf.printf "%s" (if b then "true" else "false")
   (* rapides : *)
   let show_string s = print_string s 
   let show_bool b = print_string (if b then "true" else "false")

Note : pour peut afficher des caractères un par un mais en général il faut mieux afficher des chaînes d'un coup car ça va plus vite. Il est toutefois possible d'afficher des caractères un par un comme suit :

   let show_char c = Printf.printf "%c" c  (* très lent   *)
   let show_char c = output_char stdout c  (* plus rapide *)

Lire des structures de données

Lire une paire d'entiers décrite par deux entiers séparés par un espace :

   let scan_int_pair () = 
      let x = scan_int() in
      let y = scan_int() in
      (x,y)

Lire un tableau d'entiers de taille donnée décrit par des entiers séparés par des espaces :

   let scan_int_array_of_size n = 
      Array.init n (fun _ -> scan_int())

Lire un tableau d'entiers décrit par un entier qui donne sa taille puis des entiers séparés par des espaces :

   let scan_int_array () =
      let size = scan_int() in
      Array.init size (fun _ -> scan_int())

Lire une liste de n entiers décrite par des entiers séparés par des espaces :

   let scan_int_list_of_size n = 
      Array.to_list (Array.init n (fun _ -> scan_int()))

Lire une matrice d'entiers de taille donnée décrite par des entiers séparés par des espaces ou des retours à la ligne :

   let scan_int_matrix_of_size nb_lig nb_col =
      Array.init nb_lig (fun _ -> Array.init nb_col (fun _ -> scan_int())) 

Lire une matrice de caractères de taille donnée décrite par des caractères juxtaposés sur des lignes consécutives :

   let scan_char_matrix_of_size nb_lig nb_col =
      Array.init nb_lig (fun _ -> 
         let s = Scanf.scanf " %s" (fun x -> x) in
         Array.init nb_col (fun i -> s.[i]))

Afficher des structures de données

Afficher une paire d'entiers en les séparant par un espace :

   let show_int_pair (x,y) = 
      Printf.printf "%d %d" x y

Afficher une paire d'entiers en les séparant par un espace et en ajoutant un retour à la ligne après :

   let show_int_pair (x,y) = 
      Printf.printf "%d %d\n" x y

Afficher un tableau d'entiers en séparant les valeurs par des espaces :

   let show_int_array t =
      Array.iter (fun v -> Printf.printf "%d " v) t

Attention, un espace en plus est ajouté tout au bout.

Afficher une liste d'entiers en séparant les valeurs par des espaces :

   let show_int_list t =
      List.iter (fun v -> Printf.printf "%d " v) t

Attention, un espace en plus est ajouté tout au bout.

Afficher une matrice d'entiers :

let show_int_matrix mat =
      Array.iter (fun lig ->
         Array.iter (fun v -> Printf.printf "%d " v) lig;
         print_newline())
         mat

Afficher une matrice de caractères :

let show_char_matrix mat =
      Array.iter (fun lig ->
         Array.iter (fun c -> output_char stdout c) lig;
         print_newline())
         mat

Lire et afficher beaucoup de texte

Pour lire ou afficher beaucoup de texte, il ne faut pas les lire caractère par caractère sinon ça prend trop de temps. Il faut lire des mots entiers, et afficher des mots entiers. Pour cela, utiliser les fonctions "scan_string" et "show_string". Pour convertir une chaîne en tableau de caractères et réciproquement, utilisez les fonctions suivantes :

   let char_array_of_string s =
      Array.init (String.length s) (fun i -> s.[i])
   let string_of_char_array t =
      let s = String.make (Array.length t) 'a' in
      Array.iteri (fun i c -> s.[i] <- c) t