Говорили что Перл старый, ни на что не способный язык. Проверим?(часть 2)

import difflib, sys
s = difflib.SequenceMatcher(None, sys.argv[-2], sys.argv[-1])
m = s.find_longest_match()
print(s.a[:m.a]+s.b if m.a > m.b or m.a == m.b and len(s.a) < len(s.b) else s.b[:m.b]+s.a)

#!/usr/bin/env python3

data = (
    ("шлакоблок", "окунь"),
    ("папа", "папаха"),
    ("карусель", "сельдь"),
    ("спорткар", "карась"),
    ("форель", "рельса"),
)

for incoming_pair in data:

    first_word, second_word = incoming_pair[0], incoming_pair[1]

    results = []

    for index in range(len(second_word)):

        if first_word[-index:] == second_word[:index]:
            results = first_word[:-index] + second_word

    print(
        '{input}: "{output}"'.format(
            input=" + ".join(['"{}"'.format(i) for i in incoming_pair]),
            output="".join(results),
        )
    )

x = lambda x, y: x[-2:] + y[2:]

import difflib, sys
s = difflib.SequenceMatcher(None, *sys.argv[-1].replace(' ', '').lower().split('+', 2))
m = s.find_longest_match()
print(s.a[:m.a]+s.b if m.a > m.b or m.a == m.b and len(s.a) < len(s.b) else s.b[:m.b]+s.a)

import sys
for line in sys.stdin:
    first, second = line.replace('+', '').split()
    best = next(i for i in range(0, len(first)) if second.startswith(first[i:]))
    print(first[:best] + second) if best is not None else print(first + second)

#!/usr/bin/perl
 
$_= "шлакоблок + окунь";
#$_= "папа + папаха";

($u1,$u2) = split/[+\s]+/;

for(split(//,$u2)){
  $v .= $_;
  if ($u1 =~ /$v$/) {$v1=$v}  
  }

$u2 =~ s/$v1//;

print "$u1$u2";

firstW, secondW = str(input()).split(' ')
t=len(firstW)
for j in range(t):
    if(firstW[j:]==secondW[:t-j]): break
print("%s%s"%(firstW,secondW[t-j:]))

use std::io::{stdin, BufRead, BufReader};

fn main() {
    'outter: for line in BufReader::new(stdin()).lines() {
        let line = line.expect("Error while reading a line").replace('+', " ");
        let (first, second) = line
            .split_once(char::is_whitespace)
            .map(|(s1, s2)| (s1, s2.trim_start()))
            .expect("Error while extracting strings");

        for i in 0..first.len() {
            if second.as_bytes().starts_with(&first.as_bytes()[i..]) {
                println!("{}{}", &first[..i], second);
                continue 'outter;
            }
        }

        println!("{}{}", first, second);
    }
}

Perl не нужно противопоставлять Си  

Возьмём список русских существительных, например отсюда: https://github.com/Harrix/Russian-Nouns/releases/download/v2.0/russian_nouns_v2.0.zip На основе этого списка создадим новый, со всеми новыми сочетаниями, где перекрываются не менее 3 букв. Тут даже секундомером можно замерять. У меня на моем стареньком ноуте ушло несколько минут и сгенерировалось почти 40 Мбайт из одного. У Вас есть код на Перле и C++. Можете сравнить время. Так как здесь тоже работа со строками, то у Перла есть шанс.

Но потом договорились до изменения задания:

Тут ведь уже говорили - что основное время программы - это ввод и вывод. То есть в задании нужно сделать как можно меньше выводов.

Единственное что мне приходит в голову - найти максимальное вхождение одного слова в другое.

vadim@aquila:/tmp/111$ cat 1.txt 
шлакоблок + окунь
папа + папаха
карусель + сельдь
спорткар + карась
форель + рельса
хрен + нога
бугага + несовпало
ааа + бб
vadim@aquila:/tmp/111$ cat 1.rb 
STDIN.read.lines do |line|
    a, b = line.strip.split(/[ +]+/)
    i = [a.size, b.size].min
    while i > 0 do
        break if b.start_with? a[a.size - i .. -1]
        i -= 1
    end
    puts "#{a} + #{b} = #{a}#{b[i..-1]}"
