結果

問題 No.3257 +|+
ユーザー fungsi
提出日時 2025-09-08 22:13:57
言語 Crystal
(1.14.0)
結果
RE  
実行時間 -
コード長 288 bytes
コンパイル時間 10,674 ms
コンパイル使用メモリ 309,832 KB
実行使用メモリ 18,032 KB
最終ジャッジ日時 2025-09-08 22:14:24
合計ジャッジ時間 22,647 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 30 RE * 3
権限があれば一括ダウンロードができます

ソースコード

diff # 

n = gets.not_nil!.to_i
a = gets.not_nil!.split.map(&.to_i)
ma = a.max * 2
ans = 0

(1..ma).each do |num|
  dic = Hash(Int32, Int32).new(0)
  limit = Math.min(ma // num + 1, n)
  
  (0...limit).each do |i|
    d = a[i] - num * (i + 1)
    ans += dic[-d]
    dic[d] += 1
  end
end

puts ans
0