ToB企服应用市场:ToB评测及商务社交产业平台

标题: sicp每日一题[2.1] [打印本页]

---

作者: 用户国营    时间: 2024-9-7 12:14
标题: sicp每日一题[2.1]
Exercise 2.1

Exercise 2.1: Define a better version of make-rat that handles both positive and negative arguments. make-rat should normalize the sign so that if the rational number is positive, both the numerator and denominator are positive, and if the rational number is negative, only the numerator is negative.

第一章学完了，本日开始学习第二章，目前还没有遇到什么题目，这道题也比力简单，只要留意到“分子分母同时为正，或者分子为负，分母为正，不需要改变符号；分子分母同时为负,或者分子为正,分母为负,分子分母都需要改变符号”这一点，就可以很容易地实现标题要求。

1. ; (make-rat ⟨n⟩ ⟨d ⟩) returns the rational number whose numerator is the integer ⟨n⟩ and whose denominator is the integer ⟨d ⟩.
2. (define (make-rat n d)
3.   (let ((n (/ n (gcd n d)))
4.         (d (/ d (gcd n d))))
5.     ; 分子分母同时为正，或者分子为负，分母为正，不需要改变符号
6.     ; 分子分母同时为负,或者分子为正,分母为负,分子分母都需要改变符号
7.     (if (or (and (positive? n) (positive? d))
8.             (and (negative? n) (positive? d)))
9.         (cons n d)
10.         (cons (- 0 n) (- 0 d)))))
12. ; (numer ⟨x⟩) returns the numerator of the rational number ⟨x⟩.
13. (define (numer x) (car x))
15. ; (denom ⟨x⟩) returns the denominator of the rational number ⟨x⟩.
16. (define (denom x) (cdr x))
18. (define (add-rat x y)
19.   (make-rat (+ (* (numer x) (denom y))
20.                (* (numer y) (denom x)))
21.             (* (denom x) (denom y))))
23. (define (sub-rat x y)
24.   (make-rat (- (* (numer x) (denom y))
25.                (* (numer y) (denom x)))
26.             (* (denom x) (denom y))))
28. (define (mul-rat x y)
29.   (make-rat (* (numer x) (numer y))
30.             (* (denom x) (denom y))))
32. (define (div-rat x y)
33.   (make-rat (* (numer x) (denom y))
34.             (* (denom x) (numer y))))
36. (define (equal-rat? x y)
37.   (= (* (numer x) (denom y))
38.      (* (numer y) (denom x))))
40. (define (print-rat x)
41.   (newline)
42.   (display (numer x))
43.   (display "/")
44.   (display (denom x)))
47. (print-rat (make-rat -1 2))
48. (print-rat (make-rat 1 2))
50. (define neg-one-half (make-rat -1 2))
51. (define one-third (make-rat 1 3))
53. (print-rat (add-rat neg-one-half one-third))
54. (print-rat (add-rat neg-one-half neg-one-half))
55. (print-rat (sub-rat neg-one-half one-third))
56. (print-rat (mul-rat neg-one-half one-third))
57. (print-rat (div-rat neg-one-half one-third))
59. ; 执行结果
60. -1/2
61. 1/2
62. -1/6
63. -1/1
64. -5/6
65. -1/6
66. -3/2

复制代码

可以看出这里还是有改进空间，-1/1 写成 -1 就行，利用 gcd 就可以实现，不过我暂时不改了，也许后面有道标题会让做这个事变，到时间再说。

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！更多信息从访问主页：qidao123.com:ToB企服之家，中国第一个企服评测及商务社交产业平台。

---

欢迎光临 ToB企服应用市场:ToB评测及商务社交产业平台 (https://dis.qidao123.com/)

Powered by Discuz! X3.4