Thread QOTW 23 'perl' quiz
(13 answers)
Opened by Crian at 2004-09-02 11:38
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 |