$BEy9f(B

(eq? $B!R%G!<%?(B$_1$$B!S!R%G!<%?(B$_2$$B!S(B) $B!Z4X?t![(B

$B0z?t$,(B``$BF10l(B''$B$N%G!<%?$G$"$l$P(B #t$B$rJV$7!$(B $B$=$&$G$J$1$l$P(B #f$B$rJV$9!%(B $B0lHL$K!$$"$k<0$NCM$,JQ?t$KBeF~$5$l$?$j!$4X?t$X$N0z?t$H$7$FEO$5$l$k>l9g!$(B $B$=$NJQ?t$d%Q%i%a!<%?$,CM$H$7$F;}$D%G!<%?$O!$$b$H$N<0$NCM$G$"$k%G!<%?$H(B $BF10l$G$"$k!%$5$i$K!$(BTUTScheme$B$G$Ol9g$OF10l$N%G!<%?$H$J$k!%(B

1. #t$B$I$&$7!$$*$h$S(B #f$B$I$&$7(B
2. $B6u%j%9%H$I$&$7(B
3. $BF1$80u;zL>$r;}$D%$%s%?!<%s$5$l$?5-9f(B
4. $BEy$7$$(Bfixnum
5. $BF1$8J8;z$rI=$9J8;z%G!<%?(B
6. end-of-file$B%*%V%8%'%/%H$I$&$7(B

$BNc(B:

(eq? 10 10) $\Rightarrow$ #t
(eq? 10 0) $\Rightarrow$ #f
(eq? 100000000 100000000) $\Rightarrow$ #f
(eq? 'a 'a) $\Rightarrow$ #t
(eq? 'a 'b) $\Rightarrow$ #f
(eq? #f #f) $\Rightarrow$ #t
(eq? '(a . b) '(a . b)) $\Rightarrow$ #f
((lambda (x) (eq? x x)) '(a . b)) $\Rightarrow$ #t
(eq? car car) $\Rightarrow$ #t
(eq? car cdr) $\Rightarrow$ #f
((lambda (x) (eq? x car)) car) $\Rightarrow$ #t

(eqv? $B!R%G!<%?(B$_1$$B!S!R%G!<%?(B$_2$$B!S(B) $B!Z4X?t![(B

$B0z?t$,l9g$K(B #t$B$rJV$9!%(B

1. eq?$B$N0UL#$GEy$7$$%G!<%?(B
2. $BEy$7$$?tCM(B

$B$3$l$i0J30$N>l9g$O(B #f$B$rJV$9!%(B

$BNc(B:

(eqv? 10 10) $\Rightarrow$ #t
(eqv? 10 0) $\Rightarrow$ #f
(eqv? 10000 10000) $\Rightarrow$ #t
(eqv? 2.5 2.5) $\Rightarrow$ #t

(equal? $B!R%G!<%?(B$_1$$B!S!R%G!<%?(B$_2$$B!S(B) $B!Z4X?t![(B

$B0z?t$,l9g$K(B #t$B$rJV$9!%(B

1. eqv?$B$N0UL#$GEy$7$$%G!<%?(B
2. car$B$I$&$7!$(Bcdr$B$I$&$7$,(B equal?$B$G$"$k%3%s%9(B
3. $BF1$8D9$5$G!$BP1~$9$kMWAG$,$9$Y$F(B equal?$B$G$"$k%Y%/%?(B
4. $BF1$8D9$5$G!$BP1~$9$kJ8;z$,$9$Y$F(B char=?(I$G$"$kJ8;zNs(B<
5. car$B$I$&$7!$(Bcdr$B$I$&$7$,(B equal?$B$G$"$k(Bweak$B%3%s%9(B
6. $B$I$A$i$N(Bcar$B$b$4$_=8$a$K$h$C$F2s<}$5$l$F$*$j!$(B cdr$B$I$&$7$,(B equal?$B$G$"$k(Bweak$B%3%s%9(B
7. $BBP1~$9$k%U%#!<%k%I$NCM$,$9$Y$F(B equal?$B$G$"$kF1$8%9%H%i%/%A%c(B $B$N%G!<%?$I$&$7(B

$B$3$l$i0J30$N>l9g$O(B #f$B$rJV$9!%(B

$BNc(B:

(equal? '(a . b) '(a . b)) $\Rightarrow$ #t
(equal? '(a . 0) '(a . 1)) $\Rightarrow$ #f
(equal? '(a (b c) d) '(a (b c) d)) $\Rightarrow$ #t
(equal? #(1 2 (a b)) #(1 2 (a b))) $\Rightarrow$ #t