結果
問題 | No.2438 Double Least Square |
ユーザー |
![]() |
提出日時 | 2023-08-17 22:25:59 |
言語 | Julia (2.11.2) |
結果 |
AC
|
実行時間 | 1,759 ms / 2,000 ms |
コード長 | 2,230 bytes |
コンパイル時間 | 187 ms |
コンパイル使用メモリ | 5,248 KB |
実行使用メモリ | 337,708 KB |
最終ジャッジ日時 | 2024-10-01 17:38:33 |
合計ジャッジ時間 | 57,615 ms |
ジャッジサーバーID (参考情報) |
judge1 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 30 |
ソースコード
using Printffunction score(xy, x², y²)if x² == 0return 0endreturn y² + (xy^2 / x²) - (2xy^2 / x²)endfunction main()N = parse(Int, readline())H = parse(Int, readline())x = zeros(Int, N)y = zeros(Int, N)for i in 1:Nx[i], y[i] = parse.(Int, split(readline()))endslopes = (y .- (H // 2)) .// xslopes_perm = sortperm(slopes, rev=true)x_perm = sortperm(x, rev=true)xy = sum(x .* y)x² = sum(x .* x)y² = sum(y .* y)L_best = score(xy, x², y²)for i in eachindex(x)upper = slopes_perm[begin:i]lower = slopes_perm[i+1:end]upper_set = Set(upper)upper_x = x[upper]upper_y = y[upper] .- Hupper_xy = sum(upper_x .* upper_y)upper_x² = sum(upper_x .* upper_x)upper_y² = sum(upper_y .* upper_y)lower_x = x[lower]lower_y = y[lower]lower_xy = sum(lower_x .* lower_y)lower_x² = sum(lower_x .* lower_x)lower_y² = sum(lower_y .* lower_y)L_u = score(upper_xy, upper_x², upper_y²)L_b = score(lower_xy, lower_x², lower_y²)L = L_u + L_bif L < L_bestL_best = Lendfor j in eachindex(x)new_idx = x_perm[j]_x = x[new_idx]_y = y[new_idx]if new_idx in upper_setupper_xy -= _x * (_y - H)upper_x² -= _x^2upper_y² -= (_y - H)^2lower_xy += _x * _ylower_x² += _x^2lower_y² += _y^2elseupper_xy += _x * (_y - H)upper_x² += _x^2upper_y² += (_y - H)^2lower_xy -= _x * _ylower_x² -= _x^2lower_y² -= _y^2endL_u = score(upper_xy, upper_x², upper_y²)L_b = score(lower_xy, lower_x², lower_y²)L = L_u + L_bif L < L_bestL_best = Lendendend@printf "%0.20f\n" L_bestendmain()