Idiom #312 List equality

Set b to true if the lists p and q have the same size and the same elements, false otherwise.

Fortran

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

import "slices"

b := slices.Equal(p, q)

Demo
Doc

b = p.equals(q);

classes

  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;

use v5.10.1;
no warnings 'experimental::smartmatch';

$b = @array1 ~~ @array2;

use v5.10;
use smart::match;

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

use v5.10;
use strict;

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;
}