Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...

print "$_\n" for
  nsort_by { 'motuwethfrsasu' =~ substr lc, 0, 2; $-[0] } @weekdays;

Select or download this
```
Monday
Thursday
Saturday
```