SML/NJ에서 텍스트 파일의 줄 반복

Question

텍스트 파일에서 한 줄을 읽는 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