Kombinacje Haskella i permutacja

Question

Mam trzy słowa na liście ["a", "b", "c"]. chcę, aby znaleźć wszystkie możliwe kombinacje w zestawie 5,6 itd

na przykład do zestawu 5 bym

**[ [aaaaa],[aaaab],[aaaac], [aaabc] , ..... ]** etc 3^5 = 243 combinations 

AAAAAA powyżej będzie w istocie być „a”, „a”, „a” „a”, „a” ....

Answer 1

replicateM robi to, co chcesz:

> import Control.Monad 
> replicateM 5 ["a", "b", "c"] 
[["a","a","a","a","a"],["a","a","a","a","b"],["a","a","a","a","c"],["a","a","a","b","a"],["a","a","a","b","b"],["a","a","a","b","c"],["a","a","a","c","a"],["a","a","a","c","b"],["a","a","a","c","c"],["a","a","b","a","a"],["a","a","b","a","b"],["a","a","b","a","c"],["a","a","b","b","a"],["a","a","b","b","b"],["a","a","b","b","c"]...] 

Answer 2

oczywiście, odpowiedź nanothief daje najkrótszą rozwiązanie, ale może to być pouczające i zabawne zrobić to sam .

Istnieje wiele sposobów na napisanie funkcji dla produktu kartezjańskiego. Na przykład. można użyć wyrażeń listowych:

prod :: [[a]] -> [[a]] -> [[a]] 
prod as bs = [a ++ b | a <- as, b <- bs] 

Gdzie (++) :: [a] -> [a] -> [a] - patrz Data.List. Inną możliwością jest użycie instancji Applicative z listy:

import Control.Applicative 

prod as bs = (++) <$> as <*> bs 

teraz trzeba zastosować tę operację wielokrotnie. Fałd może to zrobić, np .:

rep :: Int -> [[a]] -> [[a]] 
rep n as = foldr1 prod $ replicate n as 

rep 3 ['a','b','c'] 
--["aaa","aab","aac","aba","abb","abc","aca","acb","acc","baa","bab", 
--"bac","bba","bbb","bbc","bca","bcb","bcc","caa","cab","cac","cba", 
--"cbb","cbc","cca","ccb","ccc"] 

Zrozumienie tego rozwiązania mogą być bardziej wartościowe niż biorąc skróty replicateM. To powiedziawszy, możesz łatwo znaleźć to drugie przy użyciu Hoogle.

-

Więcej informacji na temat funktorów i aplikacyjnych patrz definicje fmap (<$>) i ap (<*>). Functors, Applicatives, And Monads In Pictures może również być dobrym źródłem informacji.