Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl 
use Readonly;
...
print "$temp \n"; # print 0

print $eq->[1] . "\n"; print 0
  2. or download this
    print "$temp \n"; 
# and
print $eq->[1] . "\n";
  3. or download this
    Readonly my $eq => [ 2 * $vars->{Y}, -2 * $vars->{X} * $vars->{Y} ];
### instead of
Readonly my $eq => [ 2 * Y, -2 * X * Y ];
  4. or download this
    print "$temp \n";   ## prints 40
# and
print $eq->[1] . "\n";  ## prints -800