Thread QOTW 23 'perl' quiz (13 answers)
Opened by Crian at 2004-09-02 11:38

Crian
 2004-09-02 17:29
#49826 #49826
User since
2003-08-04
5871 Artikel
ModeratorIn
[Homepage]
user image
So, ich hab gerade mal eine nicht-Golf-Lösung für QOTW geschrieben. Wann kann man die da einreichen *rechne*

Wed, 01 Sep 2004 12:50:14 -0400
+ 60 Stunden (= 2,5 Tage)
=> Sat, 04 Sep 2004 0:50:14 -0400

In unsere Zeitzone übersetzt: Sat, 04 Sep 2004 5:50:14 +0100 oder?

Also Samstag nach dem Aufstehen =)


Edit: Meine Golflösung hat 139 Zeichen. (Dabei übernehme ich den Parameter n aus @ARGV, nur bevor das da wieder jemand reinpipet und am Ende gebe ich es wie gewünscht zeilenweise mit Zeilenumbrüchen aus.) Erfahrungsgemäß wird DS dann eine Lösung um die 50 Zeichen finden :blush:

Die Ausgabenreihenfolge ist zufällig genau die gleiche wie die in der Aufgabenstellung.\n\n

<!--EDIT|Crian|1094133431-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View full thread QOTW 23 'perl' quiz