DF
Там не cms, там какой-то генератор статики
Size: a a a
2021 July 10
n
@Pkupt может ты поможешь ?
P
Софта нет, там же 1 html файл. Я просто в саблайм правлю, но если есть идеи - welcome
SU
Назрел дурацкий вопрос.
На инициализацию массива ушла 1 сек, на то, что бы затолкать его содержимое в другой массив — почти 2 сек, что как бы намекает, что
А есть какой-нибудь хитрый способ конкатенации одного массива к другому без итерирования? То есть мне надо, чтобы в
$ perl -MTime::HiRes=time -E '$st=time; @x=(0); @y=(1..1e8); say time()-$st; $st=time(); push @x,@y; say time()-$st;'
1.08853983879089
1.83878087997437
На инициализацию массива ушла 1 сек, на то, что бы затолкать его содержимое в другой массив — почти 2 сек, что как бы намекает, что
push итеративен.А есть какой-нибудь хитрый способ конкатенации одного массива к другому без итерирования? То есть мне надо, чтобы в
@x оказалось содержимое (@x, @y), на судьбу @y мне после этого пофиг. unshift короткого массива не предлагать, в реальной задаче они оба длинныеSZ
@PerlBanjoBot $ perl -MTime::HiRes=time -E '$st=time; @x=(0); @y=(1..1e8); say time()-$st; $st=time(); push @x,@y; say time()-$st;'
P
Out of memory!
panic: gen_constant_list JMPENV_PUSH returned 2 at -e line 1.
https://PerlBanjo.com/3d4cfe37e8
panic: gen_constant_list JMPENV_PUSH returned 2 at -e line 1.
https://PerlBanjo.com/3d4cfe37e8
SU
Ну или может у кого есть мысли, как их сцепить в XS-коде
A
Мне кажется тут только связный список подойдёт
SU
1e6 сделай. Хотя нерепрезентативно будет по времени выполнения
SZ
@PerlBanjoBot $ perl -MTime::HiRes=time -E '$st=time; @x=(0); @y=(1..1e5); say time()-$st; $st=time(); push @x,@y; say time()-$st;'
P
SZ
Типа того?
SU
Ага. Но на таком мелком совсем быстро, разница незаметна почти
SU
А когда там в каждом хотя бы 60 млн, да ещё и элементы — не инты, а arrayref-ы, и этих конкатенаций в коде два десятка — получается немножечко грустно
SU
Понятно, что это надо в консерватории исправлять, но я пока пытаюсь найти решение, не ломающее архитектуру имеющегося кода
GK
А ему в любом случае надо интерироваться, так как надо пройтись по всему массиву и для всех элементов проверить ссылка ли они и если да инкреминтировать счетчик
SU
Блин, логично. Остаётся вариант сцепить их каким-то хитрым извращением в XS-коде, не трогая refcnt и попутно уничтожая второй массив
GK
Можно на xs попробовать, если мне не изменяет память то AV это просто массив под указатели на SV, можно сделать что-то типа realloc, memcpy, а потом грохнуть исходный массив как то так, чтобы не вызывались деструкторы для его элементов, но надо все это проверять
SU
Одновременно 8) 🤝
SU
Хм, а вот так уже гораздо лучше. Хотя всё равно есть куда расти, но уже что-то
$ perl -MTime::HiRes=time -MData::Alias -E '$st=time; @x=(0); @y=(1..1e8); say time()-$st; $st=time(); alias push @x,@y; say time()-$st;'
1.13114595413208
0.766433954238892