Haskell Example.hs

	-- Dictionary to search
	type Dict = [(String, String)]
	dict :: Dict
	dict = [("bread", "pain"),("milk", "lait"),("hello", "bonjour")]

	-- Filter to apply to Dictionary
	food :: [String]
	food  = ["bread", "milk"]

-- Where:

	foodOnly :: Dict -> Dict
	foodOnly d = filter test d where
		test :: (String,String) -> Bool
		test x = elem (fst x) food

-- Recursion:

	foodOnly :: Dict -> Dict
	foodOnly [] = []
	foodOnly (x:xs) = if elem (fst x) food
		then x : (foodOnly xs)
		else (foodOnly xs)