Contents

module Strain (keep, discard) where

keep, discard :: (a -> Bool) -> [a] -> [a]

keep p = keep' []
  where keep' acc [] = reverse acc
        keep' acc (x:xs) = keep' (if p x then x:acc else acc) xs

discard = keep . (not .)

Version data entries

312 entries across 312 versions & 1 rubygems

Version	Path
trackler-2.2.1.18	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.17	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.16	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.15	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.14	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.13	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.12	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.11	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.10	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.9	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.8	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.7	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.6	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.5	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.4	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.3	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.2	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.1	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.0	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.0.6	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs