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)
|