length-rest-ratio

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; LENGTH-REST-RATIO ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; to TEST in a OMN- or LENGTH-sequence

(defun length-rest-ratio (seq)
  (let ((liste (omn :length seq)))
    (loop for i in liste
      when (< i 0) sum (abs i) into -bag
      when (> i 0) sum i into +bag
      finally (return (ratio-to-float (* +bag (/ 1 (+ +bag -bag))))))))

(length-rest-ratio '(e. q. -q))
(length-rest-ratio '(-2 3 4 -1 -1))
(length-rest-ratio '(e. c4 ppp -q. q d3 e3 f3))
        
        
;;; evaluate this test a few times    
(if (> (length-rest-ratio (rnd-repeat 10 '(1 2 3 4 -1 -2 -3 -4))) 0.5)
  (append 'more-lengths)
  (append 'more-rests))