;; 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-beginner-reader.ss" "deinprogramm")((modname meinerstesprogramm) (read-case-sensitive #f) (teachpacks ()) (deinprogramm-settings #(#f write repeating-decimal #f #t none explicit #f ())))
(define meaning-of-life 42)

(define pi 3.1415926)

; Berechne die Fläche eines Quadrats
(define square
  (lambda (n) (* n n)))

; Berechne die Summe der Flächen zweier Quadrate
(define sum-of-squares
  (lambda (x y)
    (+ (square x)
       (square y))))

;.....
(define f
  (lambda (a)
    (sum-of-squares (+ a 1)
                    (* a 2))))

(f 5)