当年销售额占到一半的前 n 个客户
问题
下面是某企业的历史销售合同记录:
下面为他们的客户信息列表:
某年内按销售额排名的客户,达到一半销售额的前 n 个客户称为该年的“大客户”,请列出 1998 年该企业的大客户名单。
思路
大致思路:首先将合同表按客户分组,算出每个客户的总金额并按其降序排列,而后算出总销售额的一半值,最后扫描这个表,途中不断累积销售额,直至达到一半销售额,之前的客户就是“大客户”了。
-
为了以后能够方便的提取客户名字,先将合同表的客户字段替换为相应的客户记录。
-
按要求,选出 1998 年的合同记录。
-
对筛选出来的表按客户分组,这样每个客户的销售合同都被划归到一起了,同时再生成新的序表,求出每组的金额总和。
-
将此序表按金额的降序排列。
-
求出所有客户的总销售额,即年度总销售额值的一半。
-
使用 pselect 函数,从上至下遍历每条记录,同时累计金额,直到金额达到总金额的一半时,停止遍历,就得到了大客户的数量 n。
-
提取出前 n 个客户的名称,就是 98 年的大客户名单了。
代码
A | ||
---|---|---|
1 | =file("C:\\txt\\Contract.txt").import@t() | 合同表 |
2 | =file("C:\\txt\\Client.txt").import@t() | 客户 |
3 | >A2.keys(ID), A1.switch(Client,A2) | 将合同表的客户字段替换成客户记录 |
4 | =A1.select(year(SellDate)==1998) | 筛选出 98 年的销售记录 |
5 | =A4.group(Client;~.sum(Amount):Amount) | 对表按客户分组,同时求出每组总金额 |
6 | =A5.sort(-Amount) | 按金额的降序排列 |
7 | =A5.sum(Amount)/2 | 全年一半的销售额 |
8 | =0 | 累计总金额的临时变量 |
9 | =A6.pselect((A8=A8+Amount,A8>=A7)) | 找到累计总金额达到一半的位置 |
10 | =A6(to(A9)).(Client.Name) | 提取出名字,就是该年的大客户了 |
英文版
数据文件
Client.txt
Contract.txt