摘要: Scheme实现:(define (subsets s) (define nil '()) (if (null? s) (list nil) (let ((rest (subsets (cdr s)))) (append rest (map (lambda (i... 阅读全文
posted @ 2015-12-09 13:25 Leptus 阅读(680) 评论(0) 推荐(0) 编辑