Deconvolution/2D+: Difference between revisions
m
→{{header|Perl 6}}: Fixed up some formatting
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Added version of perl 6 tested under.) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Fixed up some formatting) |
||
Line 177:
my @coords;
my $j = $index;
for @hsize -> $dim {
@coords.push( $j % $dim );
$j div= $dim;
Line 246:
my $tab = 2;
if @array[0] ~~ Array {
say ' ' x $indent,"[";
pretty_print( $_, $indent + $tab ) for @array;
say ' ' x $indent, "]{$indent??','!!''}";
} else {
}
Line 299:
=begin skip_output
say "
pretty_print( @g );
say '-' x 79;
say "
pretty_print( @f );
Line 311:
say "# {+size_of(@f)}D array:";
say "
pretty_print( deconv_ND( @g, @f ) );</lang>
Output:
<pre># 3D array:
[
[
|