- or download this
my $p = zeroes(4,4,4);
say 'p: ', $p->info;
say 'ndcoords: ', ndcoords($p)->info;
say 'range: ', $p->range(ndcoords($p), 2, 't')->info;
- or download this
p: PDL: Double D [4,4,4]
ndcoords: PDL: Double D [3,4,4,4]
range: PDL: Double D [4,4,4,2,2,2]
- or download this
my $q = zeroes(5,5,5,5);
say 'q: ', $q->info;
say 'ndcoords: ', ndcoords($q)->info;
say 'range: ', $q->range(ndcoords($q), 2, 't')->info;
- or download this
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]
- or download this
#!/usr/bin/perl
...
ndcoords: PDL: Double D [4,5,5,5,5]
range: PDL: Double D [5,5,5,5,2,2,1,5]
Segmentation fault