7月下旬学习总结

学习racket半月有感

scheme/lisp

很抽象,基本上没有机器细节.这大概是效率比不过C的原因吧.
表现力十分强大,SCIP的书也很经典

第一章

• 1.1-1.3 主要是递归和迭代,过程抽象和复杂度概念的介绍

下面是我对习题1.31的答题

#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)