RosettaCodeData/Task/Deconvolution-1D/PicoLisp/deconvolution-1d-2.l

8 lines
245 B
Common Lisp

(setq
F (-3. -6. -1. 8. -6. 3. -1. -9. -9. 3. -2. 5. 2. -2. -7. -1.)
G (24. 75. 71. -34. 3. 22. -45. 23. 245. 25. 52. 25. -67. -96. 96. 31. 55. 36. 29. -43. -7.)
H (-8. -9. -3. -1. -6. 7.) )
(test H (deconv G F))
(test F (deconv G H))