mirror of
https://github.com/correl/elm.git
synced 2024-12-20 12:56:07 +00:00
10 lines
240 B
Text
10 lines
240 B
Text
|
module StrainExample 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)
|