Select Code to Download

sub print_page_x {
    my $page_number = $_[0];
...
    print end_form;
    print end_html;
}

Public class Poly
...
        denominator = c;
    }
}

public static Poly makeInteger(int i) {
    long [] l = {i};
    return new Poly("x", l, 1);
}

long [] one = {1,2, 3};
Poly p = new Poly("x", one, 1);
...
Poly integer = makeInteger(2);
Poly.print(p);
Poly.print(integer);

(1*x^0 + 2*x^2 + 3*x^2)/1
(2*x^0)/1
(2*x^0)/1

Input:

my @a1 = [
...
         { 'name' => 'Dave',
           'score' => 12 }
]

#! /usr/bin/perl

my %hash = (1 => 2,
...
    $sum += $n*$hash{$n};
}
print ($sum);