結果

問題 No.561 東京と京都
ユーザー motimoti
提出日時 2018-05-30 03:00:58
言語 Perl
(5.38.2)
結果
AC  
実行時間 7 ms / 2,000 ms
コード長 630 bytes
コンパイル時間 192 ms
コンパイル使用メモリ 7,072 KB
実行使用メモリ 5,888 KB
最終ジャッジ日時 2024-06-30 08:10:01
合計ジャッジ時間 1,034 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge3
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 7 ms
5,760 KB
testcase_01 AC 7 ms
5,760 KB
testcase_02 AC 7 ms
5,888 KB
testcase_03 AC 7 ms
5,888 KB
testcase_04 AC 7 ms
5,760 KB
testcase_05 AC 7 ms
5,760 KB
testcase_06 AC 7 ms
5,760 KB
testcase_07 AC 6 ms
5,760 KB
testcase_08 AC 6 ms
5,760 KB
testcase_09 AC 7 ms
5,760 KB
testcase_10 AC 6 ms
5,888 KB
testcase_11 AC 7 ms
5,760 KB
testcase_12 AC 7 ms
5,760 KB
testcase_13 AC 7 ms
5,632 KB
testcase_14 AC 6 ms
5,888 KB
testcase_15 AC 6 ms
5,760 KB
testcase_16 AC 6 ms
5,760 KB
testcase_17 AC 7 ms
5,760 KB
testcase_18 AC 7 ms
5,760 KB
testcase_19 AC 7 ms
5,760 KB
testcase_20 AC 6 ms
5,632 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff # 

#!/usr/bin/env perl

use strict;
use warnings;

my ($n, $d) = split / /, <>;
chomp $d;

my @dp;
$dp[0][0] = 0;
$dp[0][1] = -999999999999999999;
for my $i (1..110) {
  for my $j (0..1) {
    $dp[$i][$j] = -1;
  }
}
for (my $i = 0; $i < $n; $i++) {
  my ($t, $k) = split / /, <>;
  chomp $k;

  my ($x, $y) = ($dp[$i][0] + $t, $dp[$i][1] + $t - $d);
  $dp[$i + 1][0] = $x if $x >= $y;
  $dp[$i + 1][0] = $y if $x < $y;

  my ($z, $w) = ($dp[$i][1] + $k, $dp[$i][0] + $k - $d);
  $dp[$i + 1][1] = $z if $z >= $w;
  $dp[$i + 1][1] = $w if $z < $w;
}

if ($dp[$n][0] >= $dp[$n][1]) {
  print $dp[$n][0];
} else {
  print $dp[$n][1];
}
0