如何重新排列此功能在Haskell

Question

返回扩展列表

我在项目欧拉做problem 68，并在Haskell下面的代码想出了要返回的适应（给）解决方案的号码列表：

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 

这只返回符合解决方案的6个数字列表。我不知道该怎么办，是让它返回实际的解决方案，适合的形式列出：

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

我怎样才能让lists回报这种格式的名单？

（PS：我会在适当的功能添加到返回的内容的网站实际上后来想）

Answer 1

它只是

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

或者为了生成字符串：

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