#!/usr/bin/perl
##
## radice.pl <x>
## Radice quadrata.
##
#
# &radice (<x>)
#
sub radice
{
    local ($x) = $_[0];
    #
    local ($z) = 0;
    local ($t) = 0;
    #
    while (1)
      {
        $t = $z * $z;
        #
        if ($t > $x)
          {
            #
            # È stato superato il valore massimo.
            #
            $z--;
            return $z;
          }
        #
        $z++;
      }
    #
    # Teoricamente, non dovrebbe mai arrivare qui.
    #
}
##
## Inizio del programma.
##
$x = $ARGV[0];
#
$z = &radice ($x);
#
print "radq ($x) = $z\n";
#
