while ループと do-while ループ的な

whileloop.fs

let whileLoop condition f seed =
   seq {
      yield seed
      yield! Seq.unfold (fun s -> if condition s then let next = f s in Some (next, next) else None) seed
   }
   |> Seq.last

let doWhileLoop condition f seed = whileLoop condition f (f seed)