-= Part 1 =
-{{{
+
+# Part 1
+
+
+[[!format txt """
#!/usr/bin/perl
while(<>)
next unless ($_[0] > 0 and $_[0] < 31);
$day = $_[0];
$spread = $_[1] - $_[2];
- unless (defined $min_spread)
+ unless (defined $min_spread)
{
$spread_day = $day;
$min_spread = $spread;
}
}
print $spread_day, "\n";
-}}}
+"""]]
-= Part 2 =
+# Part 2
-{{{
+
+[[!format txt """
#!/usr/bin/perl
while(<>)
}
}
print $spread_team, "\n";
-}}}
+"""]]
+
+# Part 3
-= Part 3 =
-{{{
+[[!format txt """
#!/usr/bin/perl
sub dm($$$$)
print "part1: ", dm("../K4Weather.txt", 0, 1, 2), "\n";
print "part2: ", dm("../K4Soccer.txt", 1, 6, 8), "\n";
-}}}
-----
-CategoryCodeSnippets
\ No newline at end of file
+"""]]
+
+
+ [[!tag CategoryCodeSnippets]]