Méthode fonctionnelle propre pour sortir d'une boucle de séquence

Question

J'ai un processus séquentiel avec une condition de sortie optionnelle. Une façon d'écrire les algorithmes est comme ce

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

Les frais généraux de la vérification more pour les emplacements qui ne sont pas pris en raison d'une sortie est insignifiante. Pourtant, il semble qu'il devrait y avoir une façon plus élégante d'exprimer cela.

Answer 1

récursivité est habituel ici:

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

Le compilateur réduira ceci à une boucle simple (pas réelle récursion a lieu).

Answer 2

Une façon de le faire serait d'utiliser Seq.takeWhile

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

Cela sortir de la boucle lors process() retours false