>>> import Data.List >>> permutations [1,2,3] [[1,2,3],[2,1,3],[3,2,1],[2,3,1],[3,1,2],[1,3,2]] comb :: Int -> [a] -> [[a]] comb 0 xs = [[]] comb _ [] = [] comb n (x:xs) = [x:y | y <- comb (n-1) xs] ++ comb n xs >>> 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
![Haskell é åã»çµã¿åããã»ã¹ãéåã»ç´ç© - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/89eab259dcb4fb6d6810b70f0a69871871079b88/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-9f5428127621718a910c8b63951390ad.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTkxNiZoPTMzNiZ0eHQ9SGFza2VsbCUyMCVFOSVBMCU4NiVFNSU4OCU5NyVFMyU4MyVCQiVFNyVCNSU4NCVFMyU4MSVCRiVFNSU5MCU4OCVFMyU4MiU4RiVFMyU4MSU5QiVFMyU4MyVCQiVFMyU4MSVCOSVFMyU4MSU4RCVFOSU5QiU4NiVFNSU5MCU4OCVFMyU4MyVCQiVFNyU5QiVCNCVFNyVBOSU4RCZ0eHQtY29sb3I9JTIzMjEyMTIxJnR4dC1mb250PUhpcmFnaW5vJTIwU2FucyUyMFc2JnR4dC1zaXplPTU2JnR4dC1jbGlwPWVsbGlwc2lzJnR4dC1hbGlnbj1sZWZ0JTJDdG9wJnM9ZDZmOWU5NmM1NmQwOGY3ODQzMDc3ODYyYzViNjc2NDc%26mark-x%3D142%26mark-y%3D112%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTYxNiZ0eHQ9JTQwYW9zaG8yMzUmdHh0LWNvbG9yPSUyMzIxMjEyMSZ0eHQtZm9udD1IaXJhZ2lubyUyMFNhbnMlMjBXNiZ0eHQtc2l6ZT0zNiZ0eHQtYWxpZ249bGVmdCUyQ3RvcCZzPTM5NDZjMjAyN2Q4OTI4YWViNjU5YWI5ZDk5MDY2Nzhl%26blend-x%3D142%26blend-y%3D491%26blend-mode%3Dnormal%26s%3D886f842dc7c20bb757af0b469bd36216)
{{#tags}}- {{label}}
{{/tags}}