feat (source): add helper functions

Lorenz Lehmann

28.03.24 985d3bb91fd05bd8e95ec880e6e9fdc77aeb46e8

feat (source): add helper functions

 sources/gen-sequence.lisp

@@ -301,6 +301,16 @@
  (nth counter liste)))


(defun find-area (value borders &key (start-index 0))
  (cond ((null (second borders)) start-index)
   ((and (>= value (first borders)) (< value (second borders))) start-index)
   (t (find-area value (cdr borders) :start-index (1+ start-index)))))

(defun filter-rests (liste)
  (cond ((null liste) nil)
        (t (append (if (>= (car liste) 0) (list (car liste)) nil)
                 (filter-rests (cdr liste))))))