4 lines
135 B
Common Lisp
4 lines
135 B
Common Lisp
(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)) ) )
|