🚀 go-pugleaf

In article <65satj$sfl$1@meshsv230.tk.mesh.ad.jp>, 
"Takashi Sato" <aem29351@biglobe.ne.jp> wrote:

$B%P%0$,$I$3$K$"$k$+$OJL$NJ}$,Ej9F$5$l$F$$$k$h$&$J$N$G!"(B

> $B0JA0$KG[Ns$r<jB3$-$K(B
> $BEO$=$&$H$7$F(B
> procedure perm(a : array [1..n] of integer
> $B$N$h$&$K$d$C$?$i%(%i!<$,$G$^$7$?!#(B
>
$B!!$3$l$G$O%3%s%Q%$%i$bDL$i$J$$$N$G$O!)2>0z?t$N7?$O7?L>$G;XDj$9$k$h$&$K(B
$B5-21$7$^$9$,!#(B
$B!t:G6a%W%m%0%i%`=q$$$F$J$$$N!#(B

const
   MaxIndex = $B$[$K$c$i$i(B;
type Index = 1..MaxIndex;
     MyArray = array[Index] of integer;
$B$H$d$C$F$*$$$F(B

procedure perm(a : MyArray);
begin
$B!!$I$&$?$i$3$&$?$i(B
end

$B$H=q$$$?$i$I$&$G$7$g$&!#(B
 
> $B>e$N%W%m%0%i%`$,@5$7$/F0$/$+$OJL$H$7$F(B
> $BG[NsA4BN$r<jB3$-$d4X?t$KEO$9J}K!$O$"$k$N$G$7$g$&$+!#(B
> $B%F%-%9%H$r$_$F$b$O$C$-$j:\$C$F$$$^$;$s!#(B
>
$B!!$3$l$K$O#2$DJ}K!$,$"$j!"0l$D$O>e5-$N$h$&$JCM0z?t!"$b$&0l$D$OJQ?t0z?t(B
 
procedure perm(var a : MyArray);
begin
$B!!$I$&$?$i$3$&$?$i(B
end

$B$G$9!#2?$,0c$&$+!"$I$&;H$&$+$O!"N.@P$KJY6/$7$FD:$$$?$[$&$,$h$$$G$7$g$&!#(B

$B!tJL$K!VG[Ns$@$+$i!WFC<l$JJ}K!$,$"$k$o$1$G$O$J$$$s$G$9$h!#(BPascal$B$O$=$s(B
$B$J8@8l$8$c$"$j$^$;$s!#(B

$B!!$b$72H$K(BPC$B$,$"$l$P!"(BPC-UNIX, OS/2, DOS, Windows$B$J$s$A$c$i$N$I$N(B
$B%W%i%C%H%U%)!<%`$G$b!"$=$l$J$j$N%U%j!<$N(BPascal$B=hM}7O$,$"$j$^$9!#@'Hs(B
$B2H$G$bAv$i$;$F$_$k$3$H$r$*A&$a$7$^$9!#(B

-- 
Haruo Toda, Niigata Univ.