RosettaCodeData/Task/Fast-Fourier-transform/PicoLisp/fast-fourier-transform-2.l

5 lines
135 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
(for R (fft '((1.0 0) (1.0 0) (1.0 0) (1.0 0) (0 0) (0 0) (0 0) (0 0)))
(tab (6 8)
(round (car R))
(round (cadr R)) ) )