🚀 go-pugleaf

$BA0ED$G$9!#(B

On 27 Jun 1997 03:30:34 GMT,
i961205m@eds.ecip.nagoya-u.ac.jp (Sumi Kentarou) san wrote:

|>> $B4X?t$,$h$j:Y$+$$=hM}C10L$KJ,3d$G$-$k$h$&$J>l9g$J$i(Bnested function$B$O(B
|>> $B@5$7$$A*Br$@$H;W$$$^$9$,!"(Bif$B@a$N%V%m%C%/$,D9$/$J$k$+$i$H$$$C$F(Bnested
|>> function$B$K$7$F$b$"$^$j0UL#$,$J$$$N$G$O$J$$$G$7$g$&$+!)(B
|
|
|$B$^$:!$$b$H$b$H$O6b;R$5$s$N(B
|$B!V??$sCf$,D9$/$J$l$P(Bif$B8e$N=hM}$,H/8+$7$K$/$$!W$H$$$&5?Ld$KBP$7!$(B
|$B$3$&$9$l$P$=$s$J$3$H$O$J$$$H$$$&Nc$r=q$$$N$G$9$,!$(B
|$B$=$NMxE@$OG'$a$F$b$i$($k$G$7$g$&$+!#(B
|
|$B<!$K!$A0ED$5$s$N(B
|$B!VD9$$$+$i$H$$$C$F(Bfunction$B$K$9$k0UL#$O$J$$$N$G$O!W$XJVEz$7$^$9!#(B

$B4N?4$N>r7o@a$r>JN,$7$J$$$G$/$@$5$$!#(B
$B3Q$5$s$NA02s$NNc$G$O$h$j:Y$+$$=hM}C10L$KJ,3d$7$F$$$k(B
$B$h$&$K$O$H$F$b8+$($^$;$s$G$7$?!#(B
if$B@a$N%V%m%C%/$r(Bprocedure$B$KCV$-49$($?$@$1$8$c0UL#$J$$(B
$B$G$9$h$M!)(B

$BKM$b(Bnested function$B$r(B

function MergeSort(X: Node): Node;

   function MergeList(A, B: Node): Node;
   begin
      ...
   end;

var
   A, B: Node;
begin

   { $B%j%9%H$NJ,3d=hM}(B }

   MergeSort := MergeList(MergeSort(A), MergeSort(B));
end;

$B$_$?$$$K;H$&$N$O9%$-$G$9!#(B

|Wirth$B$N(BPASCAL$B=iHG!JG]Iw4[!K$r%A%'%C%/$7$^$7$?$,!$(B
|PASCAL$B$K(Bfunction$B$*$h$S%k!<%W$+$iC&=P$9$k%-!<%o!<%I$OL5$$$H;W$$$^$9!#(B

$B$J$k$[$I!"$=$l$G$O;EJ}$J$$$G$9$M!#(B
p2c$B$H(Bfpk-pascal$B$G$7$+3NG'$7$F$J$$$N$G$=$s$J5$$O$7$F$$$?$N$G$9$,!#(B
# $B$G$b3HD%$J$7$NI8=`(BPascal$B$H$+;H$&$N$D$i$=$&$G$9$M!#(B

-- 
$BA0ED(B $B=$8c(B