Deconvolution/2D+: Difference between revisions
m
→{{header|Perl}}: oops, need 'say' for output
SqrtNegInf (talk | contribs) (Added Perl example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: oops, need 'say' for output) |
||
Line 849:
{{libheader|ntheory}}
{{trans|Perl 6}}
<lang perl>use
use ntheory qw/forsetproduct/;
# Deconvolution of N dimensional matrices
Line 1,003 ⟶ 1,004:
my @h = deconvolve_N( \@g, \@f );
my @ff = deconvolve_N( \@g, \@h );
pretty_print(0,@h);
pretty_print(0,@ff);</lang>
| |||