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

я написал браузер на ассемблере. всего в 1 строчку.

В перл-гольфе вообще по количеству символов в программе соревнуются

А я не про браузер. Я про конкретное задание.

Которое я выложу. Пока есть только на Перл. Но у меня есть специальная, созданная мной программа по переделке на разные языки программирования.

тут выяснилось, что перл один из самых энергонеэффективных языков, согласно исследованиям

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

А дайте почитать. Где это? Насколько я читал - Перл это надстройка на Си И все Линуксы написаны именно на Перле.

Зачем вы утрируете? Вполне себе нормальная, понятная программа получилась.

На правах .. - советую присоединится к нам в телегам группах https://modernperl.ru/

в толксах тред по глобальное потепление, если перейти по ссылке и прочитать пдф

Потому что на нём уже почти никто не пишет?

Встречаем других лидеров: Algol, BCPL, Cobol.

Насколько я читал - Перл это надстройка на Си И все Линуксы написаны именно на Перле.

Ты явно что-то не то читаешь.

А код нам покажешь?

На ваших Супер-пупер языках?

<?php
for ($i = 1; $i <= mb_strlen($argv[1]) && $i <= mb_strlen($argv[2]); $i++)
    if (mb_substr($argv[1], mb_strlen($argv[1]) - $i) === mb_substr($argv[2], 0, $i)) 
        $j = $i;
echo (isset($j)) ? $argv[1] . mb_substr($argv[2], $j) : 'error';

//а что, речь про перл, а не читабельность.

И условие не полное. Кодировка однобайтовая или юникод?

Не удивлюсь, что юникод. Perl 5 должен очень хорошо поддерживать юникод.

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

Ну, и раз уж начали раковать, то вот в 4 строки:

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)

Думать уже лень, но на примерах из топика работает.

Вообщет я ждал С++ Джаву или Го

То что PHP хороший язык - я знаю и так.

??? Вроде даже примеры даны. Или вы будите специально искать старые кодировки? Старых кодировок - не нужно.

Кстати в Перл это всё решается добавлением одной строки, там где нужно. Но, в основном, и не нужно

#!/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),
        )
    )

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

Ужать до 7 строк не проблема если плюнуть на читаемость и pep8.

А куда у вас строка исходная вводится?

Параметры командной строки, вестимо.

data - это вход?

Тогда не сообветствие заданию.

Вот как должно быть:

#!/usr/bin/perl

$= «шлакоблок + окунь»; #$= «папа + папаха»;

Так?: шлакоблок + окунь или папа + папаха

Причём, мне кажется, что количество пробелов может быть любым

какой-то странный код - там же лишние присваивания в цикле будут происходить

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

Так: $ скрипт шлакоблок окунь

Плюсик тут лишний откровенно, мусорный. Если важно с ним, то у Фернандоса, по-хорошему, добавится строка, а у меня нет.

data - это вход?

Критично именно читать stdin?

#!/usr/bin/env python3

import sys

first_word, second_word = sys.argv[1], sys.argv[2]

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 [first_word, second_word]]
        ),
        output="".join(results),
    )
)

Вот как должно быть:

И что это значит?

В моей программе с читаемостью - всё в порядке.

Вашу программу мы еще не видели.

Плюсик есть в задании. В примере. Значит заказчик хочет и так, и так.

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)

От перла если и отличается, то ненамного.

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

Алсо, проводить сравнение на оторванных от реальности дибильных олимпиадных задачках это такое себе, может ради интереса сравним на чем-то реальном?

Просили коротко, сделал коротко.

Параметрами.

php i.php "папа" "папаха"

А вы напишите в виде строки, а не в виде ввода с клавиатуры. И всё поймёте.

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

Конечно нет.

Необходимо для каждой пары слов получить новое слово, так, чтобы окончание первого совпадало с началом второго, например, шлакоблок + окунь = шлакоблокунь. Это слово надо вывести в стандартный поток вывода.Если слова возможно соединить несколькими способами, надо выбрать тот, что обеспечивает максимальную общую часть, например папа + папаха = папаха (а не папапаха). Необходимо написать последнее условие.

Так я написал уже. Или вам пример как в терминале запускать?

$ ./script.py шлакоблок окунь
"шлакоблок" + "окунь": "шлакоблокунь"

$ ./script.py папа папаха
"папа" + "папаха": "папаха"

а не в виде ввода с клавиатуры

Хотя стоп. Вариант с данными в срипте вам не нравится, вариант с чтением ввода вам не нравится, что для перловиков тогда "ввод с клавиатуры"?

нет.

В задании «папа + папаха»

вы правда не понимаете?

Не 2 переменные, а строка. Там вроде даже написано что строка

Так меняешь их местами, второй становится первым.

Если даже в задании + - неявно. То моя программа с +

А ведь ваш язык лучше гораздо.

Необходимо для каждой пары слов получить новое слово, так, чтобы окончание первого совпадало с началом второго, например, шлакоблок + окунь = шлакоблокунь. Это слово надо вывести в стандартный поток вывода.Если слова возможно соединить несколькими способами, надо выбрать тот, что обеспечивает максимальную общую часть, например папа + папаха = папаха (а не папапаха). Необходимо написать последнее условие.

Где тут описано как именно входящие данные должны выглядеть? Что за придирки к орфографии? Преподом не работаете случайно?

Эти примеры - всего два частных случая. Условие не говорит ничего про возможность скормить программе что-либо кроме кирилицы, не говорит нужно ли учитывать регистр, не приводит примеров входных файлов, не говорит о нормализации юникода (Если таковой вообще используется) и т.д.

Это не претензия к перлу, это претензия к постановке задачи.

А вы напишите в виде строки,

— вход в виде строки в программе.

Вы правда не понимаете?

Или в виде ОДНОЙ переменной на вход программы

Я даю задание. Я. И моя программа это делает. У вас ведь лучше программа? Или нет?

Вы серьезно считаете что если я сделаю разделение строки по "+" чтоб из этого получить два слова это сильно что-то поменяет? Или это в перле так?

А код будет?

Еще раз - вашей программы мы не видели. Пока вы только на словах Лев Толстой. Я написал уже работающий алгоритм, вы придираетесь к оформлению.

Не просто + А мне кажется что там что угодно может быть. Любой непечатный символ и +

Я именно так писал.

А мне кажется

Я даю задание. Я.

Понятно, вы не то что написать программу не можете, вы даже не можете сформулировать условие. Был не прав, вы не Лев Толстой даже на словах.

Да дерьмо твоё задание. Мусорные какие-то условия, которые ничего не привносят. К моему коду это всё равно не добавит ни строки. Проиграл ты со своим перлом.