2013-10-20 28 views
5

Bir dosyaya iki int s yazmanın bir yolunu arıyorum. İki adet çift int s olacaktır. İki sayı arasında bir boşluk olmalıdır (''). Böyle Örneğin, bir şey:OCaml Dosyaya nasıl yazılır?

1 2 
6 896 
243 865 
.... 

cevap

5

Böyle bir şey kullanabilirsiniz:

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; 

Bu veri varsayar çiftlerinin bir listedir. Eğer Core kullanırsanız

2

, bunu yapabilirsiniz:

open Core.Std 
let() = Out_channel.write_all "your_file.txt" ~data:"Your text"