OCaml 从标准输入读取并打印到标准输出
示例
我们准备一个包含reverser.ml以下内容的文件：
let acc = ref [] in
try
while true do
acc := read_line () :: !acc;
done
with
End_of_file -> print_string (String.concat "\n" !acc)然后，我们使用以下命令编译程序：
$ ocamlc -oreverser.bytereverser.ml
我们通过将数据传递到新的可执行文件进行测试：
$ cat data.txt one two three $ ./reverser.byte < data.txt three two one
该reserver.ml程序以命令式风格编写。虽然命令式样式很好，但是将其与功能翻译进行比较很有趣：
let maybe_read_line () = try Some(read_line()) with End_of_file -> None let rec loop acc = match maybe_read_line () with | Some(line) -> loop (line :: acc) | None ->List.iterprint_endline acc let () = loop []
由于引入了该功能maybe_read_line，因此第二个版本中的控制流程比第一个版本简单得多。
热门推荐
1 训练狗狗基础
2 怎么训练狗狗笑
3 怎么训练狗狗卧下
4 上海狗狗训练基地
5 训练狗狗排便
6 狗狗基础训练
8 如何训练狗狗装死
9 狗狗站姿训练
10 狗狗训练用品
11 训练狗狗吧
12 狗狗要怎么训练
13 怎么训练狗狗玩球
14 训练狗狗唤回
15 狗狗训练躺下
16 狗狗训练指令
17 狗狗的训练技巧
18 狗狗不好训练