시퀀스 루프를 벗어나는 깨끗한 기능적 방법

Question

선택적 종료 조건을 갖는 순차 프로세스가 있습니다. 알고리즘을 작성하는 한 가지 방법이

let mutable more = true 
for slot = startSlot to endSlot do 
    if more then 
     more <- process() 

같은 이탈이 미미에 의한 스킵 슬롯 more 검사의 오버 헤드이다. 아직도 이것을 표현하는 좀 더 우아한 방법이 있어야 할 것 같습니다.

이

let rec loop slot = if slot <= endSlot && process() then loop (slot + 1) 
loop startSlot 

컴파일러가 감소됩니다 process() 반환 false

Answer 1

재귀 여기에 평소 때

Answer 2

것이이 일을하는 한 가지 방법은 루프를 종료합니다 Seq.takeWhile

seq{startSlot .. endSlot} 
|> Seq.takeWhile (fun _ -> process()) 
|> Seq.iter ignore 

이 사용하기 이 간단한 루프 (아니 실제 재귀가 발생).