Submission #23371700

Source Code Expand

1
2
3
4
5
6
7
8
9
10
11
12
13
N,*A = $<.read.split.map(&:to_i)
l,r = 0,A.max.fdiv(2)
50.times{
  m1,m2 = l+(r-l)/3,l+2*(r-l)/3
  s1,s2 = [m1,m2].map{|m| mm=m*2; A.sum{|a| m+a-[a,mm].min } }
  if s1<=s2
    r = m2
  else
    l = m1
  end
}
p A.sum{|a| l+a-[a,l*2].min }/N
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

N,*A = $<.read.split.map(&:to_i)
l,r = 0,A.max.fdiv(2)
50.times{
	m1,m2 = l+(r-l)/3,l+2*(r-l)/3
	s1,s2 = [m1,m2].map{|m| mm=m*2; A.sum{|a| m+a-[a,mm].min } }
	if s1<=s2
		r = m2
	else
		l = m1
	end
}
p A.sum{|a| l+a-[a,l*2].min }/N

Submission Info

Judge Result