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

Я ведь пишу программу конвертации перла на разные языки:

Ты уже разобрался как запустить компилятор плюсов?

Да, медленное барахло

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

думаешь у тебя есть шанс на комбек?

///Или это школа была не совсем обычная или вы нас обманываете.

Это было ещё в Советском Союзе, а школа была с матклассом и договором с ЛИАПом (институтом авиационного приборостроения). Информатику нам преподавала препод из института в виде программирования и пропедевтики из булевой алгебры и алгебры контактных схем.

Прогали мы там в ЛИАПовских лабораториях на ЕСках 1036 с АСПО (редактор там был охренеть убогим), а потом 1045 с СВМ, т.е. ОС Система Виртуальных Машин. И на ДВК-2, их изображение можно увидеть в синеньком таком учебнике «Информатика» за авторством Ершова. И на «Правцах», когда ими оснастили школу. Но на ДВК-2 был диалект бейсика по кличке квасик (русифицированная версия с очень собственной системой программирования графики для… отдельно подключённого телевизора), а на «Правцах» сам Бейсик.

Да я и не сражаюсь, мне нужны метрики, пока перл жеско сливает крестам.
Кстати не против если kompospec покажет нам задачу в которой перл быстрее крестов.

Кстати не против если kompospec покажет нам задачу в которой перл быстрее крестов.

А он не покажет) но скажет что она есть, все попытки получить код или доказать что либо будут просто проигнорированы.

))

Таких евангелистов полно на конференциях

Да. Вот:

#!/usr/bin/perl

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

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

Это рабочий код? А сколько он по времени выполняется?

Я не разбираюсь в перле, но разве ты не говорил, что данные нужно считывать из stdin? А ты ему два файла подсовываешь.

Хочу уточнить: если конец первого слова и начало второго не совпадают — программа должна просто объединить их?

В каких то темах есть. Если найду случайно - скину.

https://www.sql.ru/forum/afsearch.aspx?pg=1&s=miltorg&m=&bid=0&dt=0&sort=0

Наверное здесь.

По скорости выполнения. Только по скорости выполнения.

Вы уж потрудитесь продоминировать то, я тоже вижу графики из 2005-го, с того времени компиляторы C++ стали бодрее, а перл наоборот.

Я не буду повторяться. Прочитайте хотя бы первые 5 страниц.

Не хотите, как хотите

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

По первой задачи Перл чётко доминировал. Чётко.

С чего вы решили?

Это рабочий код. Выполняется он примерно на 20 % дольше, чем C++, если не использовать оптимизацию. Вероятно, из-за классов-обёрток для строк и массивов(векторов).

не. ну это отлично.

Питон, нормальный, современный язык. Я повторю - На Плюсах пишут только старенькие, лысенькие дедушки. На стареньких заводиках бывшего СССР

Например Yandex

Всё ядро поиска было на Перл до 13 года

Ок давайте жить до 13-го года

Меня совсем не программирование смутило. Интегралы. Но вы пояснили «школа была с матклассом».

ДВК-2, их изображение можно увидеть в синеньком таком учебнике «Информатика»

Ну выпендрились, так выпендрились. Ладно, у вас майка грязнее. У нас УКНЦ были. :)

Классический вопрос: Де ве по де те? Что это?

Пора мерч делать https://m.media-amazon.com/images/I/7134u6IxyFL._AC_UL1500_.jpg

Уважаемый евангелист не уходите от вопроса, по какому праву вы решили что в первой задаче Перл победил?

Это как раз математическая школа

а как вы это понимаете? чтоб я понял что вы в теме, а не просто решение подглядели.

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

Ок. 186см - 150кг

А в толщину?

Ладно, C++ regex_replace медленный, жаль что приходится все самому доказывать вместо вас.

C++

#include <iostream>
#include <fstream>
#include <regex>
#include <time.h>
using namespace std;
int main(int argc, char *argv[]) {
  ifstream file("vxod.txt");
  string line;
  clock_t start = clock();
  while (getline(file, line)) {
    auto output = regex_replace(line, regex(R"(([^+ ]*?)([^+ ]*)[ +]+\2)"), "$1$2");
    cout << output << endl;
  }
  double time = (double)(clock() - start) / CLOCKS_PER_SEC;
  cout << "Perform time: " << time << " seconds "<< endl;
};

