Select Code to Download

CODE:

...
1499 -> 1500
1500 -> 1500
1501 -> 1750

sub roundup {
        my ($n, $d) = @_;
        return ( int( $n / $d ) + 1 ) * $d;
}