結果
問題 | No.2438 Double Least Square |
ユーザー |
![]() |
提出日時 | 2023-08-13 02:05:27 |
言語 | Julia (2.11.2) |
結果 |
AC
|
実行時間 | 1,997 ms / 2,000 ms |
コード長 | 2,591 bytes |
コンパイル時間 | 397 ms |
コンパイル使用メモリ | 6,944 KB |
実行使用メモリ | 339,792 KB |
最終ジャッジ日時 | 2024-10-01 17:33:54 |
合計ジャッジ時間 | 65,234 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 30 |
ソースコード
using Printffunction score(xy, x², y²)if x² == 0return 0endcoef = xy / x²return y² + (coef^2 * x²) - (2coef * xy)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()))endINF = 10^16slopes = zeros(Rational{Int}, N)for i in eachindex(x)if x[i] == 0slopes[i] = INFelseslopes[i] = (y[i] - (H // 2)) // x[i]endendslopes_perm = sortperm(slopes, rev=true)x_perm = sortperm(x, rev=true)# 全部lowerxy = 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 = getindex.(Ref(x), upper)upper_y = getindex.(Ref(y .- H), upper)upper_xy = sum(upper_x .* upper_y)upper_x² = sum(upper_x .* upper_x)upper_y² = sum(upper_y .* upper_y)lower_x = getindex.(Ref(x), lower)lower_y = getindex.(Ref(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]if new_idx in upper_setupper_xy -= x[new_idx] * (y[new_idx] - H)upper_x² -= x[new_idx]^2upper_y² -= (y[new_idx] - H)^2lower_xy += x[new_idx] * y[new_idx]lower_x² += x[new_idx]^2lower_y² += y[new_idx]^2elseupper_xy += x[new_idx] * (y[new_idx] - H)upper_x² += x[new_idx]^2upper_y² += (y[new_idx] - H)^2lower_xy -= x[new_idx] * y[new_idx]lower_x² -= x[new_idx]^2lower_y² -= y[new_idx]^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()