結果
問題 |
No.450 ベー君のシャトルラン
|
ユーザー |
![]() |
提出日時 | 2016-12-02 00:12:00 |
言語 | Perl (5.40.0) |
結果 |
TLE
|
実行時間 | - |
コード長 | 302 bytes |
コンパイル時間 | 410 ms |
コンパイル使用メモリ | 5,376 KB |
実行使用メモリ | 11,008 KB |
最終ジャッジ日時 | 2024-11-27 16:52:18 |
合計ジャッジ時間 | 7,021 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge4 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 18 TLE * 2 |
コンパイルメッセージ
Main.pl syntax OK
ソースコード
my $v = <STDIN>; chomp $v; my @v = split(/\s/, $v); my $d = <STDIN>; chomp $d; my $w = <STDIN>; chomp $w; my $total = 0; my $i = 1; while ($d > 10**-6) { my $t = $d/($v[$i] + $w); $total += $w * $t; $d = $d - ($v[0] + $v[1]) * $t; $i++; $i %= 2; } print $total, "\n";