heut um 7:50 einen installateur in der wohnung, morgen steh i um 5:00 auf - AAAAAAA
(define (sumofmaxsquare x y z) (
+ (square (if (= x (min x y z)) 0 x)) (square (if (= y (min x y z)) 0 y)) (square (if (= z (min x y z)) 0 z))
))
bzw. etwas mehr in funktionen aufgeteilt:
(define (square x) (\* x x))
(define (sumofsquares x y) (+ (square x) (square y)))
(define (isMin x a b c) (= x (min a b c)))
(define (sumOfMaxSqaure x y z) (sumofsquare (if (ismin x x y z) x) (if (ismin y x y z) y) (if (ismin z x y z) z)
))
(define (abs x) ((if (< x 0) - +) x))
- und endlich auch eine erste loesung fuer mein vorgestriges scheme problem:
(define (sumofmaxsquare x y z) (
+ (square (if (= x (min x y z)) 0 x)) (square (if (= y (min x y z)) 0 y)) (square (if (= z (min x y z)) 0 z))
))
bzw. etwas mehr in funktionen aufgeteilt:
(define (square x) (\* x x))
(define (sumofsquares x y) (+ (square x) (square y)))
(define (isMin x a b c) (= x (min a b c)))
(define (sumOfMaxSqaure x y z) (sumofsquare (if (ismin x x y z) x) (if (ismin y x y z) y) (if (ismin z x y z) z)
))