sed

@anonymous Лень.

@anonymous пук

@l29ah тогда `use Lingua::JA::Kana;`

@anonymous не шаришь

Сделай. Я приделаю веб-интерфейс на буцтропе и будет клевый генератор для названий новых гемов.

@komar let ss = "aiueo"; cs = "kgsztdnhmrw"; us = [c:s:[] | c <- cs, s <- ss] in getStdRandom (randomR (3, 6)) >>= (\len -> newStdGen >>= (return . concatMap (\x -> us !! x) . take len . randomRs (0, length us - 1)))

@l29ah чо без ジ?

@anonymous zi это оно же.

Бля, p забыл, запихайте в cs тож.

@l29ah а ン?

@anonymous Не нужно.

@l29ah и гласные (без согласной) где?

@anonymous Не нужны. Задача была сделать генератор легкопроизносимых названий, поэтому всякие auieo тут лишние.

@l29ah pwgen -0

горенатор

@anonymous губернатор