Select Code to Download

use PDL;
my $pdl_a = pdl 10..20;
my $pdl_b = pdl 15..18;
print "$pdl_a\n$pdl_b\n";

[10 11 12 13 14 15 16 17 18 19 20]
[15 16 17 18]

use PDL;
my $pdl_a = pdl 10..20;
my $pdl_b = pdl 15..18;
my $pdl_c = INTERSECTION OF PDL_A AND PDL_B
print "$pdl_a\n$pdl_b\n$pdl_c\n";

[10 11 12 13 14 15 16 17 18 19 20]
[15 16 17 18]
[15 16 17 18]