#!/usr/bin/perl

use v5.24;
use warnings;
use PDL;

my $q = sequence(5,5,5,5);
say 'q:          ', $q->info;
say 'ndcoords:   ', ndcoords($q)->info;
say 'range:      ', $q->range(ndcoords($q), 2, 't')->info;
say '2x2x2x2 sum:', $q->range(ndcoords($q), 2, 't')->reorder(4,5,6,7,0,1,2,3)->clump(4)->sumover;

__DATA__
q:          PDL: Double D [5,5,5,5]
ndcoords:   PDL: Double D [4,5,5,5,5]
range:      PDL: Double D [5,5,5,5,2,2,1,5]
2x2x2x2 sum:
[
 [
  [
   [  0   1   2   3   4]
   [  5   6   7 588 296]
   [604 612 620 628 316]
   [644 652 660 668 336]
   [332 336 340 344 173]
  ]
  [
   [724 732 740 748 376]
   [764 772 780 788 396]
   [804 812 820 828 416]
   [844 852 860 868 436]
   [432 436 440 444 223]
  ]

...

##</code><code>##

#!/usr/bin/perl

use v5.24;
use warnings;
use PDL;

my $q = ones(5,5,5,5);
say 'q:          ', $q->info;
say 'ndcoords:   ', ndcoords($q)->info;
say 'range:      ', $q->range(ndcoords($q), 2, 'p')->info;
say '2x2x2x2 sum:', $q->range(ndcoords($q), 2, 'p')->reorder(4,5,6,7,0,1,2,3)->clump(4)->sumover;

__DATA__
[
 [
  [
   [9 9 9 9 9]
   [9 9 9 8 8]
   [8 8 8 8 8]
   [8 8 8 8 8]
   [8 8 8 8 8]
  ]
  [
   [8 8 8 8 8]
   [8 8 8 8 8]
   [8 8 8 8 8]
   [8 8 8 8 8]
   [8 8 8 8 8]
  ]
...