From d593dc211d019f10df8c7bd9069b4134c8d399b8 Mon Sep 17 00:00:00 2001
From: Lorenz Lehmann <lorenz.lehmann@students.muho-mannheim.de>
Date: Wed, 27 Mar 2024 22:53:12 +0100
Subject: [PATCH] feat(source)!: restructure gen-sequence
---
sources/gen-harmonies.lisp | 66 +--------------------------------
1 files changed, 2 insertions(+), 64 deletions(-)
diff --git a/sources/gen-harmonies.lisp b/sources/gen-harmonies.lisp
index 161f32d..7308bc5 100644
--- a/sources/gen-harmonies.lisp
+++ b/sources/gen-harmonies.lisp
@@ -235,14 +235,6 @@
-(defun sum_oml (liste &optional (start 0))
- (cond ((null liste) start)
- (t (sum_oml (cdr liste) (+ start (car liste))))))
-
-
-
-
-
(defun circular_oml (items)
(setf (cdr (last items)) items)
items)
@@ -277,16 +269,6 @@
-
-
-
-(defun get-pos_oml (positions seq)
- (let ((positions (if (atom positions) (list positions) positions)))
- (mapcar #'(lambda (it) (nth it seq)) seq)))
-
-
-
-
(defun permutations_oml (bag)
(if (null bag)
@@ -299,44 +281,6 @@
-(defun modulo_oml (pos liste)
-(append
-(nthcdr pos liste)
-(butlast liste (- (length liste) pos))))
-
-
-
-
-
-(defun register-permut_oml (register-list)
-(remove-duplicates
- (om::flat
- (loop for r in register-list
- collect
- (mapcar #'(lambda (l) (permutations_oml
- (append (make-list l :initial-element r)
- (make-list (- (length register-list) l) :initial-element 0))))
- (loop for x from 1 to (length register-list)
- collect x))) 2) :test 'equal))
-
-
-
-
-(defun find-pos_oml (item seq)
- (remove nil (loop for s in seq
- for x
- collect (if (equal item s) x))))
-
-
-
-
-(defun sum_oml (liste)
- (if (null (cdr liste))
- (car liste)
- (+ (car liste)
- (sum_oml (cdr liste)))))
-
-
(defun variations_oml (liste pcl)
@@ -344,14 +288,6 @@
(liste (make-list pcl :initial-element liste)))
(apply #'alexandria:map-product #'list liste)))
-
-
-
-
-(defun find-dups_oml (lst)
- (cond ((null lst) '())
- ((member (car lst) (cdr lst)) (cons (car lst) (find-dups_oml (cdr lst))))
- (t (find-dups_oml (cdr lst)))))
@@ -369,3 +305,5 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+
--
Gitblit v1.9.1