関数型プログラミングを使ってOCamlでループを回避する方法はありますか？

Question

私はカードゲームをプログラムしようとしていると、いくつかの時点で、ユーザが要求されます：

を「ゲームを開始するために、プレイヤーの名前やEXITを提出してください」そこで私は、ユーザまで、この質問をする必要があります"EXIT"を送信すると、ループを使わずにこれを行う方法があると言われています。

printf("Ingrese el nombre del jugador o EXIT para comenzar el juego");; 
print_newline;; 
let command = read_line;; 

そしてそこに私は、ループ使用します：

は、これまでのところ私が持っていたすべてだった

while (command <> "EXIT") do 

をしかし、関数型プログラミングを行っているとき、それは良くない助言されました。

ありがとうございます。

Answer 1

ジェフリーの答えは少しきれいにするには：

Answer 2

コマンドが「EXIT」のときに終了する再帰関数を使用するだけです。ここで

Answer 3

は、ワードEXIT（またはファイルの末尾）からなるラインを見るまで標準入力からテキスト行を読み込む機能である：

let rec read_until_exit() = 
    match 
     try Some (read_line()) 
     with End_of_file -> None 
    with 
    | None ->() 
    | Some s -> 
     if s = "EXIT" then() 
     else 
      begin 
      do_something_you_want_to_do_here_with_the_line s; 
      read_until_exit() 
      end