14 lines
231 B
Plaintext
14 lines
231 B
Plaintext
type order = {
|
|
customer : string;
|
|
total : int;
|
|
}
|
|
|
|
input orders : collection order
|
|
|
|
let tax n = n * 20 / 100
|
|
|
|
query expensive_orders =
|
|
orders
|
|
|> filter (fun o -> o.total > 1000)
|
|
|> map (fun o -> (o.customer, tax o.total))
|