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

Да гольф меня не интересует. Я чемпион мира по всем версиям в нём. Нужны были только синтаксические ништячки. Спасибо за $y.comb.produce(&[~])

Абалдеть!

http://russkiyslovar.ru/cool.png

Почему это изобрёл не я?

Я считал что в регулярках - я номер 1.

А почему не так?:

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

Вроде тоже срабатывает.

Т.е. то, что «размер блока в 1023680 Кб» вчетверо больше всей оперативной памяти в виртуалке вас нимало не смущает? Я ведь вывод free не просто так показывал, наверное.

Всё. Превосходство Борна Перла:

#!/usr/bin/perl


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

while (<D>) {print V if s/([^+\s]*?)([^+\s]*)[\s+]+\2/$1$2/}

ЧТД

Уточните, в чем превосходство?

В простоте. В скорости.

А какие метрики

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

Простота. - одна строчка и меньше 100 Байт. - Это всегда хорошо.

Ваше решение гораздо длиннее.

Перл предустановлен на все Линуксы.

Перл позволяет создавать исполняемые файлы.

Почему я не учу другие языки? - Потому что Перла мне хватает для всего.

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

Эмпирические выводы?

Гипотетические. Основанные на сублемативных ассоциациях наблюдения за подростками с недостаточным образованием.

:-)

Что-то вы по подросткам больше, похоже

Я в таком возрасте что подростки для меня начинаются с 30 лет.

Или вы про что?

Про отсутствие доказательной базы

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

Лови извращенца! Вот 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

Шаман!

А еще говорят на баше портянки. Да тут всё лаконично.

Не, я и портянку могу, для студентов нахаляву.

Очевидно, либо это баг pmap'а, либо блоки памяти в GNU/Linux'е можно выделять хитрыми способами.

проверим.
где твоё ядро на пёрле?
как собрать?

perl -COD -aE'$F[1]=~m<.+(??{$F[0]=~/$&$/?!say$`,$_:"(?!)"})>' text

Содержимое файла text:

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

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

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

vxod.txt
vyxod.txt

vxod.txt

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

Это всё есть на предыдущей странице. Спасибо.

Я считал что в регулярках - я номер 1.

Использование регулярных выражений – признак говнокода. Правильно использовать соответствующие инструменты, например парсеры INI/XML/JSON/…

И поэтому они везде. Где чуть поглубже капну код - регулярки. Регулярки во всей красе.

Почему поэтому? Потому что говнокод?

А что такое на твоём сайте тогда?

• Опыт php, perl, mySQL - больше 5 лет;
• JS - 3 года;
• вёрстка - больше 5 лет;
• C++, Java, Python - меньше года, под десктоп.

Если ты оставишь только пёрл, о 20 руб\час можешь и не мечтать!

Второе приложение верное. Из того, что приложение считает, что ему выделено 100500 гигабайтов памяти, не следует, что на него реально эти 100500 гигов потрачены.

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

perl -F\\W+ -COD -E'say$F[1]=~s/.+(??{$F[0]!~$&&&"(?!)"})/$F[0]/r' vhod.txt > vyhod.txt

Ладушки. Я думаю что доказал всем кто главный перловик на районе.

perl-golf был довольно популярен. Так что считайте, что тут ролевики занимаются исторической реконструкцией.

Переходящий приз «работа за 20 рублей в час» переходит perl5_guy. Бурные, продолжительные аплодисменты!

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

Вы не внимательно читали - я взял первое попавшееся задание. За деньги. Ссылка есть на первых страницах

задание за деньги? это где учебные задания решать дают за деньги?

А все уже осознали что они со своими Супер-пупер языками даже близко к перлу не подойдут. Но я ещё не запускал свою прогу по конвертации - скоро запущу

Как по-мне, оно что так, что эдак бессмысленно. Но на людей посмотреть забавно.

Я пока проанализировать не смогу. - У меня работа за 90 руб в час. Нужно объединять Эксельные прайсы - из 4 источников и класть их в Друпаловсие Ноды

Ты переписал мой код и хочешь чтоб я тебе его правил? Смешной парень

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

А что проверять? Пёрл с пхп довели тебя то того, что побираешься на фриланс-помойках, пытаясь решать тупой студентоте лабы на плюсах, фейлишь, пишешь велик-интерпретатор перл-плюсы, опять фейлишь и в итоге бежишь сюда набрасывать, чтобы тебе выкатили готовое решение. То есть после длительной практики с пёрлом и пхп имеем существенную утрату контингентных способностей, фактически инвалидность.

??? Я воткнул ваш код в редактор - И этот редактор мне написал это.

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

Ты бы мог насобирать больше, если бы просто побирался возле какого-нибудь ТЦ. А бомжи, которые роются в мусорных баках вообще по сравнению с 20р/час - олигархи.

А вот тут редактор говорит что ошибок нет

/(.*)\K\W+(?>\1)/gm

1st Capturing Group (.*)
.
matches any character (except for line terminators)
* matches the previous token between zero and unlimited times, as many times as possible, giving back as needed (greedy)
\K resets the starting point of the reported match. Any previously consumed characters are no longer included in the final match
\W
matches any non-word character (equivalent to [^a-zA-Z0-9_])

Но почему то ничего не находит.

Если это решение - то оно интересно. Вы не могли бы написать его в виде?:

#!/usr/bin/perl


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

while (<D>) {print V if s/([^+\s]*?)([^+\s]*)[\s+]+\2/$1$2/}