RDW #7 - Rätsel der Woche 7 - #49540 (Allgemeines zu Perl)

Crian

2004-08-24 12:57

User since
2003-08-04
5866 Artikel
ModeratorIn

Danke. Aber sag mal, Deine Lösung ist ja grauslich formatiert ... soll das eine Misch Golf-Lang-Lösung sein ;-)
Ein paar der megalangen Zeilen hab ich mal im Wiki umgebrochen...

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