Это так называемая задача поиска всех возможных перестановок.
С чисто педагогичпеской точки зрения - вам было бы полезно решить её самостоятельно.
С практической точки зрения - можете воспользоваться вот этим алгоримом из стандартной библиотеки языка Haskell:
— | The 'permutations' function returns the list of all permutations of the argument.
--
— »> permutations "abc"
— ["abc","bac","cba","bca","cab","acb"]
permutations :: [a] -> [[a]]
permutations xs0 = xs0 : perms xs0 []
where
perms [] _ = []
perms (t:ts) is = foldr interleave (perms ts (t:is)) (permutations is)
where interleave xs r = let (_,zs) = interleave' id xs r in zs
interleave' _ [] r = (ts, r)
interleave' f (y:ys) r = let (us,zs) = interleave' (f . (y:)) ys r
in (y:us, f (t:y:us) : zs)