From: ARIMA Yasuhiro <fit0298@...>
Date: 1998-10-14T19:13:58+09:00
Subject: [ruby-list:10106] Re: for が修飾子だったら

Regard to "[ruby-list:10097] Re: for が修飾子だったら"

有馬＠ＦＩＴＥＣです。

||まつもとさん> * perlでforが修飾子じゃなかった
||
||Perl5.005で修飾子になりました :-P
|
|ぎゃふんっ ^^;;;

恥ずかしながら、この for に気づいたときに書いてたスクリプトです。
縦横の合計をするだけの内容です。

if ARGV.length == 0 then
	STDERR.print <<E
Usage: ruby sum.rb datafile
E
	exit
end

col_sum = []
row_sum = 0

f = File.open(ARGV.shift, "r")
while not f.eof?
	a = f.gets.chop.split
	row_sum = 0
	a.each do |v|
		row_sum += v.to_f
		printf "%10.5f", v.to_f
	end
	for i in 0..a.size-1 do
		col_sum[i] = 0 if col_sum[i] == nil
		col_sum[i] += a[i].to_f
	end
	printf " |%10.5f\n", row_sum
end
f.close

#  この下が書いててすっきりしないのです
#  printf "----------" for i in 0..col_sum.size
#  だったらいいなあと思って書きました。

for i in 0..col_sum.size do
	printf "----------"
end
printf "--\n"

for i in 0..col_sum.size-1 do
	printf "%10.5f", col_sum[i]
end
printf "\n"

--
 有馬 康弘 <fit0298@fitec.co.jp>