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

Едва ли бесполезные задачки подобные этой ему помогут.

У вас есть код? Есть ведь всякие онлайн редакторы. Дали бы ссылочку - все бы запустили и порадовались.

Как показывает практика, даже в очень больших и серьёзных компаниях ТЗ не сильно лучше. Только они гораздо длиннее, а потенциальных косяков гораздо больше.

Вангуем, додумываем, всё по классике.

Насколько я читал - Перл это надстройка на Си

Не читайте советских газет.

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

Хм. Оказывается его там есть маленько.

на питонячьем это. войти можешь через x(a,b)

ты вроде такой кулхацкер, а вопросы глупые…

https://www.cyberforum.ru/freelance/thread2891515.html

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

Что такое «старая кодировка»? А «новая кодировка» существует? Если да то что это такое? Существуют ли ещё какие-то кроме «старых» и «новых» ?

эм нет, больше баш/питон/с/ и иногда перл, но эт чет из 2000х или 90х если еще

Разбиение одной строки на две делается одной строчкой кода в любом нормальном языке. Это не критично.

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

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);
    }
}

В С++ я не нашёл split вообще

Эмм. Это точно читаемо?

Что ж ты творишь)

Да. Если знаете регулярки - Да.

А если длина совпадающей подстроки равна нулю?

Вы свои примеры проверяете для частных случаев?

А условие задачи сформулировано как говно. Впрочем, как всегда в таких дебильных задачах.

Это задание настоящее. Вы вообще ничего не прочитали?

Так по условию второе слово прибавляется к первому. Ты используешь внешний (по отношении к скрипту, я знаю что это из коробки) модуль, это не честно - так то можно все решение уместить в

import my_module_for_talks_16616396; my_module_for_talks_16616396.do_magic()

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

Ты реюзаешь имена переменных трижды. Это из job security-ориентированных практик и гарантированное «втф, можешь писать понятнее» на любом код-ревью независимо от знания регулярок.

Это Перл. Там даже есть переменная «по умолчанию» - она вообще не пишется.

Это задание настоящее. Вы вообще ничего не прочитали?

Настоящее что? Настоящее задание для студентов на олимпиаде? Так я не сомневаюсь.

Я ссылку давал на исходник.

Эх, сто лет не писал на ruby. Хороший ЯП.

Но нет, завтра у меня опять питон. При чем аж в двух версиях. На проприетарном софте второй, а в опенсорсе третий.

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

Боже, что мы вообще на ЛОРе обсуждаем с вашей подачи =)

Вот именно. Три строчки кода. То:

• Задание кривое То:

• Кодировка какая?

То в течении часа никто код выдать не мог.

Плохо искал, там есть strtok(), он именно это и делает

 quicksort =:  (( $: @ ( <# [ ) ,  ( = # [ ) ,  $: @ ( > # [ ))  ( {~  ? @ # )]  ^:  ( 1 <# )

Как будет на Перле? Если не страшнее, то он не нужен.

А что выдать-то? Ну вон я выше оторвался от телефона, сел за комп и написал за 2 минуты.

Или это проверка, сколько на ЛОРе человек способны решить задачу первого курса? Результаты неутешительные, в общем.

Питон славен батарейками. Очень тупо было бы обойтись без них. Ты бы ещё ТСу предложил обойтись без регулярок в перле.

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

К слову, запринть sys.modules в своём скрипте, удивись (или нет), а потом расскажи, где ты видишь границу между «внешним» и нет.

Отписываюсь в новом легендарном треде. Надеюсь будет на уровне треда про Vue.

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

Лол. Можно хоть в одну строку всё записать.

Вот тебе на php вместо портянки fernandos-а:

<?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";
}

; - это строка

И против php я ничего не имею. Кроме регулярок - он круче Перла.

php … круче Перла

Щас хохотом соседей перебужу.

табуляция у вас не учитывается. А она бывает в записях вместо пробелов

Какая табуляция? Какие пробелы?

PHP Fatal error: Uncaught Error: Call to undefined function str_starts_with() in /home/miltorg/i.php:5 Stack trace: #0 {main} thrown in /home/miltorg/i.php on line 5

Допустим что никто не уложился. Знаешь о чём это говорит? О том что перл пригоден для компактного написания кода для двух частных случаев одной плохо сформулированой задачи.

Окей, перл на что-то способен. Но едва ли это станет для кого-то причиной начать/продолжить его использовать.

Во входной строке. Вы правда не понимаете?

Ты из прошлого нам что ли пишешь? И питон у тебя устаревший, и php…

Где в задании табуляция?

Вы вообще ни разу входные данные не обрабатывали? Там не только табуляция может быть.

Да и зарплату как я повижу платят хорошую)0

Полнейший сюр)0

За 10 баксов допишу \s в регулярку, так и быть.

Тема огонь. У меня 5 утра, и я не сплю, всё жду, что еще автор придумает. Теперь табуляции в ход пошли.

Это о многом говорит. Когда вы не обращаете на это внимание - значит мало опыта обработки входных строк.