9 next unless ($_[0] > 0 and $_[0] < 31);
\r
11 $spread = $_[1] - $_[2];
\r
12 unless (defined $min_spread)
\r
15 $min_spread = $spread;
\r
17 if ($spread <= $min_spread)
\r
20 $min_spread = $spread;
\r
23 print $spread_day, "\n";
\r
34 next unless ($_[0] > 0 and $_[0] < 21);
\r
36 $spread = abs($_[6] - $_[8]);
\r
37 unless (defined $min_spread)
\r
39 $spread_team = $team;
\r
40 $min_spread = $spread;
\r
42 if ($spread <= $min_spread)
\r
44 $spread_team = $team;
\r
45 $min_spread = $spread;
\r
48 print $spread_team, "\n";
\r
59 my $label_col = shift;
\r
60 my $alpha_col = shift;
\r
61 my $beta_col = shift;
\r
63 my ($spread_label, $min_spread) = ("", 100000);
\r
65 open (IN, "<$file");
\r
69 next unless ($_[$alpha_col] =~ /^[0-9]+/);
\r
70 next unless ($_[$beta_col] =~ /^[0-9]+/);
\r
71 my $label = $_[$label_col];
\r
72 my $spread = abs($_[$alpha_col] - $_[$beta_col]);
\r
73 unless (defined $min_spread)
\r
76 $spread_label = $label;
\r
77 $min_spread = $spread;
\r
79 if ($spread <= $min_spread)
\r
81 $spread_label = $label;
\r
82 $min_spread = $spread;
\r
89 print "part1: ", dm("../K4Weather.txt", 0, 1, 2), "\n";
\r
90 print "part2: ", dm("../K4Soccer.txt", 1, 6, 8), "\n";
\r