d5 = 6
nct(6) = nct(6) + 1
FOR d4 = d5 TO 1 STEP -1
IF nct(d4) < 2 THEN
nct(d4) = nct(d4) + 1
FOR d3 = d4 TO 1 STEP -1
IF nct(d3) < 2 THEN
nct(d3) = nct(d3) + 1
FOR d2 = d3 TO 1 STEP -1
IF nct(d2) < 2 THEN
nct(d2) = nct(d2) + 1
FOR d1 = d2 TO 1 STEP -1
IF nct(d1) < 2 THEN
nct(d1) = nct(d1) + 1
PRINT d1; d2; d3; d4; d5
numCt = numCt + 1
IF numCt MOD 40 = 0 THEN
DO: LOOP UNTIL INKEY$ > ""
PRINT
END IF
nct(d1) = nct(d1) - 1
END IF
NEXT
nct(d2) = nct(d2) - 1
END IF
NEXT
nct(d3) = nct(d3) - 1
END IF
NEXT
nct(d4) = nct(d4) - 1
END IF
NEXT
PRINT numCt
finds 75 possibilities:
4 5 5 6 6
3 5 5 6 6
2 5 5 6 6
1 5 5 6 6
4 4 5 6 6
3 4 5 6 6
2 4 5 6 6
1 4 5 6 6
3 3 5 6 6
2 3 5 6 6
1 3 5 6 6
2 2 5 6 6
1 2 5 6 6
1 1 5 6 6
3 4 4 6 6
2 4 4 6 6
1 4 4 6 6
3 3 4 6 6
2 3 4 6 6
1 3 4 6 6
2 2 4 6 6
1 2 4 6 6
1 1 4 6 6
2 3 3 6 6
1 3 3 6 6
2 2 3 6 6
1 2 3 6 6
1 1 3 6 6
1 2 2 6 6
1 1 2 6 6
4 4 5 5 6
3 4 5 5 6
2 4 5 5 6
1 4 5 5 6
3 3 5 5 6
2 3 5 5 6
1 3 5 5 6
2 2 5 5 6
1 2 5 5 6
1 1 5 5 6
3 4 4 5 6
2 4 4 5 6
1 4 4 5 6
3 3 4 5 6
2 3 4 5 6
1 3 4 5 6
2 2 4 5 6
1 2 4 5 6
1 1 4 5 6
2 3 3 5 6
1 3 3 5 6
2 2 3 5 6
1 2 3 5 6
1 1 3 5 6
1 2 2 5 6
1 1 2 5 6
3 3 4 4 6
2 3 4 4 6
1 3 4 4 6
2 2 4 4 6
1 2 4 4 6
1 1 4 4 6
2 3 3 4 6
1 3 3 4 6
2 2 3 4 6
1 2 3 4 6
1 1 3 4 6
1 2 2 4 6
1 1 2 4 6
2 2 3 3 6
1 2 3 3 6
1 1 3 3 6
1 2 2 3 6
1 1 2 3 6
1 1 2 2 6
|
Posted by Charlie
on 2010-12-22 02:55:52 |