9 lines
225 B
Scheme
9 lines
225 B
Scheme
#lang sicp
|
|
|
|
(define (sqr x) (* x x))
|
|
(define (solution a b c)
|
|
(cond ((and (<= a b) (<= a c))
|
|
(+ (sqr b) (sqr c)))
|
|
((and (<= b a) (<= b c))
|
|
(+ (sqr a) (sqr c)))
|
|
(else (+ (sqr a) (sqr b)))))
|