12 lines
175 B
Plaintext
12 lines
175 B
Plaintext
type order = {
|
|
customer : string;
|
|
total : int;
|
|
}
|
|
|
|
input orders : collection order
|
|
|
|
let tax n = n * 20 / 100
|
|
|
|
query revenue =
|
|
orders |> map (fun o -> tax o.total) |> sum
|