我正在学习 Ocaml，我需要创建一个可以通过以下方式与用户交互的程序：
Program: "Welcome!"
User: command1 arg1 arg2
program: "The answer is..."
User: command2 arg
program: "The answer is..."
User: exit
我需要一个循环方案来制作类似的东西
这是一个循环，它将读取输入行，直到到达文件末尾，或者看到一行“退出”。
let rec loop () =
match read_line () with
| "exit" -> ()
| s -> Printf.printf "I saw %s\n%!" s; loop ()
| exception End_of_file -> ()
要在源文件中调用此循环，可以使用以下方法：
let () = loop ()
要在顶层（OCaml REPL）中尝试一下：
# loop ();;
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
