Cách chức năng sạch sẽ để thoát khỏi vòng lặp chuỗi

Question

Tôi có một quy trình tuần tự với điều kiện thoát tùy chọn. Một cách để viết các thuật toán là như thế này

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

Chi phí kiểm tra more cho các vị trí bị bỏ qua do thoát là không đáng kể. Tuy nhiên, có vẻ như phải có một cách thanh lịch hơn để thể hiện điều này.

Answer 1

Đệ quy là bình thường ở đây:

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

Trình biên dịch sẽ giảm điều này đến một vòng lặp đơn giản (không thực tế đệ quy diễn ra).

Answer 2

Một cách để làm điều này sẽ được sử dụng Seq.takeWhile

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

này sẽ thoát khỏi vòng lặp khi process() lợi nhuận false