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