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