in reply to Re^3: Input data problem
in thread Input data problem

Great, thanks a lot. that helped. One more thing for this: 
my $data = <STDIN>;
my (@data) = split (" ", $data);

my $n = shift (@data);
my $m = shift (@data);
my $a = shift (@data);

my $ma = $m/$a;
my $na = $n/$a;

if (int($ma) != $ma) {
    $ma = int($ma) +1;          
}

if (int($na) != $na) {
    $na = int($na) +1; 
}

$x = int($ma*$na);
print $x;

[download]

#This script solves the problem of counting the amount of a*a sized block to cover the surface area of the city square, sized n*m.

When i check n = 1000000000, m = 1000000000, a = 1 i get a result x = 1e+18 instead of 1000000000000000000, despite the fact that i use int operator. could anyone help with printing the exact number?

thanks in advance, the rest cases pass ok.

Replies are listed 'Best First'.
Re^5: Input data problem
by choroba (Cardinal) on Jan 14, 2014 at 13:33 UTC
    Integer has an upper limit. Perl automatically converts to float if integer cannot be used. I was able to get the desired output with bigint: 
    #!/usr/bin/perl
use warnings;
use strict;

my ($n, $m, $i) = split ' ', <>;
my $ma = $m / $i;
my $na = $n / $i;
$ma = int($ma) + 1 if int $ma != $ma;
$na = int($na) + 1 if int $na != $na;

use bigint;
my $x = int($ma * $na);
print 0 + $x, "\n";

    [download]
    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]
Re^5: Input data problem
by MidLifeXis (Monsignor) on Jan 14, 2014 at 13:31 UTC
[reply]

In Section Seekers of Perl Wisdom