elm/exercises/strain/Strain.example

module Strain (..) where

import List

keep : (a -> Bool) -> List a ->  List a
keep predicate list = List.filter predicate list

discard : (a -> Bool) -> List a -> List a
discard predicate list = (keep (\val -> not (predicate val)) list)
Align cherry picked exercises with the new test format 2016-03-17 01:38:35 +00:00			`module Strain (..) where`
Add test and example for Strain 2015-10-13 18:56:46 +00:00
			`import List`

			`keep : (a -> Bool) -> List a -> List a`
			`keep predicate list = List.filter predicate list`

			`discard : (a -> Bool) -> List a -> List a`
			`discard predicate list = (keep (\val -> not (predicate val)) list)`