我正在寻找一种将两个int
s 写入文件的方法。会有很多对的两个int
s。两个数字之间应该有一个空格(我的意思是' ')。例如,像这样:
1 2
6 896
243 865
....
你可以使用这样的东西:
let rec print_numbers oc = function
| [] -> ()
| e::tl -> Printf.fprintf oc "%d %d\n" (fst e) (snd e); print_numbers oc tl
let () =
let nums = [(1, 2); (6, 896); (243, 865)] in
let oc = open_out "filename.txt" in
print_numbers oc nums;
close_out oc;
这假设您的数据是一对列表。
如果你使用Core
,你可以这样做:
open Core.Std
let () = Out_channel.write_all "your_file.txt" ~data:"Your text"