match.hs

import Data.List

main = do
  print "hi"

list1 = ["aa", "bb", "cc"]
list2 = ["bb", "cc"]

getMatches list1 list2 = getMatches' (check list1 list2) list2
getMatches' indices list2 = map (f list2) (filter (>=0) indices)
f list2 x = list2 !! x

check list1 list2 = map getTheIndex (check' list1 list2)

getTheIndex (Just a) = a
getTheIndex Nothing = -1

check' [] list2 = []
check' list1 list2 = (elemIndex (head list1) list2) : (check' (tail list1) list\
2)