keepEquals

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
{-| Keep equal elements that are at the same position in both lists

  Examples:

  >>> keepEqual "hello" "world"
  "l"

  >>> keepEqual (repeat 1) [0..10]
  [1]

  >>> keepEqual [True, False, True] (repeat True)
  [True,True]
-}
keepEqual :: Eq a => [a] -> [a] -> [a]
keepEqual = undefined