I
Size: a a a
I
AK
AK
AK
println(@elapsed begin
XX=map(x -> +(*(x,67),1), rand(68))
YY=map(x -> +(*(x,67),1), rand(68))
ZZ=zeros(68)
for i in 1:UInt64(1e+6)
r=i % 68 + 1;
ZZ[r]=XX[r]^YY[r]
end
end
AK
AB
AK
use strict;
use 5.16.3;
use Time::HiRes qw(time);
my $N=shift || 68;
my $s=time();
my @x=map scalar(rand($N-1)+1), 1..$N;
my @y=map scalar(rand($N-1)+1), 1..@x;
my @z=map 0, 1..@x;
for (1..1e+6) {
my $i=$_ % $N;
$z[$i]=$x[$i]**$y[$i]
}
my $e=time();
say ($e-$s);
AK
AK
AK
I
I
AK
AK
I
AK
AK