SML/NJのテキストファイルの行をループする

Question

テキストファイルから1行を読み込んだ後、同じリストを返すSML/NJコードがありますすべての単一のラインに物事があり、ラインがなくなると停止します。誰も私にループサンプルを与えることで私を助けてくれる？

fun readlist(infile : string) = 
let val ins = TextIO.openIn infile 

    val list = [] 
    fun listing() = [TextIO.inputLine ins]::list; 

in listing() 
end 

Answer 1

どのようにこのようなものについて：

fun readlist (infile : string) = let 
    val ins = TextIO.openIn infile 
    fun loop ins = 
    case TextIO.inputLine ins of 
     SOME line => line :: loop ins 
    | NONE  => [] 
in 
    loop ins before TextIO.closeIn ins 
end