ocaml input_char

Question

ocaml에서 stdinput을 통해 전달되는 파일에서 char을 읽으려고합니다. 나는 내가 다음 코드에서받는 char를 print_char 할 수있을 때 왜 유닛을 계속 가져야하는지 궁금해했다. 또한, 나는 지금 일하지 않을이 특성의 명부를 만드는 것을 시도하고있다.

let() = 
let charList = [] in 
let inchar = open_in Sys.argv.(1) in 
    try 
      while true do 
       let c = Char.uppercase(input_char inchar) in 
        print_char c; print_int (List.length charList);c::charList 
      done 
    with End_of_file -> close_in inchar;(*; print_int (List.length charList); printTest charList;*) 

;

Answer 1

코드는 을 수정하지 않으므로 은 전체 실행 중에 빈 목록으로 남습니다.

let charList = []을 정의하면 은 변경 불가능합니다.

이러한 라인을 따라 뭔가를 시도 할 수 있습니다 :

let() = 
    let charList = ref [] in 
    let inchar = open_in Sys.argv.(1) in 
    try 
    while true do 
     let c = Char.uppercase (input_char inchar) in 
      charList := c :: !charList 
    done 
    with End_of_file -> 
     charList := List.rev !charList; 
     close_in inchar; 
     print_int (List.length !charList); 
     List.iter print_char !charList 

좀 더 의견 :

• 문자로 입력 문자를 읽는 예를 input_line 사용, 매우 비효율적이다.
• 게시물은 Sys.argv.(1) 표준 입력 언급하지만, 사람들은 두 가지 일이 있습니다
• 당신은 그물에 많은 예제가 전체 파일을 읽고 메모리에 저장 "OCaml의 입력 파일"을 검색하려는 경우 , https://groups.google.com/forum/?fromgroups#!msg/fa.caml/EEinP7-yAko/dPSaR0eOkw4J 또는 http://camltastic.blogspot.fr/2008/09/tip-read-all-lines-from-file-most.html

Answer 2

처럼 당신은 더 많은 기능 무언가를 시도해야합니다 :

내가하고 결국 어떻게 든이 게시물 전에 해낸 실제로

let rec read inchar char_list = 
    try 
    read inchar ((Char.uppercase (input_char inchar))::char_list) 
    with End_of_file -> char_list 

let() = 
    let inchar = open_in Sys.argv.(1) in 
    let char_list = read inchar [] in 
    close_in inchar