TSfree 発言

> リファレンスマニュアルを詳しく読めば，
> もっとエレガントな解がみつかるかも知れません．

Adobe のページにリファレンスマニュアルがあったので，
索引を調べたら，いいオペレータを見つけました．

/buf 16 string def
/total 0 def
/fd (%stdin) (r) file def
{ %loop
  /num fd buf readline pop cvr def
  num 0 eq { exit } if
  /total total num add def
} loop
total ==

ずいぶんすっきりした上に，実数も受けつけます．
前の解はあまりに醜いので廃棄して下さい．

-----------------------------
	廣島 勉
	(tsutomu@...)