aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Task/Permutation-test/PascalABC.NET/permutation-test.pas Normal file
View file

@ -0,0 +1,20 @@
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