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

3 lines
72 B
Plaintext

Ai=: (i.@] =/ i.@[ -/ i.@>:@-)&#
divide=: [ +/ .*~ [:%.&.x: ] +/ .* Ai