first commit

This commit is contained in:
douboer
2025-09-17 16:08:16 +08:00
parent 9395faa6b2
commit 3ff47c11d5
1318 changed files with 117477 additions and 0 deletions

View File

@@ -0,0 +1,16 @@
###
### delivery-charge
###
## Chapter 3 section 7.5
sub delivery_charge {
my ($quantity_ordered) = @_;
my ($hour, $day_of_week) = (localtime)[2,6];
# perform complex computatation involving $weight, $gross_cost,
# $hour, $day_of_week, and $quantity_ordered
# ...
return $delivery_charge;
}