Meine dumme Frage zum Jahresende: Anzahl der Kalenderwochen im Kalenderjahr.

[Regina Schaukrug]

    # map(wd)
    my %swd = (
        0 => 1,
        1 => 0,
        2 => -1,
        3 => -2,
        4 => -3,
        5 => 3,
        6 => 2,
        7 => 1,
    );
    return ($jd + $swd{$wd});

So einfach sieht also DIN1355 (ISO/R 2015-1971) (deutsch) in Perl aus 😉

Naja. Wenn es um "einfach" geht, dann würde ich

my @swd = ( 1, 0, -1, -2, -3, 3, 2, 1 );
return  $jd + $swd[$wd]

vorziehen.

Andere nennen noch kürzeres "einfach":

return  $jd + ( 1, 0, -1, -2, -3, 3, 2, 1 )[$wd];