21 lines
566 B
ObjectPascal
21 lines
566 B
ObjectPascal
function permutationTest(a, b: array of integer): real;
|
|
begin
|
|
var ab := a + b;
|
|
var Tobs := a.Sum;
|
|
var under := 0;
|
|
var count := 0;
|
|
foreach var perm in ab.Combinations(a.Length) do
|
|
begin
|
|
if perm.Sum <= Tobs then under += 1;
|
|
count += 1;
|
|
end;
|
|
result := under * 100 / count;
|
|
end;
|
|
|
|
begin
|
|
var treatmentGroup := [85, 88, 75, 66, 25, 29, 83, 39, 97];
|
|
var controlGroup := [68, 41, 10, 49, 16, 65, 32, 92, 28, 98];
|
|
var under := permutationTest(treatmentGroup, controlGroup);
|
|
write('under= ', under:2:2, '%, over= ', (100 - under):2:2, '%');
|
|
end
|