Re^5: Challenge: sort weekdays in week-order (grep)


Your skill will accomplish what the force of many cannot
	PerlMonks

Re^5: Challenge: sort weekdays in week-order (grep)

by LanX (Saint)

on Jul 26, 2022 at 10:17 UTC ( [id://11145739]=note: print w/replies, xml )

Need Help??

in reply to Re^4: Challenge: sort weekdays in week-order (grep)
in thread Challenge: sort weekdays in week-order (elegantly and efficiently)

what about ... :)

  DB<189> p "@a"                                                      
+                                                       
Monday Tuesday Wednesday Thursday Friday Saturday Sunday

  DB<190> $a = join "", map { "(?=.*($_))*" } @a

  DB<191> x grep {defined} "Sunday Friday Monday" =~ /^$a/i
0  'Monday'                                                           
+                                                       
1  'Friday'                                                           
+                                                       
2  'Sunday'                                                           
+                                                         
  DB<192>
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}