请教一个简单的scheme问题

nathaniel

写一个函数，输入3个参数，返回较大两个参数的平方的和

(define (myfun a b c)
  (
   (define max1 (if (a>b) a b))
   (define min (if (a>b) b a))
   (define max2 (if (c>min) c min))
   (+ (* max1 max1) (* max2 max2))
   )
)
上面是我写的，但是有错，刚刚看scheme，大家帮手看看什么地方错了

khc

SICP?

(define (myfun a b c)                                                           
  (if (and (> a b) (> b c))                                                     
      (+ (* a a) (* b b))                                                      
      (if (and (> b a) (> c a))                                                
          (+ (* b b) (* c c))                                                   
          (+ (* a a) (* c c)))))

nathaniel

Post by khc
SICP?

(define (myfun a b c)                                                           
  (if (and (> a b) (> b c))                                                     
      (+ (* a a) (* b b))                                                      
      (if (and (> b a) (> c a))                                                
          (+ (* b b) (* c c))                                                   
          (+ (* a a) (* c c)))))

thank you.
是啊！刚刚才开始看！
原来是define不可以embeded.

khc

呵呵，四年前我看的時候也是不懂怎麽做，所以記得特別清楚。