Opened by Crian at 2004-07-23 13:33
User since
2003-08-04
5875 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5875 Artikel
ModeratorIn
So, die Auswertung für Linux steht jetzt auch im Wiki, dort hatte ich hier Perl 5.8.1 und die beiden Lösungen von DS machen zu 100% genau das was sie sollen.
Die Golf-Lösung ist wesentlich kleiner als meine, dafür kann man meiner auch den Programmnamen geben. Insofern kann man sie schlecht vergleichen. Aber meine ist im Prinzip nur meine normale Lösung kompimiert :-)
Wäre nochmal interessant zu wissen, was gerade Perl 5.8.0 zu meckern hat. Und ob das ein Bug in Deinem Code oder in Perl 5.8.0 ist.
Die Golf-Lösung ist wesentlich kleiner als meine, dafür kann man meiner auch den Programmnamen geben. Insofern kann man sie schlecht vergleichen. Aber meine ist im Prinzip nur meine normale Lösung kompimiert :-)
Wäre nochmal interessant zu wissen, was gerade Perl 5.8.0 zu meckern hat. Und ob das ein Bug in Deinem Code oder in Perl 5.8.0 ist.
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
use strict; use warnings; Link zu meiner Perlseite