;; 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 absolute) (read-case-sensitive #f) (teachpacks ()) (deinprogramm-settings #(#f write repeating-decimal #f #t none explicit #f ()))) ; Definiere Absolutbetrag einer Zahl (: absolute (real -> real)) (check-expect (absolute 0) 0) (check-expect (absolute 3) 3) (check-expect (absolute -5) 5) #;(define absolute (lambda (x) (cond (...) (...) (...)))) #;(define absolute (lambda (x) (cond ((> x 0) x) ((= x 0) 0) ((< x 0) (- x))))) ; else: Standard (default) Alternative #;(define absolute (lambda (x) (cond ((> x 0) x) ((= x 0) 0) (else (- x))))) #;(define absolute (lambda (x) (cond ((> x 0) x) (else (- x))))) (define absolute (lambda (x) (if (> x 0) x (- x))))