Select Code to Download

#! perl -slw
use strict;
...
}

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

unsigned int f( unsigned int a ) {
  unsigned int i, term, sum;
...
  }
  return i;
}