本文介绍了一个用Scheme语言实现的几何计算程序，包括创建线段、获取线段起点和终点、计算线段中点等功能。通过定义一系列函数，如make-segment、start-segment、end-segment、make-point、x-point、y-point、average、mid-segment和print-point，实现了对二维空间中点和线段的灵活操作。
练习2.2
(define(make-segment start-point end-point)
(cons start-point end-point))
(define(start-segment seg)
(car seg))
(define(start-segment seg)
(cdr seg))
(define(make-point x y)
(cons x y))
(define(x-point p)
(car p))
(define(y-point p)
(cdr p))
(define(average x y)
(/ (+ x y) 2.0))
(define(mid-segment seg)
(let ((start (start-segment seg))
(end (end-segment seg)))
(make-point (average (x-point start)(x-point end))
(average (y-point start)(y-point end)))))
(define(print-point p)
(newline)
(display “(“)
(display (x-point p))
(display “,”)
(display (y-point p))
(display “)”))
版权声明：本文为 NoMasp柯于旺 原创文章，未经许可严禁转载！欢迎访问我的博客：http://blog.youkuaiyun.com/nomasp
扫一扫
2544
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
