🚀 go-pugleaf

$B?eK\(J@$B%j%`%M%C%H$G$9!#(J

> > (defun p () (p))
> P
> > (p)
> error: evaluation stack overflow

$B>e5-$N5-=R$G(JFreeBSD$B$N@$3&$G$b%9%?%C%/%*!<%P!<%U%m!<$r5/$3$9$N$G$9$+(J...
$B$?$a$7$K!"(JMS-DOS$B$N@$3&$N(JLISP$B$G$bH/@8$7$^$9!#(J
$B:F5"4X?t$N=hM}$K$D$$$F$O!"(JStack Overflow$B$OIU$-J*$J$N$G$7$g$&$+(J?
$BJY6/Cf$N<+J,$G$9$,!"(JLISP$B$N%W%m%0%i%`%3!<%F%#%s%0$G$O!"%k!<%W=hM}$r9T$&>l9g(J
$B!"(J
$B:F5"=hM}$r9T$&$N$,4qNo$J%3!<%F%#%s%0$@$H;W$C$F$$$k$N$G$9$,!"$3$N>l9g!"(J
$B%W%m%0%i%`$N%k!<%W=hM}Ey$N;HMQ$K$O(J(DO (....)) $B$H$+$N%k!<%W=hM}$r9T$&4X?t$r(J
$BMQ$$$?J}$,NI$$$N$G$7$g$&$+(J?  u-n?!
$B$A$J$_$K!"(J(DO(...))$B$rMQ$$$FF1Ey$N=hM}$r9T$C$?>l9g$O!"LdBjM-$j$^$;$s$G$7$?!#(J
$B?'!9$HFq$7$$$G$9$H;W$$F|!9JY6/$G$9!#(J


$B$3$NOC$H$OJL$K$J$j$^$9$,!"(J

	(setq  xx  '(  A1  A2  A3  A4   .....))

$B$G(Jxx$B$N%j%9%H(J(?)$B$N(JA1/A2/A3......$B$NCM$r(JA1$B$r(JB1/A2$B$r(JB2/A3$B$r(JB3$B$KCV$-49$($r9T$&(J
$B>l9g$K$D$$$F$I$NMM$K9T$($PNI$$$N$G$7$g$&$+(J?($B%$%a!<%8$ODL>o$NG[Ns=hM}$G$9(J)

A1$B$K$D$$$F$O(J

	(setq  xx  (cons  'B1  '(cdr  xx)) ) 

$B$G!"(Jxx$B$N%j%9%H$O(J(B1 A2 A3 A4
....)$B$H$J$k$N$O!"M}2r$G$-$?$N$G$9$,!"4X?t$H$7$F(J
A2$B$^$?$O!"(JA3....$B$NCV$-49$($r<B8=$9$k>l9g!"$I$NMM$K9M$($l$PNI$$$N$+G:$s$G(J
$B$$$^$9!#(J  $B$*<j?t$G$9$,!"%R%s%H$r65$($FD:$1$^$7$?$i9,$$$G$9!#(J

($BG[Ns=hM}$K$D$$$F$O!"(JC/Pascal/Basic$B$H$+$N=hM}7O$HHf$Y(JLISP$B$G$NCV$-49$($r(J
$B9M$($?>l9g!"Fq9RITMn$G$9(J.....$B>p$1$J$$(J.......)

$B:F!9$NAG?M$N<ALd$G$9$_$^$;$s!#(J