結果

問題 No.1457 ツブ消ししとるなHard
ユーザー yuruhiya
提出日時 2021-03-31 21:42:24
言語 Crystal
(1.14.0)
結果
AC  
実行時間 20 ms / 2,000 ms
コード長 731 bytes
コンパイル時間 11,576 ms
コンパイル使用メモリ 297,136 KB
実行使用メモリ 6,820 KB
最終ジャッジ日時 2024-12-15 16:35:28
合計ジャッジ時間 12,393 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 4
other AC * 17
権限があれば一括ダウンロードができます

ソースコード

diff # 

lib C
  fun strtoll(s : UInt8*, p : UInt8**, b : Int32) : Int64
end

class String
  def to_i64
    C.strtoll(self, nil, 10)
  end
end

n, m, x, y, z = read_line.split.map(&.to_i)
a = read_line.split.map(&.to_i)
if a.count { |i| i >= x } > m
  puts "Handicapped"
  exit
end

sum = a.sum
dp = Array.new(-~n) { [0i64] * -~sum }
dp[0][0] = 1i64
a.each do |val|
  dp2 = Array.new(-~n) { [0i64] * -~sum }
  (0...n).reverse_each { |i|
    (0...sum).reverse_each { |j|
      dp2[i + 1][j + val] += dp[i][j] if val > y && dp[i][j] > 0
      dp2[i][j] += dp[i][j] if val < x && dp[i][j] > 0
    }
  }
  dp = dp2.dup
end

ans = 0i64
(0..n).each { |i|
  (0..sum).each { |j|
    ans += dp[i][j] if i * z == j && i <= m && i != 0
  }
}
puts ans
0