;; Die ersten drei Zeilen dieser Datei wurden von DrRacket eingefügt. Sie enthalten Metadaten
;; über die Sprachebene dieser Datei in einer Form, die DrRacket verarbeiten kann.
#reader(lib "DMdA-vanilla-reader.ss" "deinprogramm")((modname derive) (read-case-sensitive #f) (teachpacks ()) (deinprogramm-settings #(#f write repeating-decimal #f #t none explicit #f ())))
; Berechne numerisch die 1. Ableitung einer Funktion
(: derive ((real -> real) -> (real -> real)))

#;(define derive
  (lambda (f)
    ...))

#;(define derive
  (lambda (f)
    (lambda (x) ...)))

(define derive
  (lambda (f)
    (lambda (x)
      (/ (- (f (+ x dx)) (f x)) dx))))

(define dx 0.001)


(define square (lambda (x) (* x x)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Funktionskomposition
(: comp ((%b -> %c) (%a -> %b) -> (%a -> %c)))

(define comp
  (lambda (f g)
    (lambda (x) (f (g x)))))