Opened by renee at 2004-07-16 12:08
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Nochmal vielen Dank für die rege Beteiligung und die schnelle Hilfe in Einzelfällen bei Problemen bei der Auswertung der Lösungen.
Taulmarill hat mir für die Auswertung noch eine weitere Lösung in der Form wie ich sie gerne auswerten wollte geschickt:
Taulmarill hat mir für die Auswertung noch eine weitere Lösung in der Form wie ich sie gerne auswerten wollte geschickt:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
sub P {
@_ = @{ shift @_ };
return [ [], rec(@_) ];
sub rec {
return () unless @_;
map {
my $first = shift @_;
[$first], map { [ $first, @$_ ] } rec(@_);
} @_;
}
}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