Files
devops/perl/Examples/Chap3/chrono-orc
2025-09-17 16:08:16 +08:00

16 lines
197 B
Plaintext

###
### chronologically-orcish
###
## Chapter 3 section 10
{ my %cache;
sub chronologically {
($cache{$a} ||= date_to_string($a))
cmp
($cache{$b} ||= date_to_string($b))
}
}