[CM] cycle in weighting question

Achim Bornhoeft achim.bornhoeft at googlemail.com
Sun Apr 5 05:34:56 PDT 2009

maybe somebody can explain this to me:
Why in this case the lists are always completely cycled before a new  
weighting is applied?

(define (pat1 reps weight1 weight2)
     (let ((c (new weighting :of `((,(new cycle :of '(-1  
1)) :weight ,weight1)
				  (,(new cycle :of '(-2 4 -2)) :weight ,weight2 :max 1)))))
       (loop repeat reps collect (next c))))

;; (pat1 50 90 10)


More information about the Cmdist mailing list