vault backup: 2023-09-11 16:24:38
This commit is contained in:
parent
226cb54ea1
commit
72e4d772ee
@ -197,7 +197,7 @@ val rate_standart : int -> float = <fun>
|
||||
val rate_express : int -> float = <fun>
|
||||
|
||||
# let rate rt kg = match rt with
|
||||
x when x = "economic" -> rate_eco(kg)
|
||||
| x when x = "economic" -> rate_eco(kg)
|
||||
| x when x = "standard" -> rate_standard(kg)
|
||||
| x when x = "express" -> rate_express(kg)
|
||||
| _ -> invalid_arg "Bad type of shipping class";;
|
||||
|
Loading…
x
Reference in New Issue
Block a user