Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]6406[/thread]

RDW #2 - Rätsel der Woche Nr. 2 (Seite 12)

Tags: Ähnliche Threads

Leser: 1


<< |< 1 ... 9 10 11 12 13 14 15 16 >| >> 156 Einträge, 16 Seiten
betterworld
 2004-07-19 21:40
#84491 #84491
User since
2003-08-21
2614 Artikel
ModeratorIn

user image
Was heisst denn "OT rant"? OT ist sicher off-topic, aber rant?
Lieblingsmodule: CPAN:IPC::System::Simple, CPAN:Path::Class
kabel
 2004-07-19 22:00
#84492 #84492
User since
2003-08-04
704 Artikel
BenutzerIn
[default_avatar]
"rant" heisst geblubber, heisse luft, phrasen dreschen
-- stefan
Gast Gast
 2004-07-20 01:03
#84493 #84493
[quote=kabel,19.07.2004, 20:00]"rant" heisst geblubber, heisse luft, phrasen dreschen[/quote]
na wenigstens weißt Du was du tust ;)
renee
 2004-07-20 01:52
#84494 #84494
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
@all: bitte langsam wieder OnTopic werden, sonst schmeiße ich bald alle "und du bist eh blöd"-Posts raus. Ist mir dann sch...egal, ob ihr das für Zensur haltet... Es gibt einen extra "Thread zum Meckern". Dort kann's weitergehen...

Übrigens landen diese Posts dann wirklich im Nirvana, nicht wie ganze Threads in einer extra Board-Abteilung!\n\n

<!--EDIT|renee|1090274042-->
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-07-20 14:02
#84495 #84495
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
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:

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
betterworld
 2004-07-20 14:18
#84496 #84496
User since
2003-08-21
2614 Artikel
ModeratorIn

user image
53 Zeichen!
Code (perl): (dl )
1
2

print"(@x[grep$i&1<<$_,0..@x])
"until$i++>>(@x=@ARGV)


Die Idee kam mir gerade in einer Vorlesung. Da bin ich schnell an den Computer gerannt, um es zu testen und zu posten. Ich gehe dann jetzt mal wieder in die Vorlesung :)\n\n

<!--EDIT|betterworld|1090325434-->
Lieblingsmodule: CPAN:IPC::System::Simple, CPAN:Path::Class
Crian
 2004-07-20 14:27
#84497 #84497
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Allerdings erfüllt es nicht die Anforderungen der Aufgabenstellung ;)

Trotzdem bewundernswert kurz.
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
DS
 2004-07-20 14:40
#84498 #84498
User since
2003-08-04
247 Artikel
BenutzerIn
[default_avatar]
[quote=betterworld,20.07.2004, 12:18]53 Zeichen!
Code (perl): (dl )
1
2

print"(@x[grep$i&1<<$_,0..@x])
"until$i++>>(@x=@ARGV)


Die Idee kam mir gerade in einer Vorlesung. Da bin ich schnell an den Computer gerannt um es zu testen und zu posten. Ich gehe dann jetzt mal wieder in die Vorlesung :)[/quote]
Krass, es ging doch noch kürzer... mal schaun was der >>-Operator eigentlich genau macht...
esskar
 2004-07-20 14:52
#84499 #84499
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
das gegenteil von << :)
also shiften... nach rechts
steve
 2004-07-20 14:53
#84500 #84500
User since
2004-03-04
52 Artikel
BenutzerIn
[default_avatar]
[quote=betterworld,20.07.2004, 12:18]53 Zeichen!
Code (perl): (dl )
1
2

print"(@x[grep$i&1<<$_,0..@x])
"until$i++>>(@x=@ARGV)


Die Idee kam mir gerade in einer Vorlesung. Da bin ich schnell an den Computer gerannt um es zu testen und zu posten. Ich gehe dann jetzt mal wieder in die Vorlesung :)[/quote]
also bei mir funktionier die Lösung nicht!
Es wird nur "()" aufgegeben.

steve
<< |< 1 ... 9 10 11 12 13 14 15 16 >| >> 156 Einträge, 16 Seiten



View all threads created 2004-07-16 12:08.