#!/usr/bin/perl
###########################################
# An welchen Wochentagen ist die
# Microsoft-Aktie am teuersten?
# Mike Schilli, 2002 (m@perlmeister.com)
###########################################
use warnings;
use strict;

use QuoteDB 'quotes.db';
use Date::Calc qw(Add_Delta_Days 
      Day_of_Week Language Decode_Language 
      Day_of_Week_to_Text);

my %per_dow;

Language(Decode_Language("Deutsch"));

for(my @date = (1995, 1, 1); 
    "@date" ne "2002 1 1";    
    @date = Add_Delta_Days(@date, 1)) {
    my $dow = Day_of_Week(@date);
    next if $dow >=6;
    my $p = ($per_dow{$dow} ||= []);
    $p->[0] += quote("MSFT", @date);
    $p->[1]++;
    $p->[2] = $p->[0] / $p->[1];
}

for my $dow (sort { $per_dow{$b}->[2] <=> 
                    $per_dow{$a}->[2] } 
                  keys %per_dow) {
    printf "%-10s: %.2f\n", 
           Day_of_Week_to_Text($dow),
           $per_dow{$dow}->[2];
}