diff options
| author | Bradley M. Kuhn <bkuhn@ebb.org> | 2013-01-08 16:38:24 -0500 |
|---|---|---|
| committer | Bradley M. Kuhn <bkuhn@ebb.org> | 2013-02-18 14:08:45 -0500 |
| commit | 18d2867a6315562b4f4588ebf4fc58adf1fb9acf (patch) | |
| tree | 0bc0db5bb4ca93c6dd6ff45f9451e2192c89362e /contrib | |
| parent | b1b807fcfab49b9682db79b6b2fed000fc230f90 (diff) | |
| download | fork-ledger-18d2867a6315562b4f4588ebf4fc58adf1fb9acf.tar.gz fork-ledger-18d2867a6315562b4f4588ebf4fc58adf1fb9acf.tar.bz2 fork-ledger-18d2867a6315562b4f4588ebf4fc58adf1fb9acf.zip | |
Rename the function to note it's the dynamic programming one.
Diffstat (limited to 'contrib')
| -rwxr-xr-x | contrib/non-profit-audit-reports/bank-reconcilation.plx | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/non-profit-audit-reports/bank-reconcilation.plx b/contrib/non-profit-audit-reports/bank-reconcilation.plx index f18f43dc..669a25b0 100755 --- a/contrib/non-profit-audit-reports/bank-reconcilation.plx +++ b/contrib/non-profit-audit-reports/bank-reconcilation.plx @@ -16,7 +16,7 @@ my $DEBUG = 0; my $LEDGER_BIN = "/usr/local/bin/ledger"; ###################################################################### -sub SubSetSumSolver ($$$) { +sub DynamicProgrammingSubSetSumSolver ($$$) { my($numberList, $totalSought, $extractNumber) = @_; my($P, $N) = (0, 0); @@ -148,7 +148,7 @@ while ($startDate ge $earliestStartDate) { if (@entries == 1) { @solution = ( (abs($entries[0]->{amount}) == abs($balanceSought)), \@entries); } else { - @solution = SubSetSumSolver(\@entries, ConvertTwoDigitPrecisionToInteger($balanceSought), + @solution = DynamicProgrammingSubSetSumSolver(\@entries, ConvertTwoDigitPrecisionToInteger($balanceSought), \&ConvertTwoDigitPrecisionToIntegerInEntry); } if ($VERBOSE) { |