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.38	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.37	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.36	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.35	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.34	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.33	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.32	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.31	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.30	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.29	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.28	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.27	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.26	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.25	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.24	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.23	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.22	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.21	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.20	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs
trackler-2.2.1.19	tracks/haskell/exercises/strain/examples/fail-reverse/src/Strain.hs