🚀 go-pugleaf

$B=i$a$FEj9F$5$;$F$$$?$@$-$^$9!#(B

$B3X9;$N%W%m%0%i%_%s%0$N2]Bj$K(B
$B@5@0?t(Bn$B$rF~NO$7!"#1$+$i(Bn$B$^$G$N?t$N$9$Y$F$N=gNs$rI=<($9$k%W%m%0%i%`$r!":F5/8F(B
$B$S=P$7$rMQ$$$F:n$l!#(B
$B$H$$$&LdBj$,$G$^$7$?!#(B

$B$=$3$G<!$N$h$&$J%W%m%0%i%`$r=q$-$^$7$?!#(B

program parmutation(input,output);
{1$B$+$i(Bn$B$^$G$N=gNs$r$9$Y$FI=<($9$k%W%m%0%i%`(B}
const Max=10;
var
   n : integer;
flag : Boolean;
procedure perm( head,tail : integer);
{$BG[Ns(Bp$B$N(Bhead$BHVL\$+$i(Btail$BHVL\$^$G$N=gNs$rI=<($9$k<jB3$-!Q(B
var i,h,l : integer;
   p : array [1..Max] of integer;{p[1]$B$+$i(Bp[n]$B$K#1$+$i(Bn$B4V$G$N@0?t$,F~$k!Q(B
begin
   if flag=false then
   begin
      for i:=1 to n do$B!P=i4|@_Dj!Q(B
  p[i]:=i;
      flag:=true
   end;
   if head=tail then$B!P(Bhead$B$H(Btail$B$,F1$8CM$J$i$P(Bp[1]$B$+$i(Bp[n]$B$rI=<(!Q(B
   begin
      for i:=1 to tail do
  write(p[i]);
      writeln;
   end
   else$B!P#l$,(Bhead$B$H(Btail$B$N4V$K$"$k$J$i$P(Bp[l]$B$H(Bp[head]$B$NCM$r8r49!Q(B
      for l:=head to tail do
      begin
  h:=p[l];
  p[l]:=p[head];
  p[head]:=h;
  perm(head+1,tail)
      end
end; { perm }

begin
   writeln('1$B$+$i(B',Max);
   readln(n);
   perm(1,n)
end.

$B$[$\40@.$K6a$$$H;W$&$s$G$9$,!"(B
$B<B9T$5$;$k$H(Bp[i]$B$K$J$<$+Hs>o$KBg$-$J?t$,I=<($5$l$F$7$^$$$^$9!#(B
$B$I$3$,4V0c$C$F$$$k$N$+65$($F$$$?$@$1$J$$$G$7$g$&$+!#(B
$B8@MU$,B-$j$J$$ItJ,$,$"$j$^$7$?$i!"$4;XE&$7$F$$$?$@$1$l$P(B
$B$^$?$*=q$-$7$^$9!#(B

$B$h$m$7$/$*4j$$$7$^$9!#(B


$BEl5~9)6HBg3X9)3XIt>pJs9)3X2J#2G/(B
$B:4F#!!5.(B
E-mail address aem29351@biglobe.ne.jp
Home Page http://www2s.biglobe.ne.jp/~sattak/index.html