Lisp Praktikum 2
Praktikum 2 Aufgabe 1 (defun reduce-list (f init seq) (cond ((null seq) init) (t(funcall f (car seq) (reduce-list f init (cdr seq)))))) (reduce-list #'+ 0 '(1 2 3 4)) 10 ;; Filter a sequence by the function f ;;if f(list-entry) == true then add to list (defun filter (f seq) (cond ((null seq) nil) ((funcall f (car seq)) (cons (car seq) (filter f (cdr seq)))) (t (filter f (cdr seq))))) Aufgabe 2 Erstelle eine Funktion “Range”: