RosettaCodeData/Task/Deconvolution-1D/J/deconvolution-1d-1.j

3 lines
72 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
Ai=: (i.@] =/ i.@[ -/ i.@>:@-)&#
divide=: [ +/ .*~ [:%.&.x: ] +/ .* Ai