2017年2月19日
SICP_2.40
摘要： 1 #lang racket 2 3 ;;;;;;;;;;;;;;;;;2.40 4 (define nil '()) 5 6 (define (accumulate op intial seq) 7 (if (null? seq) 8 intial 9 (op (car seq) 10 (accumulate op inti... 阅读全文
posted @ 2017-02-19 23:21 lan126 阅读(194) 评论(0) 推荐(0) 编辑