my $bin = ( xvals( short, 1024, 400 ) % 4
          + yvals( short, 1024, 400 ) % 4 * 2 ) > 6;
say $bin-> info;
say $bin-> slice( ([ 0, 7 ]) x 2 );

say $bin-> cc8compt-> max;
say $bin-> long-> cc8compt-> max;

##</code><code>##

PDL: Short D [1024,400]

[
 [0 0 0 0 0 0 0 0]
 [0 0 0 0 0 0 0 0]
 [0 0 0 1 0 0 0 1]
 [0 1 1 1 0 1 1 1]
 [0 0 0 0 0 0 0 0]
 [0 0 0 0 0 0 0 0]
 [0 0 0 1 0 0 0 1]
 [0 1 1 1 0 1 1 1]
]

31344
25600