Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
let appendItem item sequence = seq { yield! sequence; yield item }
let testOverflow() =
seq { for i in 1..5000 do yield i }
|> Seq.fold (fun state item -> appendItem item state) Seq.empty
|> Seq.iter ignore
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment