Comment réorganiser cette fonction pour retourner la liste étendue dans Haskell

Question

que je fais problem 68 au projet euler et est venu avec le code suivant dans Haskell pour retourner la liste des numéros qui correspondent à la solution (donnée):

lists = [n|n<- permutations [1..6] , ring n ] 
ring [a,b,c,d,e,f] = (length $ nub $ map sum [[d,c,b],[f,b,a],[e,a,c]]) == 1 

Ceci renvoie uniquement une liste de listes de 6 nombres chacun correspondant à la solution. Ce que je ne sais pas comment faire, est faire revenir la solution réelle, les listes qui correspondent à la forme:

[d,c,b],[f,b,a],[e,a,c] 

Comment puis-je faire lists retour une liste de ce format?

(PS: Je vais ajouter dans les fonctions appropriées pour retourner ce que le site veut en fait plus tard)

Answer 1

Il est tout simplement

lists = [ [[d,c,b],[f,b,a],[e,a,c]] | n@[a,b,c,d,e,f] <- permutations [1..6], ring n ] 

Ou pour générer les chaînes:

[ foldl (++) "" $ map show [d,c,b,f,b,a,e,a,c] | n@[a,b,c,d,e,f] <- permutations [1..6], ring n ]