Jazz_Charles的博客

题目：构造一个基本的有理数类。第二章讲的主要是构造数据抽象等问题。在构造一个有理数过程中，用到了面向对象程序设计的思想，把整个有理数封装成为一个类。之后对有理数的基本操作都可以用这个完成。涵盖了有理数的加减乘除，以及用GCD确保有理数是最简分数。新接触的(define  x (cons a b))可以简单的理解为pair x , 取出里面的元素a= (car x), b= (c

题目：输入n，实现n的阶乘。第一次接触Lisp，刚刚对语法有了零星的认识，重点是括号的位置使用，加强对括号的作用理解。以下用Lisp实现n的阶乘：>(define (fact n)              (if   (= n  1)               1              (* n (fact  (- n 1)))))

题目：求给定数的平方根求平方根无法直接得到，本次利用牛顿迭代法进行求解。若求解x的平方根sqrt(x), 大体思路为每次猜测一个答案guess，和x进行比较，而牛顿迭代法中每次求出y和x/guess的平均值（更接近实际的平方根）牛顿迭代法介绍：http://baike.baidu.com/link?url=NG3VdxSymk9tzEJolsvsK5Elvicc2EYBL1

原理待补充：> (define a (list 1 2 3 4))> a(1 2 3 4)> (define (reverse items) (define (cons-rev items ans) (if (equal? items '( )) ans (cons-rev (cdr items) (append (li