fixe Stringlänge in PERL

[Cheatah]

Hi,

sub Mach
{
    substr( $_[0] . ' 'x$_[1], 0, $_[1]);
}

und so optimieren wir uns immer weiter... Gratulation, kürzer kriegt es wohl kaum einer hin!

Dabei fallen mir zwei wichtige allgemeingültige Aussagen ein:
1.) Jedes Programm enthält mind. einen Bug.
2.) Jedes Programm läßt sich um mind. eine Anweisung reduzieren.
Schlußfolgerung: Jedes Programm läßt sich auf eine einzelne Anweisung reduzieren, die fehlerhaft ist!

Bei Microsoft habe ich manchmal das Gefühl, sie haben Punkt 1 unterstrichen und wollten von Punkt 2 das Gegenteil beweisen... :-)

Cheatah