Может быть расскажешь этим добрым людям что ещё можно интересного сделать? Мне в голову приходят только символы-операторы юникодовые Lilly

Интересный алгоритм.

И ведь более чем читабельно при всей лаконичности, джа? Самое крутое, что язык Perl’овый и не нужно знать его весь чтоб начать использовать.

Только благодаря этой теме узнал о Raku, выглядит достойно

Они переписали руби обратно в перловом стиле?

STDIN.read.lines do |line|
    a, b = line.strip.split(/[ +]+/)
    puts (0..a.size).map{|i| a[0,i] + b}.find{|x| x.start_with? a}
end

Испытал влияние: Haskell, JavaScript, Perl, Ruby, Smalltalk, J

Нет, но очевидно что фишечки хватали из разных языков.

Я гольфить не умею от слова совсем, так что бестолковый, ха.

Первое решение пришедшее в голову это с produce/map:

my ($x, $y) = <шлакоблок окунь>;
$y.comb.produce(&[~]).map({ $x.ends-with($_) ?? $x ~ $y.substr(.chars) !! Empty }).first.say

Чуть длиннее твоего, но может сама идея понятнее чем через индексы.

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

> 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                                     
-------------------- -------------------- ----------------------------------------
карусель             сельдь               карусельдь                              
папа                 папаха               папаха                                  
спорткар             карась               спорткарась                             
форель               рельса               форельса                                
шлакоблок            окунь                шлакоблокунь  

Это всё конечно оч круто. Тут собрались умные перлисты, питонисты, джависты и даже SQLисты.

Но я всё ждал, когда кто-нибудь напишет, что задача решается без языков программирования вообще, одной регуляркой:

$ sed -E 's/\s*([^+[:space:]]*?)([^+[:space:]]*)\s*[ +]\s*\2/\1\2/' < 1.txt
шлакоблокунь
папаха
карусельдь
спорткарась
форельса
хренога
бугаганесовпало
ааабб

Перлисты уже не те!

hobbit, а вот анонимус бы решил!

Ну 4.2 же. «Одна регулярка» это просто выражение для сравнения, а s/// штучки это уже не «решается без языков программирования». Да и желание всё подряд решать регулярками от лукавого, когда читабельное решение занимает почти столько же символов.

Тем не менее, регулярка правильно захватывает нужные части выражения. А чем их вывести это уже дело десятое. Это в любом случае одна строка на любом ЯП. Без сложных операций над строками на самом ЯП.

Ну если проверка ends-with и конкатенация строк это та-а-а-акие сложные операции по сравнению с читабельным и понятным s/\s*([^+[:space:]]*?)([^+[:space:]]*)\s*[ +]\s*\2/\1\2/, то да.

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

У нас тут специальная олимпиада, ты разве не понял?

Ну кому не нужны тому не нужны. ¯_(ツ)_/¯

без языков программирования

Здрасьте, с каких это пор sed перестал быть языком программирования?

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

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 шлакоблок + окунь петух + тухлятина дырявый + сарай папа + папаха

шлакоблокунь
петухлятина
папаха

https://gitlab.com/demensdeum/wordcross/-/blob/main/wordcross.cpp

Ещё в копилочку хороших ругательств: «петухлятина».

sbcl не использует столько библиотек. Я специально привёл строчку, куда подевалось больше гига RAM - это блок памяти выделенный при помощи malloc или mmap.

ШОК! МАГИЯ! SBCL!

ugoday@debian:~$ free -m
               total        used        free      shared  buff/cache   available
Mem:             221          60          15           0         144         152
Swap:              0           0           0
ugoday@debian:~$ pmap -x $(pgrep sbcl)| tail -1
total kB         1228080   20476     564

Всем. У меня решение на Перле было в 80 символов. Есть лучше?

Время кто-нибудь сравнил? - Тогда о чём вы?

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

Решение одной регуляркой - это всё равно очень интересно и познавательно. Жалко что у меня нет сейчас времени.

Из этого гигабайта, который показывает pmap, по его же данным к RSS и PSS относятся лишь по 68 Кб.

Но он определённо показывает размер блока в 1023680 Кб. И это не память разделяемой библиотеки, а именно anon block.

Всё. Я получил свои 80 руб за 4 часа работы и всё сделал. Клиент просто пищит от восторга.

Ого! Это работает!

А символов сколько?

Да. И так-как появились разночтения по поводу Вход-выход. Вход выход делаем в виде файлов:

1. vxod.txt
2. vyxod.txt

Количество Байт считаем здесь:

http://russkiyslovar.ru/kolsimvolov.php

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

Вопрос не в удобстве, это вынужденная необходимость. :)

Вы не знали что Перл лучший язык? Повторю - на нём половина Линукса написана

Вы об этом Линусу уже сообщили? А то он видимо бухой был и пропустил этот момент.

А четвертая на c#

Глупый товарищ. И плюсы нужны и жаба нужна в своём месте. На плюсах я прошивку для процессора в несколько килобайтов пишу. А на жаве микросервисы, жрущие сотни мегабайтов. А перл не нужен. И С не нужен.

Вот раст это да. Он их всех может заменить в теории. Мощная штука.

Работа с БД, с файловой системой, системными командами - всё это в Перле элементарно.
Этой лёгкости нет в php - что очень жалко.

Шо за БД? dbase, fox, paradox, что-то ещё ?

Ого! 73 байта

http://russkiyslovar.ru/kolsimvolov.php

Получается, что это победитель по символам.

Плюс забыл:

vxod.txt

шлакоблок + окунь
форель + рельса
папа + папаха

Вы можете использовать стандартный механизм терминала юникс для ввода и вывода в файл, с любым из решений которое работает с stdin и stdout

Какой то человек с вашим ником и вашими фотками пишет мне грязные матюки в Телегу. Это вы?

http://russkiyslovar.ru/mat.png

http://russkiyslovar.ru/mat2.png

Как то мне кажется - что это вы. Не стану с вами общаться. И никому не советую. А то получите в Телегу такие же матерки

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

Дописал:

#!/usr/bin/perl

open D, 'vxod.txt';
open V, '>vyxod.txt';

while (<D>) {
$v='';
($_,$r)=split/[+\s]+/;
for$k(split(//,$r)){
$v.=$k;
$v1=$v if/$v$/}
$r=~s/$v1//;

print V "$_$r\n";
}

177 байт

Время работы скрипта 0.00027609 сек

шлакоблокунь форельса папаха

http://russkiyslovar.ru/cgi-bin/in21.pl

Меня просто поражают люди которые говорят банальные вещи с очень умно-значимым видом.

Причина только одна - для постижения этих банальностей эти люди потратили очень много времени и усилий.

Меня тоже