RDW #2 - Rätsel der Woche Nr. 2 - #84468 (Allgemeines zu Perl)

betterworld

2004-07-19 15:25

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

[quote=Taulmarill,19.07.2004, 13:18]also ein byte geht bei betterworlds script noch

Code: (dl )

1
2

print"(@x[grep{$i&1<<$_}0..@x])
"while$i++<2**(@x=@ARGV)'

aber ansonster siehts schon sehr nach ideallösung aus.[/quote]
Mann, bin ich blind... das haette ich sehen muessen :)
Danke, dass Du es durchgelesen hast!

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class