Re: Challenge: sort weekdays in week-order (elegantly and efficiently)

I agree with the others that using a module like Time::Piece, DateTime, or at least Sort::Key is the right way to go about this. But just for fun, TIMTWOTDI, and to fulfill your "some kind of transform" idea:

use List::Util qw/shuffle/;
my @weekdays = shuffle qw/ Monday Tuesday Wednesday
    Thursday Friday Saturday Sunday /;
say join ", ", map { $$_[0] } sort { $$a[1] cmp $$b[1] }
    map { [$_, lc(substr $_,0,2)=~tr/softwarehum/50411307860/r] }
    @weekdays;
[download]

Update: Anagram'd

Comment on Re: Challenge: sort weekdays in week-order (elegantly and efficiently) Download Code

Replies are listed 'Best First'.
Re^2: Challenge: sort weekdays in week-order (elegantly and efficiently) by tybalt89 (Monsignor) on Jul 22, 2022 at 14:58 UTC
Inspired by above post. `#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11145633 use warnings; use List::AllUtils qw( shuffle sort_by ); my @weekdays = shuffle qw/Monday tuesday wednesday friday sunday Saturday Thursday/; print "@{[ sort_by { lc =~ tr/muwhft/a-e/dr } @weekdays ]}\n";` [download]	[reply] [d/l]
Re^3: Challenge: sort weekdays in week-order (elegantly and efficiently) by roho (Bishop) on Jul 23, 2022 at 21:45 UTC
++tybalt89!! That was a very clever use of "tr" and its options. I added a small tweak using unshift and pop to put Sunday first. `#!/usr/bin/perl use strict; use warnings; use List::AllUtils qw( shuffle sort_by ); my @weekdays = shuffle qw/Monday Tuesday Wednesday Friday Sunday Satur +day Thursday/; @weekdays = @{[ sort_by { lc =~ tr/muwhft/a-e/dr } @weekdays ]}; unshift(@weekdays,pop(@weekdays)); print "@weekdays\n";` [download] "It's not how hard you work, it's how much you get done."	[reply] [d/l]
Re^4: Challenge: sort weekdays in week-order (elegantly and efficiently) by tybalt89 (Monsignor) on Jul 23, 2022 at 22:40 UTC
No need for that, just tweak the "tr" a little :) `#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11145633 use warnings; use List::AllUtils qw( shuffle sort_by ); my @weekdays = shuffle qw/Monday tuesday wednesday friday sunday Saturday Thursday/; print "$_\n" for sort_by { lc =~ tr/muwht/a-d/dr } @weekdays; # Monday + first print "\n"; print "$_\n" for sort_by { lc =~ tr/nmewhfatsu/a-g/dr } @weekdays; # S +unday first` [download]	[reply] [d/l]
Re^5: Challenge: sort weekdays in week-order (elegantly and efficiently) by rsFalse (Chaplain) on Jul 25, 2022 at 22:51 UTC
Re^5: Challenge: sort weekdays in week-order (elegantly and efficiently) by roho (Bishop) on Jul 24, 2022 at 02:06 UTC


P is for Practical
	PerlMonks