История изменений

> for $*IN.lines {
    if .words.elems != 2 { say "I want two words..."; next }
    my ($x, $y) = |.words;
    say $y.comb.produce(&[~]).map({ $x.ends-with($_) ?? $x ~ $y.substr(.chars) !! Empty }).max // "$x$y"
}
о к
ок
шлакоблок окунь
шлакоблокунь
форель рельса
форельса
папа папаха
папаха
^CPressed CTRL-c, press CTRL-c again to exit

> for $*IN.lines {
    if .words.elems != 2 { say "I want two words..."; next }
    my ($x, $y) = |.words;
    say $y.comb.produce(&[~]).map({ $x.ends-with($_) ?? $x ~ $y.substr(.chars) !! Empty }).first // "$x$y"
}
о к
ок
шлакоблок окунь
шлакоблокунь
форель рельса
форельса
^CPressed CTRL-c, press CTRL-c again to exit