[DJ Mogarych]

Powershell. Вроде работает, не знаю, насколько корректно будет, надо смотреть.

Код:

$words = (gc C:\temp\slovar\words.txt) -notmatch "^[йьъы]|[йьъы]$|[^а-я]"

$chainword = @(Get-Random -InputObject $words -OutVariable w)

for ($c=1;$c -le 10;$c++) {
$l = $w.tochararray()[-1]
$w = Get-Random -InputObject ($words -match "^$l" -notmatch "$w")
$chainword += $w
}

$chainword

Пример вывода

Код:

лютесценс
сейсмопартия
языцех
хаджи
идиотка
абак
кинокамера
артудар
ровесница
антенночка
автодин