Nachdem meine Kollegen schon letztes Jahr eine Bundesliga-Tipprunde aufgemacht haben, ich mich ja kein Stück für Fußball interessiere und man allerorten hört, dass immer die Leute ohne Ahnung gewinnen (ne, Olli?), wollte ich da schon seit einiger Zeit mal mitmachen. Jetzt habe ich genau den richtigen Zeitpunkt Das ganze ist ein kleines Experiment: Was ist besser - sich ständig zu informieren und Gehirnschmalz in die Ausarbeitung der Tipps zu stecken, oder ist das ganze am Ende doch nur ein Glücksspiel und man kann zufällige Ergebnisse tippen? Um mich von den Kollegen abzugrenzen und meinen Aufwand in Grenzen zu halten, habe ich natürlich die zweite Variante gewählt.
Ich kann natürlich nicht einfach einen Zufallsgenerator nehmen und wahllos Zahlenpärchen aus dem Bereich 0-10 generieren. Dass ein Ergebnis wie 0:0 oder 1:1 wahrscheinlicher ist als ein 7:3, leuchtet nämlich sogar mir ein. Also habe ich ein kleines Programm geschrieben, dass die Spielergebnisse der letzten drei Saisons nimmt, die vom letzten Jahr doppelt gewichtet und aus der Menge der Spielergebnisse 306 auswählt, die ich dann dieses Jahr tippe. Das ganze hat dann keinerlei Bezug zu irgendeiner Mannschaft, berücksichtigt aber immerhin die häufigsten Torverhältnisse und, wenn es das denn gibt, dass Heimsiege häufiger sind als Auswärtssiege.
Nur bei den Bonusfragen (Herbstmeister, erster Trainerwechsel, ...) stehe ich natürlich im Wald.
# $Id: Makefile,v 1.1 2007/08/02 19:28:45 mitch Exp $
all: liste
clean:
rm -f *.daten
rm -f liste
rm -f *~
liste: 2006.daten 2005.daten 2004.daten
cat 2006.daten 2006.daten 2005.daten 2004.daten | ./zuffi.pl > liste
%.daten:
./saisondaten.pl $(subst .daten,,$@) > $@
#!/usr/bin/perl -w
# $Id: saisondaten.pl,v 1.1 2007/08/02 19:28:42 mitch Exp $
use strict;
my $jahr = shift;
unless (defined $jahr) {
print STDERR "usage: saisondaten.pl jahr\n";
exit 1;
}
my $URL='http://www.dfb.de/index.php?id=502040&action=showDay&lang=D&liga=bl1m&saison='.
substr($jahr,2).'&saisonl='.$jahr.'&cHash=eb420847d4&spieltag=';
foreach my $tag (1..34) {
open SPIELTAG, "wget -qO- \"$URL$tag\"|" or die "can't open SPIELPLAN $tag: $!";
while (my $line = <SPIELTAG>) {
if ($line =~ /<nobr>(\d+:\d+)\s+\(\d+:\d+\)<\/nobr>/) {
print "$1\n";
}
}
close SPIELTAG or die "can't close SPIELPLAN $tag: $!";
}
#!/usr/bin/perl -w
# $Id: zuffi.pl,v 1.1 2007/08/02 19:28:31 mitch Exp $
use strict;
my $total = 18 * 18 - 18;
my @random = <>;
# fisher_yates_shuffle
my $i = @random;
while (--$i) {
my $j = int rand ($i+1);
@random[$i,$j] = @random[$j,$i];
}
splice @random, $total; print @random;
Es ist vollbracht! Ich habe auf einen Schlag alle 34 Spieltage getippt. Nur 2x musste ich von meiner Zufallsliste abweichen, da nur maximal sechs gleiche Tendenzen (Heimsieg, Unentschieden, Auswärtssieg) an einem Spieltag erlaubt sind und der Zufallsgenerator zufällig etwas unzufällig war. Am Ende der Saison verkünde ich dann hier das Ergebnis.
