7月下旬學習總結

學習racket半月有感

scheme/lisp

很抽象,基本上沒有機器細節.這大概是效率比不過C的緣由吧. 表現力十分強大,SCIP的書也很經典

###第一章

• 1.1-1.3 主要是遞歸和迭代,過程抽象和複雜度概念的介紹

下面是我對習題1.31的答題

<pre> #lang racket (require racket/trace) (define (f-plus f a next b ret) (cond ((> a b) ret) (else (f-plus f (next a) next b (* ret (f a))) ) ) ) (define (factor-down k) (if (even? k) (+ 1 k) (+ 2 k) ) ) (define (factor-up k) (if (even? k) (+ 2 k) (+ 1 k) ) ) (define (pi-z z) (/ (factor-up z) (factor-down z)) ) (define (inc x) (+ x 1)) (current-inexact-milliseconds) (* 4 (f-plus pi-z 1.0 inc 10000.0 1) ) (current-inexact-milliseconds) </pre>