#lang scheme
; Aufgabe 2.1 :
; Original:
; (+ (/ (+ 5 (* 6 3) (- 3 2))) (* 3 (- 5 4/7)))
; Fehler: Klammer falsch, Rechenzeichen falsch eingesetzt.
; Lösung:
; (+ (/ (+ 5 (* 6 3)) (- 3 2)) (* 3 (- 5 (/ 4 7))))

; Aufgabe 2.2 :
; Original:
; (define (f x y z)
;(/ (* (- x 5 z) (* y 4 6)) (- x y)))
; Fehler: Falsche Klammern, vergessenes Rechenzeichen, vertauschte Variablen
; Lösung:
;(define (f x y z)
 ; (/ (* (+ x (- 5 z)) (+ 6 (* y 4))) (- y x)))

; Aufgabe 2.3 :
; Original
;(f 1 2 3)
;(define (max x y)
;(cond ((> x y) y))
;(<= x y) x)
; Fehler: Klammern falsch, falsche Variable als Ausgabe, >(=) vergessen
;(define (max x y)
 ; (cond ((>= x y) x)
  ;((<= x y) y)))
  ;(max 2 5)
;(max 10 23)

; Aufgabe 3
;(define (my-if kondition then-clause else-clause)
;(cond (kondition then-clause)
;(else else-clause)))
;
;(define (summe-von-1-bis-n n)
;(my-if (= n 0)
;0
;(+ n (summe-von-1-bis-n (- n 1)))))

; Durch die "my-if" Funktion wir die immer "summe-von1-bis-n" Funktion vorher ausgeführt. Diese Operation
; führt wieder die Operanden aus. Dadruch eine Endlosschlauf, die den Speicher schnell füllt
; Mit If:
;(define (summe-von-1-bis-n n)
;(if (= n 0)
;0
;(+ n (summe-von-1-bis-n (- n 1)))))
; "If" Ist eine sogenannte special-form