Dosya satırını oku ve bir listede sakla

Question

Birkaç satırlık metin içeren bir input.txt dosyası var. Bu satırları bir l listesinde saklamaya çalışıyorum. Sanırım doğru yapıyorum ama l listesi güncellenmiyor. lütfen yardım et.

let l = [] 
let() = 
    let ic = open_in "input.txt" 
    in 
    try 
    while true do 
     let line = input_line ic 
     in 
     let rec append(a, b) = match a with 
     |[] -> [b] 
     |c::cs -> c::append(cs,b) 
     in 
     append(l, line) 
     (* print_endline line *) 
    done 
    with End_of_file -> 
close_in ic;; 

Uyarı 10'dan ayrı olarak, herhangi bir hata alamıyorum. OCaml içinde

Answer 1

let l = [] 

Değişkenler değişmez, bu nedenle olursa olsun bu satırdan sonra yazdıklarıma kodu, l hep [] eşit olacaktır.

Answer 2

Zorunlu programlamada yakalanmış gibi görünüyor - OCaml ile başlamak için iyi bir şey!

Tipik fonksiyonel ve özyinelemeli programlama buna benzer bir dosya okurdum:

bir çizgi okuyun, sonra ona "bir çizgi okumak" ekleyin. End_of_File'da listeyi [] ile bitirdiniz.