• C++

bool b = ::std::ranges::equal(p, q);

• Fortran

  if (size(p,1) /= size(q,1)) then
    b = false
  else
    b = all (p == q)
  end if

• Go

b := slices.Equal(p, q)

• Java

b = p.equals(q);

• Pascal

  b := (p.count = q.count);
  if b then for i := 0 to p.count-1 do 
    if (p.items[i] <> q.items[i]) then
    begin
      b := false;
      break;
    end;

• Perl

$b = @array1 ~~ @array2;

• Perl

my $b = \@array1 |M| \@array2;

• Perl

sub lcomp {
    my ($a, $b) = @_;

    return 0 if ( @$a != @$b ); # lengths different

    my $matched = 1;
    for (my $i=0; $i < @$a; $i++) {
        return 0 unless $a->[$i] == $b->[$i];
    }

    return 1;
}

• Perl

$b = Compare( \@p, \@q );

• Python

b = p == q

• Ruby

b = p == q

• Rust

b = p == q;