messi

今天，把昨晚作的这道题又重新修改了。在DrRacket中运行通过了。这个版本的是迭代的。递归的很简单就不写了。 [code="scheme"]#lang racket ;;this is for the practice 1.11 from SICP (define (f n) (define (f-iter a b c cnt) (cond ((= cnt...

[code="scheme"]#lang racket (define (sum-lst lst) (let loop ((lst lst) (accum '()) (prev 0)) (cond ((empty? lst) (reverse (cons 1 accum))) (else (loop (cdr lst) (cons (+ (car lst) p...

今天忍着蚊子的叮咬，把SICP习题1.16作了。 先写了递归版： [code="scheme"](define power (lambda (m n) (cond ((zero? n) 1) ((even? n) (square (power m (/ n 2)))) (else (* m (power m (- n 1)))))))[...

今天回到屋子先睡了一觉，昨天没休息好，打了一宿蚊子，战果丰盛。睡醒后，开始，找一些好听的音乐。最后该看书了，继续我的The Little Scheme。本来，我是先看SICP的，但是，看着看着不知怎么就跑到这本书了。还好这本比较薄，马上就要看完了。接下来，写了几个习题： [code="Scheme"](define atom? (lambda (x) (not (or (null...

端午在家休息了好几天，基本上就是带孩子和睡觉了。荒废了好几天之后，今天重操旧业。 The Little Scheme看到第99页了。要写一个函数numbered?来判断一个表达式是否是数字表达式。 上代码：[code="scheme"](define atom? (lambda (a) (not (or (null? a) (pair? a))))) (define oper...

今天重新拿起了SICP,准备继续之前被The Little Schemer打断的计划。 今天重新实现了下第一章的习题16，还重新实现了那个测试工具。 习题代码： [code="scheme"](define square (lambda (n) (* n n))) (define fast-expt (lambda (a n ex) (cond ...