Perl

#!/usr/bin/perl

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

$t = time();
while (<D>) {
  s/([^+\s]*?)([^+\s]*)[\s+]+\2/$1$2/;
  print;
  print V;
  }
$t2 = time()-$t;
print "Perform time: $t2 seconds\n"

C++ Perform time: 6.04104 seconds

Perl Perform time: 0 seconds

Тестовый файл содержит повторящиеся слова, но подходящие по условиям задачи: https://dropmefiles.com/JdmVm

На месте крестовиков я бы напрягся

Эмм, какая-то фигня с перловской time

Мне тоже так показалось сначала)

только что проверил перловскую реализацию минимум 1 секунда (это при условии что time - это epoch в секундах, а не в милисекундах или наносекундах)

У меня то 0, то 1, надо конечно миллисекунды взять, но даже сейчас C++ сливает.

у меня тоже слил

Возможно я где-то ошибся, пусть кто-нибудь поправит. Но темы на Stackoverflow, Reddit это подтверждают:
https://stackoverflow.com/questions/25766861/increase-c-regex-replace-performance
https://www.reddit.com/r/cpp_questions/comments/mnl2hn/stdregex_replace_very_slow_why/

Тут что то не то. Не могут 3 строки 6 сек обрабатываться

зачем у тебя в цикле каждый раз создаётся новый regex?

Обосрамс, сейчас

результат после правки твоего примера c++ по замечанию xmikex Perform time: 0.97528 seconds - это O3 без pgo

Прошу простить за нелепую ошибку с аллокацией, все-таки я нуб

C++

#include <iostream>
#include <fstream>
#include <regex>
#include <time.h>
using namespace std;
int main(int argc, char *argv[]) {
  ifstream file("vxod.txt");
  string line;
  clock_t start = clock();
  auto pattern = regex(R"(([^+ ]*?)([^+ ]*)[ +]+\2)");
  while (getline(file, line)) {
    auto output = regex_replace(line, pattern, "$1$2");
    cout << output << endl;
  }
  double time = (double)(clock() - start) / CLOCKS_PER_SEC;
  cout << "Perform time: " << time << " seconds "<< endl;
};

#!/usr/bin/perl

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

$t = time();
while (<D>) {
  s/([^+\s]*?)([^+\s]*)[\s+]+\2/$1$2/;
  print;
  print V;
  }
$t2 = time()-$t;
print "Perform time: $t2 seconds\n"

clang++ wordcross.cpp -Ofast && ./a.out
perl -MTime::HiRes=time wordcross.perl

C++ Perform time: 0.773497 seconds

Perl Perform time: 0.317941188812256 seconds

С выводом в файл

#include <iostream>
#include <fstream>
#include <regex>
#include <time.h>
using namespace std;
int main(int argc, char *argv[]) {
  ifstream file("vxod.txt");
  ofstream outputFile("vyxod.txt");
  string line;
  clock_t start = clock();
  auto pattern = regex(R"(([^+ ]*?)([^+ ]*)[ +]+\2)");
  while (getline(file, line)) {
    auto output = regex_replace(line, pattern, "$1$2");
    cout << output << "\n";
    outputFile << output << "\n";
  }
  double time = (double)(clock() - start) / CLOCKS_PER_SEC;
  cout << "Perform time: " << time << " seconds "<< endl;
};

Perform time: 0.75051 seconds 

Последние замеры для файла ~70мб
https://dropmefiles.com/0N4m3

Perl 26.216 seconds
C++ 52.604 seconds

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

Спасибо. Наконец то полезное исследование. Понимаете, мне нет никакого смысла выдумывать. Наоборот, я хочу получить для себя минимальный набор языков чтоб не забивать голову. Минимальный, но оптимальный.

Хотя, если я допишу свой конвертор для преобразования языков - это решит любые проблемы.

а если просто в перл и c++ открыть файл и записать в другой файл без преобразования, то быстрее io будет в перл?

А если сделать вызов flush после каждой записи в файл? Чтобы не влиял метод вывода в файл. Может в одном языке кэширование вывода происходит, а в другом сразу запись происходит.

Пожалуйста. В следующий раз пишите кратко что в C++ regex_replace работает медленее Perl.