Crazy_Owl 15.05.2011 11:19 33403371041305455156778164

Посоветуйте, как нагенерить бесконечный список строк из алфавита, например ["a","b",..."Z", "aa", "ab", ... "ZZ", "aaa", "aab" ...] Наверняка это делается просто.

Haskell
#inetz
re 3 comments !recommend ~bookmark Ssubscribe
1. rtsome 15.05.2011 12:16

concat $ iterate (concat .map ((flip map) ['a'..'z'] .(flip (:)))) $ map (:[]) ['a'..'z']

#inetz/1
rereply
2. rtsome → rtsome /1 15.05.2011 12:19

но это фигня

#inetz/2
rereply
3. rtsome → rtsome /2 15.05.2011 12:35

import Control.Applicative
let q=['a'..'z']
concat.iterate ((:) <$> q <*>) $ map pure q

#inetz/3
rereply
Do you really want to delete ?