作者: 藤岡和夫
日時: 2002/9/27(21:09)
On Fri, 27 Sep 2002 14:46:02 +0900
YIX06325@... (Penelotty) さんwrote:

> >999が入力されるまで，数を（１行に１個ずつ）読み込んで，すべての合計を表示
> >するプログラムを書きましょう．（999は加算しないように注意してください！）例え
> >ば，1，2，3，999を入力すると，プログラムは6（つまり1+2+3）を表示します．
> 
> この問題にPenelottyは次のように答えました．
> 
> @num=<stdin>;
> $sum=0;
> $i=0;
> 
> chomp($num[$i]);
> until ($num[$i]==999) {
> 	$sum+=$num[$i];
> 	$i++;
> 	chomp($num[$i]);
> }
> 
> print $sum."\n";
> 
> でも数を入力して，“Ctrl+Z”をタイプすると，最後のPrint文を実行せずに終わってしまいます．
> 解答を見ると，やはり以上のプログラムより洗練，簡素化，そしてPenelottyの読解力不足が浮き彫りにされますが，そこに目を向けなければこのプログラムは正常に動くはずです．
> 
> どうか問題点をご指摘ください．
> 

　下記のようにそのままで動きましたが・・・

C:\Scripts\Perl>perl pene2.pl
1
2
3
999
^Z
6

> お知らせ
> 拙いながらPenelottyはホームページを持っています，
> それは女優の前田愛ちゃん応援ページです．
> そこではchirumiruと名乗っています．
> みなさん，ぜひ，遊びに来てください．
> 
> http://homepage2.nifty.com/penelotty/index.html

　遊びに行きました。愛の野望ページがNot Foundになりました。デザインが、
おっ、どのように作っているのだろうと思わせますね。

藤岡 和夫
FGALTS@...
kazuf@...
TS Networkのために http://homepage1.nifty.com/kazuf/