#!/usr/bin/perl

use v5.16;
use warnings;
use PDL;

say $PDL::VERSION;
my $e = zeroes 0;
say "$_ and $e: ", setops $_, 'AND', $e for pdl(1), ones(1), ones(4), sequence(4);

__DATA__
2.025
1 and Empty[0]: [1]
[1] and Empty[0]: [1]
[1 1 1 1] and Empty[0]: [1]
[0 1 2 3] and Empty[0]: Empty[0]