我对代码高尔夫的尝试。
的问题找到最小值∑W_i*|X-X_i|简化为查找列表的加权中位数x[i]有重量w[i]（定义见下文）。你将如何用一个最短、最简单、最漂亮的程序来做到这一点？
这是我的代码最初的样子（解释在问题的答案简短版本作为下面的答案之一发布）。
#define zero(x) ( abs(x) < 1e-10 ) /* because == doesn't work for floats */
float sum = 0;
int i;
for (i = 0; i < n; i++)
sum += w[i];
while (sum > 0)
sum -= 2*w[--i];
right = x[i] // the rightmost minimum point
left = ( zero(sum) && zero(w[i]-w[i-1]) ) ? x[i-1] : right;
answer = (left + right) / 2;
（实际上，正如你看到的变量一样，它已经被大量优化了i and sum reused)
Rules
浮点数和整数：不同的语言有不同的浮点运算标准，所以我将问题重新表述为x[i] and w[i] to be integers如果您愿意，您可以返回答案值的两倍（始终为整数）。您可以返回、打印答案或将答案分配给变量。
加权中位数的定义和说明：
- 排序数组的中位数
x[i]长度n或者是x[n/2] or (x[n/2-1/2]+x[n/2+1/2])/2取决于是否n是奇数还是偶数
-
Median of unsorted array is the median of array after sort (true, but our array is sorted)
- 加权中位数
x[i]具有整数正权重w[i]被定义为较大数组的中位数，其中每次出现x[i]已更改为w[i]的出现次数x[i].
我希望看到什么
提出这个问题的原因之一是我认为最合适的语言将具有简单的数组求和和 lambda 迭代。我认为函数式语言可能是合理的，但我对此不确定 - 所以这是问题的一部分。我希望看到类似的东西
// standard function add := (a,b) :-> a + b
myreduce := w.reduce
with: add
until: (value) :-> 2*value >= (w.reduce with:add)
answer = x [myreduce from:Begin] + x [myreduce from:End]
不知道是否有任何语言可以做到这一点并且实际上更短。
测试数据
static int n = 10;
for (int j = 0; j < n; j++) {
w[j] = j + 1;
x[j] = j;
}
答案：6或12。
static int n = 9;
int w[n], x[n] ;
for (int j = 0; j < n; j++) {
w[j] = j + ((j<6) ? 1 : 0);
x[j] = j + 1;
}
答案：6.5或13。
