DrRacket

1 (define tst
2   (lambda (l)
3     (cond
4       (null? l))))

> (tst '())
()

1 (define tst
2   (lambda (l)
3     (cond
4       ((null? l)))))

> (tst '())
#t

1 (define tst
2   (lambda (l)
3     (cond
4       ((null? l) #t)
5       (else #f))))

> (tst '())
#t
> (tst '(a))
#f

转载于:https://www.cnblogs.com/nijc/archive/2013/01/20/2868301.html