Meine dumme Frage zum Jahresende: Anzahl der Kalenderwochen im Kalenderjahr.
bearbeitet von Regina Schaukrug> ~~~perl
> # 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":
~~~perl
return $jd + ( 1, 0, -1, -2, -3, 3, 2, 1 )[$wd];
~~~
Meine dumme Frage zum Jahresende: Anzahl der Kalenderwochen im Kalenderjahr.
bearbeitet von Regina Schaukrug> ~~~perl
> # 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":
~~~perl
return $jd + ( 1, 0, -1, -2, -3, 3, 2, 1 )[$wd];
~~~
Meine dumme Frage zum Jahresende: Anzahl der Kalenderwochen im Kalenderjahr.
bearbeitet von Regina Schaukrug> ~~~perl
> # 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 Kürzeres "einfach":
~~~perl
return $jd + ( 1, 0, -1, -2, -3, 3, 2, 1 )[$wd];
~~~