Splitting list into a list of possible tuples

Question

I need to split a list into a list of all possible tuples, but I\'m unsure of how to do so.

For example:

pairs [\"cat\",\"dog\",\"mouse\"]
         


        

Answer 1

import Control.Applicative

pairs xs = filter (uncurry (/=)) $ (,) <$> xs <*> xs