scheme null?返回值 

 1 #第一种
 2 (define sero?
 3   (lambda (l)
 4     (cond
 5       ((null? l)))))
 6 
 7 > (sero? '(() ()))
 8 > 
 9 
10 > (sero? '())
11 #t
12 
13 #第二种
14 (define sero?
15   (lambda (l)
16     (cond
17       (null? l))))
18 
19 > (sero? '())
20 ()
21 
22 #第三种
23 (define sero?
24   (lambda (l)
25     (null? l)))
26 
27 > (sero? '())
28 #t
29 > (sero? '(() ()))
30 #f

 

posted @ 2013-01-23 11:28  NiJc  阅读(288)  评论(0)    收藏  举报