haodemon · August 16, 2017 17:20
diff --git a/array_minus.pl b/array_minus.pl
 #!/usr/bin/env perl

 use 5.016;

 use strict;
 use warnings;


 sub array_minus(\@\@) {
 	my %e = map{ $_ => undef } @{$_[1]};
 	return grep( !exists($e{$_}), @{$_[0]} );
 }

 my @a = (1, 2);
 my @b = (1, 2, 3);

 say array_minus @b, @a;
 say array_minus @a, @b;
	#!/usr/bin/env perl

	use 5.016;

	use strict;
	use warnings;


	sub array_minus(\@\@) {
	my %e = map{ $_ => undef } @{$_[1]};
	return grep( !exists($e{$_}), @{$_[0]} );
	}

	my @a = (1, 2);
	my @b = (1, 2, 3);

	say array_minus @b, @a;
	say array_minus @a, @b;