TP03 3.2

char_list_list.ml

(* ---3.2 char list list...--- *)

let rec sentence_to_single_list morse_sentence = match morse_sentence with
  |[] -> []
  |[]::sentence -> '/' :: sentence_to_single_list sentence (* on ajoute un '/' si le mot est fini *)
  |([]::word)::sentence -> ' ' :: sentence_to_single_list (word::sentence) (* on ajoute un espace ' ' si la lettre est finie *)
  |((e::letter)::word)::sentence -> e :: (sentence_to_single_list ((letter::word)::sentence)) ;; (* on extrait un caractère d'une lettre en morse pour le mettre dans notre liste *)
(* val sentence_to_single_list : char list list list -> char list = <fun> *)

sentence_to_single_list (sentence_to_morse [['y'; 'o']; ['d'; 'a'; 'w'; 'g']]) ;;
(* 
- : char list = ['-'; '.'; '-'; '-'; ' '; '-'; '-'; '-'; ' '; '/'; '-'; '.'; '.'; ' '; '.'; '-'; ' '; '.'; '-'; '-'; ' '; '-'; '-'; '.'; ' '; '/']
 *)

sentence_to_single_list [[['-'; '.'; '-'; '-']; ['-'; '-'; '-']]; [['-'; '.'; '.']; ['.'; '-']; ['.'; '-'; '-']; ['-'; '-'; '.']]] ;;
(* 
- : char list = ['-'; '.'; '-'; '-'; ' '; '-'; '-'; '-'; ' '; '/'; '-'; '.'; '.'; ' '; '.'; '-'; ' '; '.'; '-'; '-'; ' '; '-'; '-'; '.'; ' '; '/']
 *)