end
vadim@aquila:/tmp/111$ ruby 1.rb < 1.txt 
шлакоблок + окунь = шлакоблокунь
папа + папаха = папаха
карусель + сельдь = карусельдь
спорткар + карась = спорткарась
форель + рельса = форельса
хрен + нога = хренога
бугага + несовпало = бугаганесовпало
ааа + бб = ааабб
vadim@aquila:/tmp/111$ 

<?php
while($line = fgets(STDIN)){
    [$a, $b] = preg_split('/[ +]+/', trim($line));
    $i = min(mb_strlen($a), mb_strlen($b));
    while ($i > 0) if (str_starts_with($b, mb_substr($a, -$i))) break; else $i--;
    $c = mb_substr($b, $i); echo "$a + $b = $a$c\n";
}

STDIN.read.lines do |line|
    a, b = line.strip.split(/[ +]+/)
    puts "#{a} + #{b} = #{a}#{b[([a.size, b.size].min().step(0, -1).find{|i| b[0,i] == a[-i,i]})..-1]}"
end

Все давно проверено.  

// let str = 'шлакоблок + окунь';
// let str = 'спорткар + карась';
// let str = ' папа  +  папаха ';
let str = 'карусель + сельдь';

let [str1, str2] = str.split('+').map(el => el.replace(/\s/g, ''));

let res = str1.replace(str1.split('').filter((el, i) => str2.includes(str1.slice(i))).join(''), '').concat(str2)

console.log(res);

module Main where
import Data.List
test xs ys = xs ++ drop (last $ findIndices (`isSuffixOf` xs) $ inits ys) ys
main = getLine >>= \xs -> getLine >>= \ys -> putStrLn (test xs ys)

[a, b] = 'карусель + сельдь'.split('+').map(e => e.replace(/\s/g, ''));
console.log(a.replace(a.split('').filter((e, i) => b.includes(a.slice(i))).join(''), '').concat(b))

function join(a = '', b = '') {
    if (a.endsWith(b)) return a

    let w = b

    while (w = w.slice(0, -1)) 
        if (a.endsWith(w)) return a + b.slice(w.length)
    
    return a + b
}

((x,y) => alert(x.concat(y.replace(x.split("").reduce(([xP, p], v) => v === y[p] ? [xP + v, p + 1] : [xP, p], ["", 0])[0], ""))))(prompt("слово раз"), prompt("слово два"))

import java.util.List;
import java.util.Scanner;
import java.util.stream.Collectors;
import java.util.stream.Stream;

public class FunStringJoiner {

    public static void main(String[] args) {

        Scanner scanner = new Scanner(System.in);

        while (scanner.hasNextLine()) {
            String arg = scanner.nextLine();

            List<String> words = Stream.of(arg.split("\\+")).map(String::trim).collect(Collectors.toList());
            if (words.size() == 2) {
                String substr = "";
                int len = words.get(0).length();
                for (int pos = len; pos > 0; pos--) {
                    String seq = words.get(0).substring(len - pos, len);
                    if (words.get(1).startsWith(seq)) {
                        substr = seq;
                        break;
                    }
                }
                System.out.printf("%s + %s = %s%s\n", words.get(0), words.get(1), words.get(0), words.get(1).replace(substr, ""));
            }
        }
    }
}

https://www.linux.org.ru/forum/development/16616396?cid=16617752

import Data.List

joinPref s1 s2 = noPref s1 ++ s2
    where noPref [] = []
          noPref (c:s) | (c:s) `isPrefixOf` s2 = []
                       | otherwise = c : noPref s
                       
solution s = joinPref s1 (tail s2)
    where (s1, s2) = break (=='+') s

perl сливает даже жабоподобному шарпу, получается?

List<string> strings = Console.ReadLine().Split('+').Select(s => s.Trim()).ToList();
var counter = 0;
for (int i = 1; i <= strings.Min(s=>s.Length); i++)
    if(strings[0].Substring(strings[0].Length-i)==strings[1].Substring(0, i))
        counter = i;
Console.WriteLine("{0}{1}", strings[0], strings[1].Substring(counter));

