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`

Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00
			`keep : (a -> Bool) -> List a -> List a`
			`keep predicate list =`
			`List.filter predicate list`

Add test and example for Strain 2015-10-13 18:56:46 +00:00
			`discard : (a -> Bool) -> List a -> List a`
Run elm-format over cherry picked exercises 2016-03-17 01:38:51 +00:00			`discard predicate list =`
			`(keep (\val -> not (predicate val)) list)`