Deconvolution/2D+: Difference between revisions
m
→{{header|Perl 6}}: Combine files to make runnable code
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Combine files to make runnable code) |
|||
Line 628:
=={{header|Perl 6}}==
Works with Rakudo
Translation of Tcl.
Line 764:
return @t;
}
}
# Use with a pretty printer as follows:▼
▲Use with a pretty printer as follows:
▲<lang perl6># Pretty printer for N dimensional arrays. Assumes that
# if the FIRST element in any particular level is an array,
# then ALL the elements at that level are arrays.
|