Здравствуйте, Ziaw, Вы писали:

var list = ["kaliningrad", "vologda", "almaty", "dmitrov", "arhangelsk", "tobolsk", "krakov"];
let search(t, l, w, i) {
    on u, x::xs, _, _ -> x[0] == w[i] ? {list = t+xs; x } : search(x::u, xs, w, i)
    on _ -> search([], t+l, w, i - 1)
}

var p = "a";
[ for (e in list) p = search([], list, p, p.length - 1) ]

132
Немерлевский вариант можно, я думаю, в таком же ключе написать.