round.pl

#!/usr/bin/perl

use POSIX;

sub round {
	my $num = shift;
	my $by = shift;

	my $half = ceil($by / 2);
	if (($num % $by) >= $half) {
		return ceil ($num/$by) * $by;
	} else {
		return floor ($num/$by) * $by;
	}
}

if (round (43, 5) == 45) {print "PASS\n"} else {print "FAIL\n"};
if (round (46, 5) == 45) {print "PASS\n"} else {print "FAIL\n"};
if (round (47, 5) == 45) {print "PASS\n"} else {print "FAIL\n"};
if (round (45, 5) == 45) {print "PASS\n"} else {print "FAIL\n"};
if (round (42, 5) == 40) {print "PASS\n"} else {print "FAIL\n"};