#! perl -slw
use strict;

sub f {
    my $a = shift;
    my $term = 1;
    my $sum = 1;
    my $i;

    for( $i=0; $sum <= $a; $i++) {
        $term = $term + 2;
        $sum = $sum + $term;
#        print "i:$i term:$term sum:$sum";
    }
    return $i;
}

print "f($_) = ", f( $_ ) for -4 .. 36;

##</code><code>##

unsigned int f( unsigned int a ) {
  unsigned int i, term, sum;
  
  term=1; sum=1;
  for (i=0; sum <= a; i++) {
       term=term+2;
       sum=sum+term;
  }
  return i;
}