sub print_page_x {
my $page_number = $_[0];
my $repeat = $_[1];
my $q_number = 1;
open(INPUT, "$page_number.txt") or exit_nicely("Cannot open the questions file");
print header;
print start_html(-title => "Page $page_number"); #could have a better title
# my $header = ;
# print h3("$header");
# my $instructions = ;
# print p("$instructions");
if ($repeat == 1)
{
print p('Please ensure you answer all the questions');
}
my $tmp = ;
# my @options = split(/,/, $tmp);
my @numbers;
for(my $i=1; $i <= $#options+1; $i++)
{
$numbers[$i-1] = $i;
}
# unshift @options, '';
print start_table();
print startform( -method => 'post',
-action => 'foo.cgi');
# print start_Tr();
# foreach (@options)
# {
# print th($_);
# }
# print end_Tr;
while ()
{
print start_Tr();
print td("$_");
foreach (@numbers)
{
print start_td({-align => 'center'},"$_");
print radio_group( -name => "$page_number.$q_number",
-value => $_,
-default => '-',
-labels => {$_ => ''});
print end_td;
}
print end_Tr;
$q_number++;
}
print end_table;
my $next_page = $page_number + 1;
print "";
#this is somewhat of a hack
print submit( -name=>'submit',
-value=>'Submit');
print end_form;
print end_html;
}
####
Public class Poly
{
private static String variableName;
private static long [] coeffs;
private static long denominator;
public Poly(String a, long [] b, long c) {
variableName = a;
coeffs = b;
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.print(p);
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' => 'Al',
'score' => 17 },
{ 'name' => 'Bert',
'score' => 20 },
{ 'name' => 'Cindy',
'score' => 10 }
]
my @a2 = [
{ 'name' => 'Al',
'score' => 5 },
{ 'name' => 'Bert',
'score' => 7 }
{ 'name' => 'Dave',
'score' => 12 }
]
Output:
my @total = [
{ 'name' => 'Al',
'score' => 22 },
{ 'name' => 'Bert',
'score' => 27 },
{ 'name' => 'Cindy',
'score' => 10 },
{ 'name' => 'Dave',
'score' => 12 }
]
##
##
#! /usr/bin/perl
my %hash = (1 => 2,
2 => 4,
3 => 6);
my $sum = 0;
foreach my $n(keys %hash) {
$sum += $n*$hash{$n};
}
print ($sum);