Qual è un modo intelligente per trovare tutte le possibili combinazioni di questi due gruppi di articoli?

Question

Diciamo che ho due tipi di oggetti

data Item1 = A | B | C 
data Item2 = D | E | F 

e due set

set1 = [A,B,C] 
set2 = [D,E,F] 

Mi piacerebbe trovare tutti i modi unici di corrispondere le voci di due set, la risposta dovrebbe essere (in informali notazione):

AD,BE,CF 
AD,BF,CE 
AE,BD,CF 
AE,BF,CD 
AF,BD,CE 
AF,BE,CD 

In altre parole, vorrei qualche funzione che compiere la seguente:

combine :: [Item1] -> [Item2] -> [[(Item1,Item2)]] 
combine = undefined 

Nota ciascuna combinazione dovrebbe essere una tupla, e ogni riga nello schema di enumerazione sopra dovrebbe essere una lista, ad esempio:

[(A,D),(B,E),(C,F)] 

Answer 1

Usa questa

import Data.List (sort, permutations) 
combine as bs = zipWith zip (repeat as) (sort $ permutations bs)