;Aufgabe 2
(defun bilde-unterlisten (lst f)
  (let (templiste erg)
    (setq templiste (list (first lst)))
    (dolist (x (rest lst))
      (cond ((funcall f (first (last templiste)) x)
             (setq templiste (append templiste (list x))))
            (t
             (setq erg (append erg (list templiste)))
             (setq templiste (list x)))))
   (setq erg (append erg (list templiste)))
    erg))

(bilde-unterlisten '(1 8 7 6 6 4 3 2 1 0) '>)
(bilde-unterlisten '(#\a #\b #\g #\d #\t #\f) 'char<)

;Aufgabe 3
(defun kmult-matrix (m k)
  (mapcar (lambda (lst k)
            (mapcar (lambda (x1)
                      (* x1 k))
                    lst))
          m k))