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