Исходное сообщение
"Замер удался!" Отправлено ., 08-Июл-17 03:02
>Одной строкой ваш перл не умеет или у тебя и bash "не завезли"? Поленился чел просто, но я "дожал": #!/bin/bash awk -V | head -1 time awk 'ARGIND==1{x[$0]=1}ARGIND==2&&!($0 in x)' <(seq 1000000000000 1000005000000|shuf) <(seq 1000003000000 1000009000000|shuf) |wc -l grep -V | head -1 time grep -vFf <(seq 1000000000000 1000005000000|shuf) <(seq 1000003000000 1000009000000|shuf) |wc -l perl -V | head -1 time perl -e 'push @ARGV,"'<(seq 1000000000000 1000005000000|shuf)'"; %h=map {$_=>1} <>;push @ARGV,"'<(seq 1000003000000 1000009000000|shuf)'"; print for grep ! $h{$_},<>' | wc -l И на моём восьми-головом сионисте :) (X5482s) оно выдаёт так (+\- - ломы же в сингл грузиться): $ ./testrun.sh GNU Awk 4.1.4, API: 1.1 (GNU MPFR 3.1.5, GNU MP 6.1.2) 4000000 real    0m12.221s user    0m10.784s sys    0m0.572s grep (GNU grep) 2.27 4000000 real    0m13.560s user    0m11.476s sys    0m0.464s Summary of my perl5 (revision 5 version 24 subversion 1) configuration: 4000000 real    0m17.468s user    0m14.912s sys    0m1.632s >Сим приглашаю и питонистов померяться >Желающие с agrep, bsdgrep также welkomen. >Хотя бесссмысленно это всё. В жизни как известно - вообще со смыслом напряжёнка :) А так ... всё лучше чем шЫряться или в горькую нырять ... так что Ок!

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:
	Введите код, изображенный на картинке: