RDW #4 - Rätsel der Woche 4 (Seite 2) (Allgemeines zu Perl)

Crian

2004-08-03 13:07

User since
2003-08-04
5866 Artikel
ModeratorIn

Sonst schiebs nach, oder verwende für die späteren Teile eine der eingereichten Lösungen :)

Meine Lösung steht (ist allerdings _sehr_ einfach gehalten) und ich hab auch schon Lösungen zugeschickt bekommen *anstachel* :D

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

Ronnie

2004-08-03 23:50

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Bin mal auf die Lösungen gespannt. Habe leider irgendwo den Faden verloren und dann mit dem Kollegen eine Diskussion über glückliche Steine (die nichts von anderen Steinen wissen) angefangen...

Crian

2004-08-04 11:53

User since
2003-08-04
5866 Artikel
ModeratorIn

So, die Lösungen gibt es unter http://wiki.perl-community.de/bin/view/Wissensbasis/RaetseL20040801 (bis auf die zweite Löung von Kabel, die ich eben erst vorgefunden habe und deshalb erst heute Abend hochladen kann).

Ich habe dort im Wiki mal meine Lösung als Beispiellösung gezeigt, aufgrund der doch etwas vagen Aufgabenstellung (und sowieso) sollte sie aber nicht unbedingt als Maßstab angesehen werden.\n\n

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

kabel

2004-08-04 12:13

User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]

das ist keine zweite loesung, sondern ne verbesserung der ersten.

-- stefan

Crian

2004-08-04 12:20

User since
2003-08-04
5866 Artikel
ModeratorIn

Wie ich von DS erfahren habe, hat unser RDW und unser
Gegolfe dazu geführt, dass ein MCC (Minimal-Coding-Contest)
für Java entstanden ist.

Unter http://nexus.fuxx0r.net/mcc.php findet man die erste
Aufgabe.

Eine ähnliche Aufgabe werden wir im Rahmen des RDW's auch
noch bekommen ;-)

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

Crian

2004-08-04 12:21

User since
2003-08-04
5866 Artikel
ModeratorIn

[quote=kabel,04.08.2004, 10:13]das ist keine zweite loesung, sondern ne verbesserung der ersten.[/quote]
Ok, ich nehm mal an ich soll dann die erste durch die zweite ersetzen? Mach ich heute Abend.

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

renee

2004-08-05 16:52

User since
2003-08-04
14371 Artikel
ModeratorIn

@Crian: Dein Link oben zum Wiki ist falsch (Du verlinkst zum speichern der Datei...)! Hier der richtige Link: http://wiki.perl-community.de/bin/view/Wissensbasis/RaetseL20040801

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Crian

2004-08-06 12:17

User since
2003-08-04
5866 Artikel
ModeratorIn

Danke, hab ich oben korrigiert.

Nun ist auch die Verbesserung von kabel online.

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