結果

問題 No.81 すべて足すだけの簡単なお仕事です。
ユーザー なお
提出日時 2014-11-25 19:08:28
言語 Perl
(5.40.0)
結果
AC  
実行時間 70 ms / 5,000 ms
コード長 212 bytes
コンパイル時間 1,098 ms
コンパイル使用メモリ 15,616 KB
実行使用メモリ 15,744 KB
最終ジャッジ日時 2024-07-22 16:24:26
合計ジャッジ時間 3,635 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 30
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

#!/usr/bin/perl
use strict;
use Math::BigFloat;
Math::BigFloat->accuracy(30);

my $N = <>;
my $sum = 0;
for(1..$N){
    $sum += Math::BigFloat->new(scalar <>);
}
print $sum->bfround(-10)->bstr(),"\n";
0