RosettaCodeData/Task/Deconvolution-1D/Fortran/deconvolution-1d-2.f

3 lines
110 B
Forth

deconv(f, g) = -8, -9, -3, -1, -6, 7
deconv(h, g) = -3, -6, -1, 8, -6, 3, -1, -9, -9, 3, -2, 5, 2, -2, -7, -1