結果

問題 No.221 犯罪都市
ユーザー tails
提出日時 2015-06-05 22:28:26
言語 Perl
(5.16.3)
結果
AC  
実行時間 4 ms
コード長 70 Byte
コンパイル時間 25 ms
使用メモリ 2,140 KB
最終ジャッジ日時 2019-12-07 11:54:17

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
01.txt AC 4 ms
2,136 KB
02.txt AC 4 ms
2,132 KB
03.txt AC 4 ms
2,132 KB
04.txt AC 4 ms
2,060 KB
05.txt AC 4 ms
2,056 KB
06.txt AC 4 ms
2,136 KB
07.txt AC 4 ms
2,136 KB
08.txt AC 4 ms
2,132 KB
09.txt AC 4 ms
2,140 KB
10.txt AC 4 ms
2,128 KB
99_system_test1.txt AC 4 ms
2,140 KB
99_system_test2.txt AC 4 ms
2,136 KB
99_system_test3.txt AC 4 ms
2,132 KB
99_system_test4.txt AC 4 ms
2,136 KB
99_system_test5.txt AC 4 ms
2,132 KB
99_system_test6.txt AC 4 ms
2,128 KB
テストケース一括ダウンロード
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
$n=<>*100;
$y=$n*.99;
$x=(1e6-$n)*.01;
$r=1-$y/($x+$y);
print $r*100;
0