summaryrefslogtreecommitdiff
path: root/Haskell-book/09/src/Filtering.purs
blob: 81257a82843cede40d897c9c09c3dc77bb60744b (plain)
1
2
3
4
5
6
7
8
module Filtering where

import Data.Array (filter)
import Data.String (split, Pattern(..))
import Prelude

myFilter :: String -> Array String
myFilter input = filter (\x -> x /= "a" && x /= "the") (split (Pattern " ") input)