feat (sources): avoid-repetitions

Lorenz Lehmann

12.02.24 e292a63e3e70d3757d7316df3403efd81da68b26

 sources/gen-harmonies.lisp

@@ -67,7 +67,7 @@
                                                                collect (mapcar #'(lambda (r p) (+ r p)) reg a))) 1) :test 'equal))

       (harmon-database (cond 
                         (avoid-doublings (remove nil (loop for a in '((1 2 3 4) (6 6 7 7) (8 8 8 8) (2 3 4 1))
                         (avoid-doublings (remove nil (loop for a in harmon-database
                                                collect (if (not (find-dups_oml a)) a nil))))
                         (t harmon-database)
                         ))