Blag

Am Dienstag ist es wieder über mich gekommen: Da ich mit dem Fahrrad zur Arbeit gefahren bin, war nichts mit singen. Also hab ich zum Zeitvertrieb wahllos nachgedacht. Ergebnis: Ich muss mal wieder was kleines sinnloses programmieren, ich hab noch nie einen Ascii-Art-Konverter geschrieben und Perl-Golfen könnte ich auch mal wieder.
Abends hab ich das dann umgesetzt und Zeichen um Zeichen hart gekämpft, bis das Ergebnis auf Signaturgröße geschrumpft war (genauer gesagt habe ich sogar 16 Zeichen übrig, das reicht, um meine Mailadresse noch unterzubringen).
Da ich bisher noch keine Postings nach de.comp.lang.perl.misc abgesetzt habe, wo ich das Ergebnis in meiner Signatur spazieren führen könnte, reibe ich es euch jetzt hier unter die Nase. Tadaa:

($a,$b,$c)=localtime time;sub a{int(31+sin($_[0]/57)*$_[1]).int(#mitch@cgarbs.de 
31-cos($_[0]/57)*$_[1])}for(3..50){$i{a($b*6,$_/3)}++;$i{a($c*30%360+$b/2,$_/5)} 
++}for(0..359){$i{a($_,19)}++;$i{a($_,16)}++if!($_%30)}for$y(6..26){for(11..52){ 
print((' ','"','o','8')[(exists$i{$_.$y*2})*2+exists$i{$_.($y*2-1)}])}print"\n"}

Das zu bauen hat Spaß gemacht. Richtig Spaß!
Ich kann verstehen, warum meine Mutter sich Sorgen um die Produktion zukünftiger Erben meinerseits macht...