Permalink
Browse files

Merge pull request #6 from wlbksy/patch-5

fix bug in the cond
  • Loading branch information...
2 parents 30cfbeb + 096f2f5 commit fbc49b67dac717da1487629fb2d7a7d86dfdbe32 @sarabander committed Aug 23, 2016
Showing with 1 addition and 1 deletion.
  1. +1 −1 1.1/Ex1.3.scm
View
@@ -5,7 +5,7 @@
(define (sqsum x y) (+ (sq x) (sq y)))
(define (twolargest-sqsum a b c)
- (cond (not (or (> a b) (> a c)) (sqsum b c))
+ (cond ((not (or (> a b) (> a c))) (sqsum b c))
(else (twolargest-sqsum b c a))))
(define tlss twolargest-sqsum)

0 comments on commit fbc49b6

Please sign in to comment.