Strain

Implement the `keep` and `discard` operation on collections.

Visit the strain exercise on Exercism to read the full instructions and download the exercise files.

Community Solutions

View Community Solutions

The following are the top 3 community solutions by stars:

💡 View Solution

module Seq

let keep pred xs =
    seq{for i in xs do if pred i then yield i }

let discard pred xs = keep (pred >> not) xs