TSabc 発言

中村 のりつぐ です。

In article <200204080754.g387sgb15613@...> 
saw@... (Ｙさ) wrote:
> [お題]簡易足し算器
> [内容]入力された数字を合計し、表示する。
>  0が入力されるまで数字を受け付け、合計し続ける。
>  0が入力されるとそれまでの合計を表示する。
> 
> [awkによる例]
> -----
> { if($1!=0) total+=$1; else exit; }
> END{ print "total = ", total; }
> -----
> ※ちなみに"簡易"なので入力が数値であるか等のチェックは省略

# はじめ last でなくて break って書いてしまった (^_^;

いきなり 0 を入れると total = 0 とならないので
やっぱり初期化しておいたほうが良いかも。

#!/usr/bin/env perl

while (<>) {
    if ($_ != 0) {
        $total += $_;
    } else {
        last;
    }
}
print "total = $total\n";


引数対応版

#!/usr/bin/env perl

while (@ARGV) {
    $total += shift(@ARGV);
}

while (<>) {
    if ($_ != 0) {
        $total += $_;
    } else {
        last;
    }
}
print "total = $total\n";


       中村 典嗣  E-mail:     nnakamur@...