Re: Favorite Star Wars film:

[webfiend]

I had to think about this one. It took so much work to think about it that I came up with a script to help me figure it out.

my $EHH = 0;  # A constant indicating indifference.

my $best_time = 0;
my $favorite = "";
my @episodes = what_were_the_names_again();

foreach my $movie (@episodes) { 
  next unless (released($movie));

  %scenes = watch($movie);
  my $opinion = $scenes{"fun"} +
                $scenes{"cool"} -
                $scenes{"awkward"} -
                $scenes{"midochlorians mentioned"};
  if ($opinion > $best_time) {
    $favorite  = $movie;
    $best_time = $opinion;
  }

  # Present a quick recap of how I felt about this episode.
  if ($opinion > $EHH) {
    print "$movie was pretty good.\n";
  }
  elsif ($opinion == $EHH) {
    print "$movie was okay.\n";
  }
  else {
    print "$movie kinda sucked.\n";
  }
}

print "My favorite would have to be $favorite.\n";

I'd have to say Episode 4 was my favorite according to this logic, but a more refined approach to calculating $opinion would be in order. For example, this calculation completely ignores appearances by my favorite cranky green muppet (besides Kermit).

Oh, man. I worry about myself sometimes.

Update: Updated the commentary to match the code. Whoops.

---

"All you need is ignorance and confidence; then success is sure."-- Mark Twain