アーティクル

#13 Article 6630 Posted at 1992/08/23 05:53:41 by 桑野誼智 (MAP2509) [KAKIOKI]

Subject: Re: Re: Re: どいつもこいつも(笑) /6590 /6589 /6583

>　uniqは同じ内容の連続した行をまとめるunixライクツールです。

　なるほど。
　うーん、ターパスだとこれでいいのかしら？(^^;)

program uniq;
var
  str1, str2 :string;
begin
  str1 := '';
  str2 := '';
  while not(eof) do begin
    readln(str2);
    if str1 <> str2 then writeln(str2);
    str1 := str2;
  end;
end.

　ちょっと違うような気がする…Ｃは良くわからないです(^^;)。
　まぁ動いてるから良しとしよう。

MUK          (MAP1480) : るんるん桑野さんいぇ～いいぇ～い^^

　これは一体…(^^;)。

　　　　　　　　　　　　　　　　　　　　桑野誼智♪
◎◎