|
Lines 139-145
sub _test_combinations {
Link Here
|
| 139 |
# C1 => P1 + P2 + C1 + C2 ( - C1 ) |
139 |
# C1 => P1 + P2 + C1 + C2 ( - C1 ) |
| 140 |
# C2 => P1 + P2 + C1 + C2 ( - C2 ) |
140 |
# C2 => P1 + P2 + C1 + C2 ( - C2 ) |
| 141 |
|
141 |
|
| 142 |
# 3 params, count from 0 to 6 in binary ( 3 places ) to get the set of switches, then do that 4 times, one for each parent and child |
142 |
# 3 params, count from 0 to 7 in binary ( 3 places ) to get the set of switches, then do that 4 times, one for each parent and child |
| 143 |
for my $i ( 0 .. 7 ) { |
143 |
for my $i ( 0 .. 7 ) { |
| 144 |
my ( $only_this_guarantor, $include_guarantors, $include_this_patron ) |
144 |
my ( $only_this_guarantor, $include_guarantors, $include_this_patron ) |
| 145 |
= split '', sprintf( "%03b", $i ); |
145 |
= split '', sprintf( "%03b", $i ); |
| 146 |
- |
|
|