Re^2: Doomsday algorithm

To prove your point, when(5) duplicates "sunday".

And you probably want something like:

@anchor_day_week = qw(tuesday wednesday thursday friday saturday sunda
+y monday)
                     [$year_anchor_day+1..6,0..$year_anchor_day];
[download]

...though I dislike repeating $year_anchor_day. This just changes the repetition:

push @anchor_day_week, splice @anchor_day_week, 0, $year_anchor_day;
[download]

...so a function to do this for you would be appropriate, even if it's only used once.

-QM
--
Quantum Mechanics: The dreams stuff is made of

Comment on Re^2: Doomsday algorithm Select or Download Code

Replies are listed 'Best First'.
Re^3: Doomsday algorithm by soonix (Chancellor) on Sep 07, 2015 at 15:19 UTC
Yes, that's what I meant with "more elegant solution". The next step would be to further "normalize" that `$nbdays` such that Sunday is the usual 0 or 7 (like in strftime %u or %w) by calculating `my $nbdays = ($diff_to_doomsdates + $year_anchor_day + 2) % 7; # or -5` [download]	[reply] [d/l] [select]