From e292a63e3e70d3757d7316df3403efd81da68b26 Mon Sep 17 00:00:00 2001
From: Lorenz Lehmann <lorenz.lehmann@students.muho-mannheim.de>
Date: Mon, 12 Feb 2024 08:49:49 +0100
Subject: [PATCH] feat (sources): avoid-repetitions
---
sources/gen-harmonies.lisp | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/sources/gen-harmonies.lisp b/sources/gen-harmonies.lisp
index f9266d0..e04fab7 100644
--- a/sources/gen-harmonies.lisp
+++ b/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)
))
--
Gitblit v1.9.1