cond与if

(define (f x) 
  (cond ((>= x 0) (- x)))
  (cond ((< x 0) x))
  )

(define (f1 x)
  (if (< x 0)
      (- x)
      x))

> (f -1)
-1
> (f1 -1)
1
> 

cond相当于c,c++中的if,而lisp中的上面中的if则相当于x<0?-x:x，这样的三目运算符

再看看这个

(define a 3)
(define b (+ a 1))
> (cond ((= a 3) 6)
        ((= b 4) (+ 6 7 a))
        (else 25))


16
if(a==3)
  return 6;
else if(b==4)
  return 6+7+a;
else
  return 25;

> (cond ((= a 3) 6)
        ((= b 4) (+ 6 7 a)))
6


> (*(cond ((> a b) a)
          ((< a b) b)
          (else -1))
    (+ a 1))
16

求三个数中较大两个数的和

> (define (f2 a b c)
    (+ (if(> a b) a b) (if(> b c) b c)))
> (f2 1 2 3)