kirilltemnov / cl-vectorizer Goto Github PK

CL-USER> (setf histogram-first (FIRST (make-histograms '((5 3) (10 10)))))

Warning: Declaring histogram-first special.

#(0 0 0 0 0 1 0 0 0 0 1)
CL-USER> (normalize-histogram histogram-first)

#(0.0 0.0 0.0 0.0 0.0 9.090909 0.0 0.0 0.0 0.0 9.090909)
CL-USER> (wave histogram-first)

FIND-PEAKS (5 %):
#(0 0 0 0 0 9.090909 0 0 0 0 9.090909)
FIND-PEAKS (7 %):
#(0 0 0 0 0 9.090909 0 0 0 0 9.090909)

Argument y is not a number: nil.
[Condition of type simple-type-error]

;;------------
It doesn't work, also without FIRST, because it is not an array without.