🚀 go-pugleaf

$@?7>k!wC^GHBg3X$G$9!#$3$s$K$A$O!#(J
$@$3$&$$$&OC$O!"(Jfj.lang.lisp $@$K=P$5$J$/$C$A$c!#(J

From article <GR2wP.1006@mtak.bsj.com>,
	by logic@mtak.bsj.com (Masami Takikawa):

> $@$H$3$m$G!":G6a$O(J lisp $@$G$b(J defstruct $@$,;H$($k$h$&$K$J$C$F!"(JC $@$N$h(J
> $@$&$K9=B$BN$rL>A0$rMQ$$$F%"%/%;%9$G$-$^$9$,!":G6a$N(J lisp $@=q$-$O!"(J
> defstruct $@$H(J cons + c...r $@$N$I$A$i$r$h$/;H$&$s$G$7$g$&!)(J defstruct
> $@$N$$$$E@$O!"L>A0$,;H$($k$N$G!"%G%P%C%0$d%a%$%s%F%J%s%9$,3Z$H$$$&=j(J
> $@$G$7$g$&$,!"5U$K$$$A$$$A@k8@$7$J$1$l$P$J$i$J$$$N$,!"7gE@$G$9$M!#B?(J
> $@$/$N?M$O$I$C$A$NJXMx$5$r<h$k$N$G$7$g$&!)(J forth $@;H$$$OEvA3L>A0$J$s(J
> $@$+$$$i$J$$GI!J(Jcons + c...r$@!K$+$J!)(J forth $@$K:C@^$7$?KM$O!"EvA3(J defstruct
> $@GI$G$9!#(Jcons $@$OIaDL$N%j%9%H$HB0@-%j%9%H$K$7$+;H$$$^$;$s!#(J

> $@$?$-$+$o!w$*$l$4$s(J

$@;d$O!"(JLisp $@$G%W%m%0%i%`=q$$$?$j$9$k$3$H$O!"$[$H$s$I$J$$$N$G(J
$@$I$A$iGI$G$b$"$j$^$;$s!#$G$b!"=q$/$H$9$k$H!"(JScheme $@GI$J$N$G!"(J
cons + c...r $@GI$K6a$$$N$+$J!#$b$C$H$b!"(JScheme$@GI$N@5E}$H$7$F(J
$@$O!"(Jcons + c...r $@$r@8$G;H$&$N$G$O$J$/$F!"$-$A$s$H%G!<%?$NCj(J
$@>]2=$r$7$F!"(J

(define	(make-rat n d) (cons n d))	; $@M-M}?t$r:n$k(J
(define	(numer x) (car x))		; $@J,;R$r<h$j$@$9(J
(define (denom x) (cdr x))		; $@J,Jl$r<h$j$@$9(J

$@$N$h$&$K$7$^$9!#(J

$@$"$k$$$O!"%/%m!<%8%c$r:n$C$F!"K\Ev$K%*%V%8%'%/%H;X8~$7$F$7$^(J
$@$&$+$b$7$l$J$$!#(J

From article <GR2Fh.1007@mtak.bsj.com>,
	by logic@mtak.bsj.com (Masami Takikawa):
> $@AaB.<+8J%U%)%m!<$G$9$,!"(J
> 
> In article <GR2wP.1006@mtak.bsj.com>
> 	logic@mtak.bsj.com (Masami Takikawa) writes:
>> forth $@$K:C@^$7$?KM$O!"EvA3(J defstruct $@GI$G$9!#(J
> 
> $@$H$$$&$H13$+$J!#:G6a$O(J def-class $@$H$$$&%^%/%m$rDj5A$7$F!"(J
> $@%*%V%8%'%/%H;X8~8@8l$K$7$F=q$$$F$$$^$9!#>.$5$J9=B$BN$G$b(J
> cons + c...r $@$r;H$o$:$K!"%*%V%8%'%/%H$K$7$F$$$^$9!#$d$C$Q(J
> $@$j!"%*%V%8%'%/%H;X8~$OJXMx!#(Jdefstruct $@$r;H$&$h$j!"%W%m%0(J
> $@%i%`$,C;$/!"=q$-$d$9$/$J$j$^$9$M!#(J

$@;d$b(J Lisp $@$G%W%m%0%i%`$r=q$/$J$i!"(Jdef-class $@GI$K$J$j$=$&!#(J

$@!@!@!!?7>k!!Lw!!!J$7$s$8$g$&!!$d$9$7!K!!!@!@(J
$@!@!@!!C^GHBg3X!!EE;R!&>pJs!!!!!!!!!!!!!!!@!@(J