Не, этому клоуну даже в спецолимпиаде позволять победить нельзя.

Победитель идёт работать за 20 р./ч. вместо ТСа ((

Думаю, за код на хаскеле вообще ничего не платят, так что у хаскелиста есть шанс, если уложится в три.

Ок. Хотите всё в одну строку? Пожалуйста:

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

($u1,$u2)=split/[+\s]+/;for(split(//,$u2)){$v .= $_;if($u1 =~ /$v$/){$v1=$v}}$u2 =~ s/$v1//;

print "$u1$u2";

Посмотри на его сайте видео. Полнейший сюр. Я бы даже стал платить 20р в час, лишь бы подобным не заниматься :D

Мой код читает все строки и для каждой вычисляет. А твой что делает? Где ввод? Переделывай.

84 символа

У тебя высер через точку с запятой, а у него абсолютно валидный чейнинг. Ты проиграл уже дважды.

153 символа. В 2 раза больше чем у меня

Они тоже внутри той же группы modern Perl ru

Теперь символы стал считать. xD

Я даже не сомневался, что ты начнёшь вилять как сучка в подворотне.

Да тут наверно никто не сомневался, он же из жёлтого дома вещает :D

Короче слился по полной. Тебе самому не зашкварно? Ты пацан или нет? С какова раёна будешь?

от перевода строки сильно изменится количество символов??? Тем более что я переводы строк не считал вообще

от перевода строки сильно изменится количество символов???

У меня результирующая строка честно вычисляется в одно выражение. А ты просто тухло стёр переводы строк между разными операторами. Крокодилий поступок.

В топике у тебя сказано про строки, а не про символы.

У меня в 4 строках обрабатывается любой порядок, у него в 4 строках обрабатывается любое количество входных строк.

А у тебя в 5 строках нет даже обработки ввода. ПОЗОР.

Вообще, если честно. Я рассчитывал на java или С++. Я знал что это древнегреческий язык. Но думал - может мне сейчас подкинут стройное решение.

Но нет. Чуда не случилось.

Я не считал строки. Вы чего??? Я считал символы. Ваша длинней в 2 раза. И функций там куча.

Я не считал строки.

Это с доработками можно принять как 6 строк. У меня 5 строк.

Продолжай позориться

Ты сделал мне день. Ночью будет сниться цирк и клоуны, пишущие на перле.

Так вам легче?

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

($u1,$u2)=split/[+\s]+/;
for(split(//,$u2)){$v .= $_;
if($u1 =~ /$v$/){$v1=$v}}$u2 =~ s/$v1//;

print "$u1$u2";

Здесь в строку по несколько выражений упихано. Это как минимум 7 строк, а если корректно фигурные скобочки расставить, то все 9.

Тему в избранное. Теперь шлакоблокунь и спорткарась на карусельди мой новый локальный мем.

Как перестать ржать?!

Вспомнить об отсутствии достойного образования

Образование лулзов тут оч достойное

Да после тебя и средняя школа кажется достойным образованием xD

шлакоблокунь и спорткарась на карусельди

Сделал мой день.

Шлакоблокунь

Существительное, неодушевлённое, мужской род, 2-е склонение.

Корень: -шлак-; интерфикс: -о-; корень: -блокунь-.

Произношение

• МФА: [ʂɫəkɐˈbɫokˈokʊnʲ]

Семантические свойства

Значение

Говнокод на перле, обычно нечитаем, полученный методом печатанья на клавиатуре индусом.

И хотя специальная олимпиада закончилась, всё же код на пайтоне удалось ещё немного укоротить:

import sys
for l in sys.stdin:
    f, s = l.replace('+',' ').split()
    print(f[:next(i for i in range(0, len(f)) if s.startswith(f[i:]))] + s)

Плавать брассом, печатать индусом. =)

Ух. Прямо молодость вспомнил. Я с этого персонажа примерно ~12-15 лет назад лулзы ловил в одной региональной nntp конфе.

А в перле есть list comprehension?

Мне то откуда знать, я же не сифачный некрофил.

https://youtu.be/4Q46xYqUwZQ

Ну ТСу то точно неоткуда с его блестящим образованием)

Никто в этой теме не знает перл =)

И самое главное: https://ru.wiktionary.org/wiki/%D0%BF%D0%B5%D1%80%D0%BB

перен., разг. нечто нелепое, смешное, бессмысленное ◆ Иногда в его речи встречаются такие перлы, что удивляешься.

Короч народ. Вот вам язык богов! делает это в 2 строки

// 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)

Уже меримся не строками, а символами.

У меня около 80см (символов)

Опоздал немного. Две строки было у меня на руби на предыдущей странице.

Теперь задача уталкивать в одну

вызов принят))

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

Вообщет, задание было уложиться в меньшее количество строк и функций чем у меня - пять.

Какой ты нехороший бракодел, у тебя же функциональный язык и функций слишком много! (Нет)

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

($_,$r)=split/[+\s]+/;
for $u3(split(//,$r)){
$v.=$u3;
$v1=$v if /$v$/}
$r =~ s/$v1//;

print $_.$r;

81 символ

Ладно вот последний вариант. Я спать пошел.

2 строки, 171 символ:

[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))

Это при условии, что карусель + сельдь занимаем длину в этом коде в 17 символов и перенос строки 1 символ :)

И мое решение может работать в браузере и на сервере и на смартфоне и на ПК! А Ваше?

Собственно, первую строчку можно убрать, написал по привычке. Тогда получаются желанные три строки.

Мне пхпшторм говоирит, что 95 символов и 5 строк https://imgur.com/a/4xNt9j6

я могу сделать это в 2 строки)

Вот. Это достойное заявление. И интересное решение. Если рабочее

Ввод-вывод конечно же считать не надо.

Так он же на лету переобулся. Теперь считает символы.

Так да. Прям в браузере можно проверить https://imgur.com/a/z4LVRmf

Это JS?

А как же вывод? В логах пользователю вряд-ли понравится.