Added transaction distance calculation
This commit is contained in:
parent
37e8f0b46a
commit
62881a0eda
5 changed files with 75 additions and 3 deletions
|
@ -40,7 +40,7 @@ my $expected_hours = {};
|
|||
sub increment_day {
|
||||
my ( $value, $day, $distance ) = @_;
|
||||
$value *= 100000;
|
||||
$distance //= 0;
|
||||
$distance //= 845;
|
||||
$expected_days->{$day} = {
|
||||
quantised => $day,
|
||||
sum_value => ($expected_days->{$day}->{sum_value} || 0) + $value,
|
||||
|
@ -52,7 +52,7 @@ sub increment_day {
|
|||
sub increment_hour {
|
||||
my ( $value, $day, $distance ) = @_;
|
||||
$value *= 100000;
|
||||
$distance //= 0;
|
||||
$distance //= 845;
|
||||
$expected_hours->{$day} = {
|
||||
quantised => $day,
|
||||
sum_value => ($expected_hours->{$day}->{sum_value} || 0) + $value,
|
||||
|
|
Reference in a new issue