从文件返回值 - ocaml

Question

我正在尝试读取文件并将从文件中读取的元素作为输入返回给另一个函数。

当我从文件中读取数据时，如何返回值？ 我尝试了我所知道的一切，但仍然无法挽回。

我的代码如下：

let file = "code.txt";; 

let oc = open_out file in (* create or truncate file, return channel *) 

    fprintf oc "%s\n" (play); (* write code to file returned from calling (play) function *) 

    close_out oc ;; 


(*read from file*) 


let read l= 

    let f x = 

     let ic = open_in file in 

     let line = input_line ic in (* read line from in_channel and discard \n *) 

      print_endline line;   (* write the result to stdout *) 

       ((x^line) :: l); 

      flush stdout;     

      close_in ic ; 
    in 
    f l 
    ;; 

prompt: read;; function call outputs: 

- : unit =() 

我的文件包含一个字符串，它是需要的，作为另一个功能输入一个代码。

请帮忙。我不知道我哪里出错了。

谢谢。

Answer 1

如果使用;将多个表达式排在一起，则整个表达式的值就是该序列中最后一个表达式的值。

因此，如果您有类似((x^line) :: l); close_in ic的值，则表达式的值为close_in ic，即()。

很明显，这不是你想要的。为了使((x^line) :: l)整个表达式的结果，你应该把它放在close_in ic之后。