🚀 go-pugleaf

Dan Kogai <dankogai@dan.co.jp> writes:

> Masaki Nishimura wrote:
> >  $B$$$-$J$j$G$9$,!"(BPerl$B$r$rMxMQ$7$F!"(BC$B$G<B8=$5$l$k%j%9%H9=B$!J(BPerl$B$N%j%9%H(B
> > $B$G$O$J$/!K$r:n$k$3$3$H$O=PMh$k$N$G$7$g$&$+!#(B
> 
> $B!!$&!<$s!"$I$&$7$F(BPerl$B$G(BLisp$B$7$?$$$N$+$OB8B8$8>e$2$^$;$s$,!"(B

$B<+J,$O(B, $B!V(BLisp$B$7$?$$!W$H=q$+$l$k$H!V%j%9%H9=B$$r:n$k!W$H$O0c$&(B
$B;v$r;X$9$h$&$K46$8$^$9(B.

>							    Perl5$B$O;2>H$r(B
> $B%5%]!<%H$7$7$F$$$k$N$G!"$3$s$J$3$H$,=PMh$^$9!#$o$?$7$c(BLisp$B$b(BPerl$B$bBg9%$-(B
> $B$J$s$G$A$g$C$H5:$l$K:n$C$F$_$^$7$?!#(B
		:
> use Lisp;
> 
> $a = Lisp::cons(1, 2);
> $b = Lisp::list(3, 4);
> $c = Lisp::cons($a, $b);
> $d = Lisp::list($a, $b);
> print join("\n", $a->string, $b->string, $c->string, $d->string,
>            $c->car, $c->car->car, $c->cdr, $c->cdr->car), "\n";

$B$($C$H(B, 2$BJ,LZ%j%9%H$N<BAu$r(B, Lisp.pm$B$HL>$E$1$k$N$K$ODq93$,$"$j$^$9(B.
Lisp::eval $B$,<BAu$5$l$?$b$N$r(B, `Lisp.pm'$B$H8F$S$?$$$G$9$M(B. perl5$B$J$i$A$g$C(B
$B$H$,$s$P$l$P$G$-$F$7$^$$$=$&$G$9(B.

$B855-;v$N<ALd$X$NEz$H$7$F8+$l$P(B, $B0l$D$N$NNc$K$O$J$C$F$$$^$9$1$l$I(B...
--
	$B0pMU(B $B9@?M(B <inaba@sdd.tokyo-sc.toshiba.co.jp/inaba@st.rim.or.jp>