mirror of
https://github.com/correl/elm.git
synced 2024-12-20 21:16:27 +00:00
13 lines
243 B
Text
13 lines
243 B
Text
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)
|