1 | #!perl | 1 | #!perl |
---|---|---|---|
2 | |||
2 | use List::Util qw/min/; | 3 | use List::Util qw/min/; |
3 | 4 | ||
4 | my $WC_BASE_VALUE = 15 * 5000; # 15r | 5 | my $WC_BASE_VALUE = 15 * 5000; # 15r |
5 | my $AC_BASE_VALUE = 40 * 5000; # 40r | 6 | my $AC_BASE_VALUE = 40 * 5000; # 40r |
6 | my $DAM_BASE_VALUE = 200; # 4p | 7 | my $DAM_BASE_VALUE = 200; # 4p |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |