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

меньше 60/80мб никак не может

640 Кб хватит всем?

ЗЫ. Хелловорлд в Steel Bank Common Lisp на x86_64 кушает больше гига.

О, кто-то решил лабу зарешать на первом курсе силами ЛОР-а и отобрать лучший вариант на нужном ЯП? Не, пока своё поделие не выложишь, нормальные люди даже не будут пытаться что-то там писать.

Простите, вас почитать, так вы чернорабочим работаете?

драйвера на питоне?

Ой простите, тут же одни лиды с сигарами сидят. Куда я в калашный ряд.

https://en.wiktionary.org/wiki/driver#Noun

Something that drives something, in any sense of the verb to drive.

Нет-нет, ни в коем случае, речь не про это. Просто вы так быстро прыгаете от одного ЯП к другому.

Ну и конкретно этот случай прямо очень запущенный.

Да собственно ничего не предвещало беды, но вдруг на проде что посыпалось. Полезли смотреть, а там кросивое.

Algol жив по сей день в своих потомках.

10 страниц и ни одного решения на Perl'е...

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use v5.10;

binmode ( STDOUT, 'encoding(UTF-8)' );

my ( $x, $y ) = qw( шлакоблок окунь );

$x =~ m<
    .+$ (??{
        $y =~ /^$&/ && exit( say $x, $' )
    })(?!)
>x;

qw( шлакоблок окунь )

Хы, это типа как в Ruby?

%w{one two three}

Из перла сперли.

В своё время копаясь в проприетарных исходниках Nokia (Symbian UIQ2, Symbian S60, S40) и Motorola (P2K, EZX, MotoMAGX) был сильно удивлён насколько там всё подвязано именно на использование различных Perl-скриптов. На этих же скриптах там были выполнены надстройки над сборочными системами. Часть из этого потом попала в паблик (различные SDK, открытые исходники Linux и Symbian и пр.).

Вообще звучит как описание C#

Не считая последнего пункта

Для веба.

Так ЛОР на 99% из веб-макак состоит

(?{}), а не (??{}). Ну и да, так на Perl’е никто не пишет. Это чтоб попки поджечь в этом ИТТ треде.

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

Ок, на наших, так на наших. Сплит делать не интересно, зато покажу как обойтись без подстрок (и без скобочек, конечно).

def main
    #*s1 @string "шлакоблок"
    #*s2 @string "окунь"
    *s1 @string "папа"
    *s2 @string "папаха"
    *len1 @int @size s1
    *len2 @int @size s2
    *i @int 0
    *j @int 0
    for
        if i len1
            break
        if j len2
            break
        if s1|i s2|j
            j + 1
        else
            j = 0
        i + 1
    s2 @erase 0 j
    s1 + s2
    @print s1

Я про RAM занятую «sbcl --script» говорил. pmap показывает что-то в районе

 total          1238268K

0000001001550000 1026752K rwx--   [ anon ]

Хы, это типа как в Ruby?

Из перла сперли.

Ты вообше в курсе, как Ruby появился?

Как попытка переписать перл человеческим языком.

Да. И дообъекноориентировать пистон. Тогда чему ты удивляешься?

Ты не в теме. Тут всё печальнее.

Мерило у всех разное, но звучит вполне себе как раст.

Спрячьте свое интерпретируемое говно с многомегабайтными рантаймами.

#include <string.h>
#include <stdio.h>

static int u8l(const char *c)
{
    if ((*c & 0x80) == 0)
        return 1;
#define U(i) ((c[i] & 0xc0) == 0x80)
    if ((*c & 0xe0) == 0xc0 && U(1))
        return 2;
    if ((*c & 0xf0) == 0xe0 && U(1) && U(2))
        return 3;
    if ((*c & 0xf8) == 0xf0 && U(1) && U(2) && U(3))
        return 4;
#undef U
    return 1;
}

static int
solve(const char *a, const char *b)
{
    int l = strlen(a);
    int common = 0, i = u8l(b);
    for (; i <= l; i += u8l(b + i))
    {
        if (memcmp(a + l - i, b, i) == 0)
            common = i;
    }
    return common;
}

int main()
{
    const char *data[][2] = {
        {"шлакоблок", "окунь"},
        {"папа", "папаха"},
        {"карусель", "сельдь"},
        {"спорткар", "карась"},
        {"форель", "рельса"},
    };
    for (int i = 0; i < sizeof(data) / sizeof(*data); i++) {
        const char *a = data[i][0], *b = data[i][1];
        int l = solve(a, b);
        printf("\"%s\" + \"%s\" => %s%s\n", a, b, a, b + l);
    }
    return 0;
}

P. S. почти 700kb статически слинкованный пострипанный бинарник — ужас, как мы докатились до жизни такой?

Всем:

А скорость никто не посчитал? Перл всегда дрючил всех по скорости

Всё настолько плохо?

Java/Scala/C#?

http://russkiyslovar.ru/cgi-bin/in2.pl?шлакоблок+окунь

Поставил измерение скорости.

Я здесь ничего не понял. Но я уверен, что на Raku я не пойму ещё больше.

У тебя питон устаревший. В свежем для параметров заданы дефолты.

В этом вся суть питона

В этом вся суть питона

Питон вполне неплох, когда он не системный.

Собраешь в pyenv нужную под приложение версию и радуешься. (Если собралось, лол.)

А вот когда системный питон обвешивают тонной библиотек и пытаются на всём этом взлететь, вот тут-то и начинается.

Я бы вообще за попытку протащить такие ЯП в глубины /usr нещадно давал по щщам, но мейнтейнеры дистров другого мнения.

Я слабо знаю Raku, поэтому могут быть ошибки и уверен что можно более красиво написать. Тем не менее:

my ( $x, $y ) = < форель рельса >;

( 0 .. $x.chars )
    .map({ substr( $x, 0, $_ ) ~ $y })
    .first( /^$x/ )
    .put()

Я использовал принудительный бэктрекинг движка регулярных выражений, чтоб перебрать подстроки и найти нужную. Как и писал выше - спецом написал непонятно, чтоб добавить перчинки в дискуссию. Но походу опоздал. Уже вяло обсуждение идёт.

Лучше не вникай, побереги мозг. Нас-то уже не спасти…

Обратная совместимость не сломана. Так что в молоко.

Для хэйтеров регвыров можно использовать: .first({ .starts-with( $x ) })

На самом деле было бы интересно посмотреть бенчмарки производительности при решении этой задачи на всех представленных здесь языках.

А что-то никто не горит желанием это всё сделать. А у меня сегодня появилась работа за 20 руб в час - я занят, к сожалению

Смею предположить что решение на Си будет наиболее производительным, так как отсутствует прослойки интерпретатора, движка регулярных выражений и их парсинга, вся работа происходит на уровне байтовых буфферов наиболее близких к железу. Попробуйте оформить свои изыская в форме статьи с графиками, при работе с большим массив пар слов (от нескольких сот мегабайт), возможно вы на пороге возврата перла в мейнстрим. С вашим высоким уровнем образования, провести подобное исследование вам будет очень просто.

Да не вопрос вообще. Точнее это только вопрос того, кто это всё оплатит? Я бесплатно работаю редко и ваше предложение - это точно не тот случай.

У вас какое образование?

Без доказательной базы с вашей стороны, считаю дальнейшую дискуссию не состоятельной

Графики. Кстати сейчас работа именно с ними. Клиент хочет чтоб с различных(по выбору) Друпаловских Нод выводились поля, суммировались, умножались на НДС и выводились в виде графиков. Уже почти всё сделал.

Я заметил, как начинаешь спрашивать про образование - все сразу выдумывают кучу причин чтоб съехать с темы

Инженерное дело оно такое, требует доказательства в удобной и читаемой форме. Многию люди визуалы и формалисты, не верят наслово.

Ждите тогда. Мне это тема превосходства Друпала интересна, вобщем то. и я буду её потихоньку рыть

Если человек «в теме» и всё понимает в этой теме - ему достаточно на код посмотреть

А вот если ничего не понимает - то таблицу подавай

А если совсем не понимает - то график

Согласен

Вы кто? Я вас где-то видел

Понимаю. Использование памяти в линуксе сложная тема особенно с учётом динамических библиотек и что такое «занятая RAM» вот так сразу без бутылки не разберёшься. Но вы почитайте что-нибудь по теме. А для начала можно запустить pmap -x $pgrep sbcl) и попробовать объяснить разницу между total и RSS.

Ещё немного синтаксических чудес принёс вам, добрые мои друзья:

my (\x, \y) = < форель рельса >;

( 0 .. * )
    .map({ substr( x, 0, $_ ) ~ y })
    .first({ .starts-with: x })
    .put