mirror of
https://github.com/correl/elm.git
synced 2024-12-22 11:09:08 +00:00
21 lines
424 B
Text
21 lines
424 B
Text
module Strain exposing (..)
|
|
|
|
import List
|
|
|
|
|
|
keep : (a -> Bool) -> List a -> List a
|
|
keep predicate list =
|
|
List.foldr (consIf predicate) [] list
|
|
|
|
|
|
discard : (a -> Bool) -> List a -> List a
|
|
discard predicate list =
|
|
List.foldr (consIf (\v -> not <| predicate v)) [] list
|
|
|
|
|
|
consIf : (a -> Bool) -> a -> List a -> List a
|
|
consIf predicate value list =
|
|
if predicate value then
|
|
value :: list
|
|
else
|
|
list
|