Perl mod function

open(INFILE, “$ARGV[0]”) or die(“Cannot open file $_[0] for reading: $!”);

while(my $line = <INFILE>) {
chomp($line);
my @arguments = split(/,/,$line);
my $i = $arguments[1] ;
my $mul = $i;
my $j = $arguments[0];
my $subtract = 0;
my $done = 0;
$count = 2;

if($j < $i){
print $j.”\n”;
$done = 1;
}elsif($i eq $j){
print “0”.”\n”;
$done = 1;
}

while($done eq 0){
while($i <= $j){
$subtract = $i;
$i = $mul * $count;
$count++;
}
my $remainder = $j – $subtract;
if($remainder < $j){
print $remainder.”\n”;
$done = 1;
}else{
$j = $remainder;

}

}

}

close(INFILE);

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s