Rein funktioneller Weg aus einer Sequenz Schleife zu brechen

Question

Ich habe einen sequenziellen Prozess mit einer optionalen Austrittsbedingung. Eine Möglichkeit, die Algorithmen zu schreiben ist wie dies

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

Der Aufwand für die Überprüfung more für Slots, die aufgrund übersprungen werden ein Ausgang ist unerheblich. Dennoch scheint es eine elegantere Art zu geben, dies auszudrücken.

Answer 1

Rekursion üblich ist hier:

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

Der Compiler reduzieren dies zu einer einfachen Schleife (keine tatsächlichen Rekursion stattfindet).

Answer 2

Eine Möglichkeit, dies zu tun wäre, Seq.takeWhile

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

zu verwenden Dieser beendet die Schleife, wenn process() kehrt false