結果

問題 No.561 東京と京都
ユーザー moti
提出日時 2018-05-30 03:00:58
言語 Perl
(5.40.0)
結果
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
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 4
other AC * 17
権限があれば一括ダウンロードができます
コンパイルメッセージ
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