Here is a Java port of this code(line by line) :
package org.home.lottery.common.utilities;
import java.math.BigDecimal;
import java.util.ArrayList;
import java.util.Arrays;
import java.util.List;
public class CombinatorialIndex {
private ArrayList<List<Integer>> allCombos = new ArrayList<List<Integer>>();
public static void main(String args[]) {
CombinatorialIndex ci = new CombinatorialIndex();
ci.setupData();
ci.print();
}
public void print() {
for ( List<Integer>combo:allCombos) {
BigDecimal combin2Index = Combin2Index(49, 6, combo);
System.out.println(combin2Index);
}
}
public void setupData() {
allCombos.add(Arrays.asList(new Integer[]{1,2,3,4,5,6}));
allCombos.add(Arrays.asList(new Integer[]{1,2,3,4,5,7}));
allCombos.add(Arrays.asList(new Integer[]{1,2,3,4,5,8}));
allCombos.add(Arrays.asList(new Integer[]{1,2,3,4,15,20}));
allCombos.add(Arrays.asList(new Integer[]{1,2,3,4,18,24}));
allCombos.add(Arrays.asList(new Integer[]{1,2,3,4,21,37}));
allCombos.add(Arrays.asList(new Integer[]{6,10,22,33,45,47}));
allCombos.add(Arrays.asList(new Integer[]{44,45,46,47,48,49}));
allCombos.add(Arrays.asList(new Integer[]{1,14,17,29,31,37}));
allCombos.add(Arrays.asList(new Integer[]{10,16,21,27,33,46}));
allCombos.add(Arrays.asList(new Integer[]{3,7,9,13,45,49}));
allCombos.add(Arrays.asList(new Integer[]{6,9,29,30,31,34}));
allCombos.add(Arrays.asList(new Integer[]{1,8,15,23,31,48}));
allCombos.add(Arrays.asList(new Integer[]{7,26,31,38,42,43}));
allCombos.add(Arrays.asList(new Integer[]{7,29,35,41,45,49}));
allCombos.add(Arrays.asList(new Integer[]{5,8,10,16,17,33}));
allCombos.add(Arrays.asList(new Integer[]{13,15,19,21,26,28}));
allCombos.add(Arrays.asList(new Integer[]{7,8,12,24,36,43}));
allCombos.add(Arrays.asList(new Integer[]{1,7,10,12,13,43}));
allCombos.add(Arrays.asList(new Integer[]{8,13,30,36,44,47}));
allCombos.add(Arrays.asList(new Integer[]{16,19,21,26,33,47}));
allCombos.add(Arrays.asList(new Integer[]{4,5,24,27,32,49}));
allCombos.add(Arrays.asList(new Integer[]{3,17,25,28,29,31}));
allCombos.add(Arrays.asList(new Integer[]{3,23,24,27,35,36}));
allCombos.add(Arrays.asList(new Integer[]{7,9,34,37,47,48}));
allCombos.add(Arrays.asList(new Integer[]{17,22,31,35,41,47}));
allCombos.add(Arrays.asList(new Integer[]{3,7,13,24,41,47}));
allCombos.add(Arrays.asList(new Integer[]{1,10,16,25,29,46}));
allCombos.add(Arrays.asList(new Integer[]{3,16,17,34,42,47}));
allCombos.add(Arrays.asList(new Integer[]{12,16,34,36,38,40}));
allCombos.add(Arrays.asList(new Integer[]{8,9,12,18,34,37}));
allCombos.add(Arrays.asList(new Integer[]{3,5,6,16,29,45}));
allCombos.add(Arrays.asList(new Integer[]{4,5,6,7,12,45}));
allCombos.add(Arrays.asList(new Integer[]{1,2,11,18,37,42}));
allCombos.add(Arrays.asList(new Integer[]{1,7,9,22,45,46}));
allCombos.add(Arrays.asList(new Integer[]{5,16,17,24,42,45}));
allCombos.add(Arrays.asList(new Integer[]{9,10,20,25,27,35}));
allCombos.add(Arrays.asList(new Integer[]{3,7,13,18,19,49}));
allCombos.add(Arrays.asList(new Integer[]{1,6,13,18,23,47}));
allCombos.add(Arrays.asList(new Integer[]{1,2,12,21,29,44}));
allCombos.add(Arrays.asList(new Integer[]{12,13,16,24,46,48}));
allCombos.add(Arrays.asList(new Integer[]{12,19,23,37,40,43}));
allCombos.add(Arrays.asList(new Integer[]{3,4,8,12,47,49}));
allCombos.add(Arrays.asList(new Integer[]{7,16,26,32,35,47}));
allCombos.add(Arrays.asList(new Integer[]{6,11,12,23,24,47}));
allCombos.add(Arrays.asList(new Integer[]{5,9,25,30,32,36}));
allCombos.add(Arrays.asList(new Integer[]{4,6,21,28,29,40}));
allCombos.add(Arrays.asList(new Integer[]{11,13,15,38,43,47}));
allCombos.add(Arrays.asList(new Integer[]{12,14,19,23,32,39}));
}
public BigDecimal Fact(Integer N) {
BigDecimal Fact;
if (N <= 1){
Fact = new BigDecimal(1);
} else {
Fact = new BigDecimal(N).multiply(Fact(N - 1));
}
return Fact;
}
public BigDecimal Perm(Integer N, Integer R) {
Integer a;
BigDecimal b;
BigDecimal Perm;
b = new BigDecimal(1);
if(N < R) {
Perm = new BigDecimal(0);
}else {
for( a = (N - (R - 1)); a <= N; a++) {
b = b.multiply(new BigDecimal(a));
}
Perm = b;
}
return Perm;
}
public BigDecimal Comb(Integer N,Integer R) {
BigDecimal Comb;
if (N < R) {
Comb = new BigDecimal(0);
} else {
Comb = Perm(N, R).divide(Fact(R));
}
return Comb;
}
public BigDecimal Cdist(Integer N, Integer R, Integer C, Integer Z) {
BigDecimal Cdist;
if ((Z < C) || (Z > (N - (R - C))) || (Z > N) || (C > R) || (N < 1) || (R < 1) || (C < 1) || (Z < 1)) {
Cdist = new BigDecimal(0);
} else {
Cdist = Comb((Z - 1), (C - 1)).multiply( Comb((N - Z), (R - C)));
}
return Cdist;
}
public BigDecimal fColumnSum(Integer N, Integer R, Integer Z) {
//Integer a;
BigDecimal ColumnSum;
BigDecimal fColumnSum = null;
if (Z < 1) {
fColumnSum = new BigDecimal(0);
} else if ((Z >= 1) && (Z < (N - (R - 1)))) {
ColumnSum = new BigDecimal(0);
for(int a = 1; a <=Z; a++) {
ColumnSum = ColumnSum.add(Cdist(N, R, 1, a));
}
fColumnSum = ColumnSum;
}
else if (Z >= (N - (R - 1))) {
fColumnSum = Comb(N, R);
}
return fColumnSum;
}
public BigDecimal Combin2Index(Integer N, Integer R, List<Integer> combo) {
BigDecimal Combin2Index;
//Integer a;
BigDecimal fSum;
Boolean NotInAscendingOrder;
Boolean NotInPool;
NotInAscendingOrder = false;
NotInPool = false;
if(combo.size() != R) {
Combin2Index = new BigDecimal(-1);
return Combin2Index;
}
for(int a = 0; a < R-1; a++) {
if(a < R-1) {
if (combo.get(a) >= combo.get(a + 1)) {
NotInAscendingOrder = true;
}
}
if ((combo.get(a) < 1) || (combo.get(a) > N)) {
NotInPool = true;
}
}
if (NotInAscendingOrder || NotInPool) {
Combin2Index = new BigDecimal(-1);
return Combin2Index;
}
fSum = new BigDecimal(1);
for(int a = 0; a < R; a++) {
if (a == 0) {
fSum = fSum.add(fColumnSum(N, R, combo.get(a)-1));
} else {
fSum = fSum.add(fColumnSum((N - combo.get(a-1)), (R - a), (combo.get(a) - (combo.get(a - 1)) - 1)));
}
}
Combin2Index = fSum;
return Combin2Index;
}
}
Note : the code is not yet re-factored(not even variables have been renamed...). Combination to index works perfectly. I am still porting Index to combination.
I used Debug.Print in each method in VBA and System.out.println in each method in Java. Both matched...
Thanks Jade.
Native American Eagle SunMN
