Generalize your listComp to listComp2 g slist1 slist2 cond = [g x y | x Here g is to be applied to elements in the Cartesian product of the two lists that satisfy the condition given by cond. Extra credits if you implement listComp2 using listComp.

listComp2 :: (t1 -> t2 -> a) -> [t1] -> [t2] -> (t1 -> t2 -> Bool) -> [a]

here us the listComp (takes 3 inputs : the first is function , the second a list abd the third a predicate, and constructs a list by filtering the input list with the predicate then applying the function to the elements in the resultant list.

main::10) main Edo print( listcomp (*3) [2,2,2,3,5,3,5,6,4,3,5,8) odd) listcomp :: (a->b)-> [a]->(a->Bool)->[b] listcomp fx g = [ft | t