結果

問題 No.2438 Double Least Square
コンテスト
ユーザー abap34
提出日時 2023-08-12 00:27:34
言語 Julia
(2.11.2)
結果
TLE  
(最新)
AC  
(最初)
実行時間 -
コード長 1,540 bytes
コンパイル時間 290 ms
コンパイル使用メモリ 7,076 KB
実行使用メモリ 507,440 KB
最終ジャッジ日時 2024-10-01 17:34:17
合計ジャッジ時間 21,284 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample -- * 3
other AC * 10 TLE * 1 -- * 19
権限があれば一括ダウンロードができます

ソースコード

diff # 

using Printf

function solve(x::AbstractArray{Int}, y::AbstractArray{Int})
    if isempty(x)
        return 0
    end
    coef = sum(x .* y) / sum(x -> x^2, x)
    l = sum(x -> x^2, (y .- x .* coef))
    return l
end


function main()
    N = parse(Int, readline())
    H = parse(Int, readline())
    x = zeros(Int, N)
    y = zeros(Int, N)
    for i in 1:N
        x[i], y[i] = parse.(Int, split(readline()))
    end



    INF = 10^16
    slopes = zeros(Rational{Int}, N)
    for i in eachindex(x)
        if x[i] == 0
            slopes[i] = INF 
        else
            slopes[i] = (y[i] - (H // 2)) // x[i]
        end
    end


    slopes_perm = sortperm(slopes, rev=true)
    x_perm = sortperm(x)

    L_best = Inf    

    for i in eachindex(x)
        upper = slopes_perm[begin:i]
        lower = slopes_perm[i+1:end]
        for j in eachindex(x)
            left = Set(x_perm[begin:j])
            right = Set(x_perm[j+1:end])
            
            target_hu = (left ∩ upper) ∪ (right ∩ lower)
            target_hd = (left ∩ lower) ∪ (right ∩ upper)
            
            x_hu = getindex.(Ref(x), target_hu)
            y_hu = getindex.(Ref(y .- H), target_hu)

            l_hu = solve(x_hu, y_hu)

            x_hd = getindex.(Ref(x), target_hd)
            y_hd = getindex.(Ref(y), target_hd)

            l_hd = solve(x_hd, y_hd)
            
            L = l_hu + l_hd

            if L < L_best
                L_best = L
            end
        end
    end 


    @printf "%0.20f\n" L_best
end

main()
0