Re: Re: [** iso-2022-jp charset **] 順列 - Article 61 - go-pugleaf

Article View: fj.lang.pascal

Article #61

Re: Re: [ iso-2022-jp charset ] 順列

#61

From: Tomohiko Sakamoto
Date: Mon, 01 Dec 1997 00:00

28 lines
1214 bytes

In article <65satj$sfl$1@meshsv230.tk.mesh.ad.jp>,
	"Takashi Sato" <aem29351@biglobe.ne.jp> writes:
>    begin
>       for l:=head to tail do
>       begin
>   $B!!!!!!(Bh:=p[l];
>   $B!!!!!!(Bp[l]:=p[head];
>   $B!!!!!!(Bp[head]:=h;
>   $B!!!!!!(Bperm(head+1,tail)
>       end;
>     shokika(tail)
>     end

perm $B$NCf$G=i4|2=$9$k$J$s$F$H$s$G$b$J$$!#=gNs$N@hF,ItJ,$,85$KLa$C$F(B
$B$7$^$$$^$9$h!#$3$3$GF~$lBX$($?ItJ,$@$1$rLa$;$P$h$$$N$G$O$"$j$^$;$s$+!#(B

   begin
      for l:=head to tail do
      begin
        h:=p[l]; p[l]:=p[head]; p[head]:=h;
        perm(head+1,tail);
        h:=p[l]; p[l]:=p[head]; p[head]:=h
      end
   end

--
$B:dK\CRI'(B	sakamoto@sm.sony.co.jp

Technical Details

Message-ID: <65tr1q$9q8@csdnews.sm.sony.co.jp>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <65satj$sfl$1@meshsv230.tk.mesh.ad.jp>

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: ff90a,70861fc7666075ff
X-Google-Attributes: gidff90a,public
From: sakamoto@sm.sony.co.jp (Tomohiko Sakamoto)
Subject: Re: Re: [** iso-2022-jp charset **] 順列
Date: 1997/12/01
Message-ID: <65tr1q$9q8@csdnews.sm.sony.co.jp>
X-Deja-AN: 294128807
References: <65satj$sfl$1@meshsv230.tk.mesh.ad.jp>
Organization: ITC, Sony Corporation
Reply-To: sakamoto@sm.sony.co.jp
Newsgroups: fj.lang.pascal

Reply to Parent Message