Re^5: Where does the spurious error message come from?

Interesting. With perl 5.26.1 and List::Util 1.4602, I'm getting

       Rate  acc  lua
acc  6474/s   -- -48%
lua 12361/s  91%   --
[download]

and even more if I use a longer list

my @base = ('A' .. 'Z') x 100;
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re^5: Where does the spurious error message come from? Select or Download Code

Replies are listed 'Best First'.
Re^6: Where does the spurious error message come from? by kcott (Archbishop) on Aug 06, 2023 at 15:57 UTC
G'day choroba, ++ Thanks for checking it out. The results I originally posted were from: Perl 5.38.0; List::Util 1.63; and, Array::Contains 2.8. I reran the benchmark with the earliest Perl I have to hand: Perl 5.30.0; List::Util 1.5; and, Array::Contains 2.8. `Rate lua acc lua 14610/s -- -4% acc 15247/s 4% -- Rate lua acc lua 14826/s -- -2% acc 15103/s 2% -- Rate lua acc lua 14821/s -- -3% acc 15318/s 3% --` [download] Those numbers are very close and I'd still consider this to indicate no appreciable difference. I ran both on: `$ uname -a CYGWIN_NT-10.0-19045 titan 3.4.7-1.x86_64 2023-06-16 14:04 UTC x86_64 +Cygwin` [download] which has the latest 3.4.7 update which I did about two days ago. Addendum: I just checked those Perl versions with List::Util::XS: XS version installed on both. — Ken	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^6: Where does the spurious error message come from?
by kcott (Archbishop) on Aug 06, 2023 at 15:57 UTC

G'day choroba,

++ Thanks for checking it out.

The results I originally posted were from: Perl 5.38.0; List::Util 1.63; and, Array::Contains 2.8.

I reran the benchmark with the earliest Perl I have to hand: Perl 5.30.0; List::Util 1.5; and, Array::Contains 2.8.

       Rate lua acc
lua 14610/s  -- -4%
acc 15247/s  4%  --

       Rate lua acc
lua 14826/s  -- -2%
acc 15103/s  2%  --

       Rate lua acc
lua 14821/s  -- -3%
acc 15318/s  3%  --
[download]

Those numbers are very close and I'd still consider this to indicate no appreciable difference.

I ran both on:

$ uname -a
CYGWIN_NT-10.0-19045 titan 3.4.7-1.x86_64 2023-06-16 14:04 UTC x86_64 
+Cygwin
[download]

which has the latest 3.4.7 update which I did about two days ago.

Addendum: I just checked those Perl versions with List::Util::XS: XS version installed on both.

— Ken

[reply]
[d/l]
[select]