[a, b] = process.argv[2].split(/\s?\+\s?/)
for (w = b; ; w = w.slice(0, -1))
    if (a.endsWith(w)) return console.log(a + b.slice(w.length))

Ок, на наших, так на наших. Сплит делать не интересно, зато покажу как обойтись без подстрок (и без скобочек, конечно).

def main
    #*s1 @string "шлакоблок"
    #*s2 @string "окунь"
    *s1 @string "папа"
    *s2 @string "папаха"
    *len1 @int @size s1
    *len2 @int @size s2
    *i @int 0
    *j @int 0
    for
        if i len1
            break
        if j len2
            break
        if s1|i s2|j
            j + 1
        else
            j = 0
        i + 1
    s2 @erase 0 j
    s1 + s2
    @print s1

Ещё немного синтаксических чудес принёс вам, добрые мои друзья:

my (\x, \y) = < форель рельса >;

( 0 .. * )
    .map({ substr( x, 0, $_ ) ~ y })
    .first({ .starts-with: x })
    .put

По условиям задачи правильнее только будет так:

> 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

5 строчек с вводом-выводом, всё по канонам Супер-пупер языков.

На супер-пупер языках достаточно одной строчки.

Connected to:
Oracle Database 19c Enterprise Edition Release 19.0.0.0.0 - Production
Version 19.13.0.0.0

SQL> with x as (select column_value str from table(sys.odcivarchar2list('шлакоблок + окунь', 'папа + папаха', 'карусель + сельдь', 'спорткар + карась', 'форель + рельса'))),words as (select substr(str, 1, instr(str, ' + ') - 1) w1, substr(str, instr(str, ' + ') + length(' + ')) w2 from x) select w1, w2, res from (select w1, w2, res, lvl, max(lvl) over(partition by w1, w2) maxlvl from (select w1, w2, substr(w1, 1, length(w1) - lvl) || w2 res, lvl from (select w.w1, w.w2, l.* from words w, lateral(select  level lvl, substr(w.w2, 1, level) w1s, substr(w.w1, length(w.w1) - level + 1) w2s from dual connect by level <= length(w.w2)) l) where w1s = w2s)) where lvl = maxlvl;

W1                   W2                   RES                                     
-------------------- -------------------- ----------------------------------------
карусель             сельдь               карусельдь                              
папа                 папаха               папаха                                  
спорткар             карась               спорткарась                             
форель               рельса               форельса                                
шлакоблок            окунь                шлакоблокунь  

$ echo 'авантюристка авантюрность' | sed -E 's/(.+)[ +]+\1/\1/'
авантюристкавантюрность

Ок, выступлю на С++, одна строка:

using namespace std;int main(int a, char *v[]){for(int i=0;i<a/3;i++){int index=1+i*3;auto l=string(v[index]);auto r=string(v[index+2]);for(int x=0;x<l.length()-2;x+=2){if(l.compare(r.substr(0,l.length()))==0){cout<<r<<endl;break;}string o="";o+=l.substr(0,x+2);o+=r;auto c=o.substr(0,l.length());if(l.compare(c)==0){cout<<o<<endl;break;}}}};

Проверяем

clang++ -include"iostream" minifiedMax.cpp && ./a.out шлакоблок + окунь петух + тухлятина дырявый + сарай папа + папаха

    Давай я за джавистов скажу.

Лови извращенца! Вот jshell чтобы на классы строки не тратить

//usr/bin/env jshell -J-Darg="$1" --execution local "$0"; exit $?
String[] str = System.getProperty("arg").split("\\s*\\+\\s*");
System.out.println(java.util.stream.IntStream.iterate(Math.min(str[0].length(), str[1].length()), len -> len - 1).filter(len -> str[0].substring(str[0].length() - len, str[0].length()).equals(str[1].substring(0, len))).mapToObj(len -> System.getProperty("arg") + "=" + str[0] + str[1].substring(len, str[1].length())).findFirst().orElseGet(() -> str[0] + str[1]));
/exit

Та тут даже баш в 140 символов укладывется

while read a;do b=${a%+*};c=${a#*+};i=0;while [ $i -lt ${#b} ] && [[ ! ${c} == ${b:i}* ]];do ((i++));done;echo "$a=${b:0:i}$c";done < input