RosettaCodeData/Task/Deconvolution-1D/J/deconvolution-1d-1.j
2023-07-01 13:44:08 -04:00

2 lines
72 B
Text

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