(define (sum-of-largest-two-squared a b c) | |
(define (square x) (* x x)) | |
(define smallest-squared (cond ((and (< a b) (< a c)) (square a)) | |
((and (< b a) (< b c)) (square b)) | |
(else (square c)))) | |
(define all-squared (+ (square a) (square b) (square c))) | |
(- all-squared smallest-squared)) | |
(sum-of-largest-two-squared 1 2 3) | |
; *** ERROR IN sum-of-largest-two-squared, "1/3.scm"@3.63 -- Operator is not a PROCEDURE | |
; using gambit scheme (scheme r5rs) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment