2017年2月27日
sicp_2.59-2.60
摘要： 1 #lang racket 2 3 ;;;;;;;;;;;;;;;;;;;;2.59 4 (define (element-of-set? x set) 5 (cond ((null? set) false) 6 ((equal? x (car set)) true) 7 (else (element-of-set? x (cdr set))... 阅读全文
posted @ 2017-02-27 23:47 lan126 阅读(247) 评论(0) 推荐(0) 编辑