(load "constr-08.ss")

;;; SIGNATUR
;;; list-map1 : (X -> Y) list(X) -> list(Y)
;;; ERKLÄRUNG
;;; (list-map1 f l) wendet f auf jedes Element von l an.
;;; BEISPIEL
;;; (list-map1 - '()) == ()
;;; (list-map1 - (list 2 -4 3)) == (list -2 4 -3)
;;; (list-map1 / (list 8 1 0.5)) == (list 0.125 1 2)
;;; DEFINITION
(define list-map1
  (lambda (f l)
    (list-fold 
     (lambda (a b) (cons (f a) b))
     '()
     l)))