🚀 go-pugleaf

$B@V4V$H?=$7$^$9!#(B

$B$3$N(B newsgroup $B$r6=L#?<$/FI$^$;$FD:$$$F$^$9!#$$$m$$$mITJY6/$J$N$G$9$,!"(B
$B$3$l$+$i$b$h$m$7$/$*4j$$$7$^$9!#(B

$B$5$F!"(B $B%W%m%0%i%`8@8l(B $B#M#L$K$*$$$F!"(B exception, raise, handle $B$J$I$G!"(B
call/cc $B$_$?$$$J$3$H$,$I$l$/$i$$$G$-$k$N$G$7$g$&$+!)(B

Comment, $BJ88%%]%$%s%?!<$J$I65$($FD:$1$l$P9,$$$G$9!#(B

							$B@V4V(B

$B!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a!a(B
Standard ML of New Jersey, Version 0.93, February 15, 1993
val it = () : unit
- val Peirce = fn w => let exception y of '1a in  w(fn z => raise(y z)) handle (y x) => x end;
val Peirce = fn : (('1a -> 'b) -> '1a) -> '1a

$B$3$l$G$O(B call/cc $B$h$j<e$$$G$9$+$M!#!#!#!#(B


-----------------------------------------------------------------------------
 $BEl5~Bg3X(B $BBg3X1!M}3X7O8&5f2J(B $B>pJs2J3X@l96(B $B@V4VM[Fs(B



--

-----------------------------------------------------------------------------
 $BEl5~Bg3X(B $BBg3X1!M}3X7O8&5f2J(B $B>pJs2J3X@l96(B $B@V4VM[Fs(B
$B")#1#1#3(B $BEl5~ET(B $BJ85~6h(B $BK\6?#7!]#3!]#1(B $BM}3XIt>pJs2J3X2J(B
$B!J#T#E#L!K#0#3(B($B#3#8#1#2(B)$B#4#1#7#7!JD>DL!K!"#0#3(B($B#3#8#1#2(B)$B#2#1#1#1!JFb@~#4#0#9#7!K!"(B
$B!J#F#A#X!K#0#3(B($B#3#8#1#8(B)$B#1#0#7#3(B