给定（以任何方式）排序的浮点数据集，返回（以任何方式并在正确值的1‰之内）四分位数均值。
注意：如果数据集大小不能一分为四，则必须权衡子集共享的数据点。请参阅下面的示例评估2。
给定{1，3，4，5，6，6，7，7，8，8，9，38}
给定{1、3、5、7、9、11、13、15、17}
Answers:
4Y"G"6L)]Ym
输入是水平向量，格式为
[1, 3, 4, 5, 6, 6, 7, 7, 8, 8, 9, 38]
要么
[1 3 4 5 6 6 7 7 8 8 9 38]
4Y" % Input horizontal vector implicitly. Repeat each element 4 times (run-length
% decoding). The resulting array is still sorted.
G" % Push input, for each: repeat as many times as the input size
6L) % Remove first and last elements, by applying the index "2:end-1"
] % End for each
Ym % Compute mean. Display implicitly
6L)删除第一个和最后一个元素？当我这样做时，它会推入一堆复数。
[2, -1+i]当用作指标时2:end-1
}vg","aS:10sB;aM4aRAsOal`,4nD,`aG0AaGal`NdE`AaL1AfL:nA;alaF,nDtSsP
使用与@LeakyNun的答案相同的算法。
} enable variables b, e, and g
vg read a line of input into b
","aS split on commas (in-place)
:10sB;aM convert each element in resulting array to number ("frombase(10)-map")
4aR repeat the array 4 times
AsO sort the array
al take the length and put it in e without consuming b (the array)
`, swap b and e, then move e to g; now b=length g=array
4nD divide b by 4 (4 was stored in e, which is why the array was moved)
,` move the array and length/4 back to their original positions
aG split the array into groups of length (length/4)
0AaG take all elements with index >0 (i.e. remove the first element)
al store the length of the new array in e again
`NdE` bring it up to b, decrement, and put it back
AaL take all elements with index <length-1 (i.e. remove last)
1AfL flatten the array 1 level deep
:nA; push a block that adds two numbers (to e)
al store the length of this new array in g
aF fold b over e (sum the numbers)
, move g (the length) into e
nD divide the sum by the length, resulting in the average
tSsP to-string and print
:3jo@4brbcLl/N,L+:N*.
这基本上是@LeakyNun的Pyth答案算法。
:3j Append 3 copies of the input to itself
o@4 Sort and split in 4 lists of equal length
brb Remove the head and the tail of the list of lists
cL Concatenate the 2 sublists into a list L
l/N, N is the inverse of the length of L
L+:N*. Output is the product of N and the sum of the elements of L
唯一的小技巧是乘以长度的倒数而不是除以长度，因为2个整数之间的除法是整数除法。
@(x)mean(reshape(~~(1:4)'*x,[],4)(:,2:3)(:))
这定义了一个匿名函数。
输入是水平向量。
首先将输入的水平向量乘以*4的列向量（用建~~(1:4)'）乘以（）。结果是一个四列矩阵，其中每一行都是输入向量的副本。然后，在保持元素线性顺序的同时，将其重塑为4列矩阵（reshape(...,[],4)）。保留中心两列（(:,2:3)）并线性化为单个列（(:)），然后计算平均值（mean(...)）。
[x;x;x;x]而不是~~(1:4)'*x
@(x)mean([x;x;x;x](:)((b=numel(x))+1:3*b))还要少2个字节。这就是我想出的原因，但基本上与您的方法相同。
IQM←(+/÷≢)≢↓-∘≢↓4∘/4∘/ 每个元素一式四份
-∘≢↓ 删除与参数中的元素一样多的尾随元素
≢↓ 删除与参数中的元素一样多的前导元素
(… ) 应用以下默认功能：
+/ 总和
÷ 除以
≢ 理货
这样的java很冗长！
float m(float[]n){float r=0;int l=n.length,i=l/4;r-=(n[i])*(l%4)/4;r+=n[i*3]*(4-(l%4))/4;for(;i<l*3/4;r+=n[i],i++);return r/l*2;}
/**
*
* @author rohan
*/
public Golf{
float m(float[]n){
//declarations
float r=0;
int x,i=0,l=n.length;
//sum the array
for(float m:n){r+=m;}
//remove the excess
for(;i<l/4;r-=n[i]+n[l-i-1],i++);
//weight the quartiles
r-=(n[l/4]+n[l*3/4])*(l%4)/4;
//return the sum/length but multiply by two since only half of the set is averaged
return r/l*2;
}
static void interQuartileMean(float... set){
System.out.println(new Golf().m(set));
}
/**
* @param args the command line arguments
*/
public static void main(String[] args) {
//test cases pass with flying colours
interQuartileMean(1, 3, 4, 5, 6, 6, 7, 7, 8, 8, 9, 38);
interQuartileMean(1, 3, 5, 7, 9, 11, 13, 15, 17);
}
}
mean(n,0.25)
假设n输入向量为标准R形式n=c(1, 2, 3, ...)。
毫不奇怪，因为R可以被视为“统计计算的语言”，并且具有许多统计内置函数。
更新。由于rturnbull节省了6个字节，因为trim默认情况下它是第一个可选参数！
测试用例：
a <- c(1, 3, 4, 5, 6, 6, 7, 7, 8, 8, 9, 38)
b <- c(1, 3, 5, 7, 9, 11, 13, 15, 17)
mean(a,trim=0.25) # Returns 6.5
mean(b,trim=0.25) # Returns 9
trim是默认的第二个参数，因此无需命名。0.25可以缩短为.25或1/4。这样可以节省六个字节。