考场监考安排

问题出自问答区 python 频道的一个问答，原问答地址：https://ask.csdn.net/questions/7901104。

题主对提问的方式不太熟悉，他其实已经提了一系列关于监考安排这个问题的问答了，每次都略有遗漏，所以老顾把完整的需求从新描述一下。

有若干场不同科目的考试，每个科目的考试时长不同；有若干位不同科目的老师去监考，每个考试需要1名监考老师，监考老师不得监考同科目的考试。
请尽量安排老师所用的总监考时长为最平均的接近值。

题主这里给出了29位不同科目的老师，还有77场不同科目的考试。老顾用 python 通过编程的方式已经实现了这个需求，平均每位老师监考总时长在200至250之间。

但是，这个题目老顾觉得用数据库查询的方式也可以做，于是就拿来练练手。

使用 cte 模拟两个表的原始数据

with 考试 as (select '语文' 科目,13 场次,120 时长union all select '英语',16,100union all select '数学',16,100union all select '物理',8,60union all select '道法',8,60union all select '历史',8,50union all select '化学',8,50
),老师 as (select '语文' 科目,4 numunion all select '数学',5union all select '英语',6union all select '物理',3union all select '道法',3union all select '历史',3union all select '生物',3union all select '体育',2
)
select * from 考试

使用 master…spt_values 进行数据填充

因为题主给的数据就是这样的，所以，咱也不知道具体每个老师叫啥，每个科目啥时候举行，有没有时间冲突，咱就当他没有好了。但是，这样的汇总数据是无法进行计算的，我们需要把所有的汇总数据展开成单项。这里使用了mssql系统库中自带的一个数据表：master…spt_values，使用这个表可以很方便的扩展成单项，进行数据补全。相信看过我以前 sql 文章的小伙伴对这个已经很熟悉了。

with ... -- 前边的 with 不再重复
,teacher as (select 科目,number from 老师cross apply (select number from master..spt_valueswhere type='p' and number between 1 and num) b
)
select * from teacher

很容易就得到了单个老师的排列及科目了。

在这里，不得不说，cross/outer apply 很好用，可以直接引用前边查询表中的列，而 mysql 则未提供这种方式，写个关联查询为了引用前边的列，也很费劲。

优先安排时长较长的考试

这个是一个朴素的想法，先把废时间的安排出去，然后，谁的总时长少，谁就多安排一点，这样的话，平均时长就差不多了，所以我们对考试场次按时长做个倒序分配序号，来确定分配优先级，并作为 cte 递归的依据。

with ...
,exam as (select *,row_number() over(order by 时长 desc) sn from 考试
)
select * from exam

使用 cte 安排第一个需要安排的科目

第一个需要安排的科目自然是语文了，根据 sn 得出的结论嘛。

我们需要安排13个非语文科目的老师进行语文考试的监考，为了每次安排不那么一样，还要用 newid() 函数协助一下随机排序，那么大概得指令就是这样了。

with ...
,sc as (select b.*,a.科目 as 监考,时长,a.sn from exam across apply (select *,row_number() over(order by newid()) nidfrom teacherwhere 科目<>a.科目) bwhere sn = 1 and nid<=场次
)
select * from sc

第一个科目很容易就安排出去了，现在准备攻坚了，递归之后的科目。

统计老师已有的监考时长

在递归之前，我们先考虑一下，对之后的安排我们需要做两件事：

1、对所有老师的已安排监考的时长进行统计，选择时长最短的老师进行下一场监考安排
2、递归数据需要排重，不能粗暴的直接用 sn = a.sn + 1 这样的方式了，因为我们已经有了13场 sn 等于1的安排了

先按老师的时长统计进行一下计算，我们修改下 select * from sc 的内容，看看这29位老师每个人的第一场考试后的时长。

select a.*,isnull(总时长,0) 总时长 
from teacher a
left join (select 科目,number,sum(时长) 总时长 from scgroup by 科目,number
) b on a.科目=b.科目 and a.number=b.number

尝试使用 cte 递归，进行下一场考试安排（尝试了三个方向才成功）

由于在 cte 递归中，无法使用 top 或 offset 之类的运算，所以可以看到，我们刚才实现第一场的内容时，都是用的 row_number 做的变动，这里，我们同样使用 row_number 变通一下


变动过程中是各种报错啊。。。。嘿嘿

第一个尝试，使用考试科目递归，失败

,sc as (select convert(nvarchar(max),b.科目) 科目,number,时长,a.科目 as 监考,a.sn from exam across apply (select *,row_number() over(order by newid()) nidfrom teacherwhere 科目<>a.科目) bwhere sn = 1 and nid<=场次union allselect convert(nvarchar(max),'下一场'),0,场次,e.科目,e.snfrom (select *,row_number() over(order by sn desc) rid from sc) ainner join exam e on a.sn+1=e.snwhere rid=1)
select * from sc
order by sn

不出预料的，每个下一场都是13场，和语文一样的场次，老顾是没办法解决这个问题了，只好换个思路。

第二个尝试，使用老师数据及考试批次递归，失败

with ...
,sc as (select 科目,number,(case when nid<=场次 then 用时+时长 else 用时 end) 用时,(case when nid<=场次 then 监考 else null end) 监考,批次,场次,nidfrom (select t.*,时长,e.科目 监考,1 批次,场次,row_number() over(order by 场次 desc,newid()) nidfrom teacher tleft join exam e on t.科目<>e.科目 and e.sn=1) aunion allselect 科目,number,(case when nid<=场次 then 用时+时长 else 用时 end) 用时,(case when nid<=场次 then 监考 else null end) 监考,批次,场次,row_number() over(order by @@rowcount)from (select s.科目,number,用时,e.科目 监考,批次 + 1 批次,e.场次,时长,row_number() over(order by (case when s.科目=e.科目 then 1 else 0 end),用时,newid()) nidfrom sc s,exam ewhere s.批次+1 = e.sn) a
)
select * from sc
order by 批次,nid

结果发现。。。。cte 递归，原来是一行数据一行数据的递归下来的，不是整个表一起递归的，难怪不让用 join 之类的指令。由于是一行一行递归的，所以这里的 row_number 得不到1之外的序号了，如果再次引入 teacher 表，则无法继承考试用时了，只好再换个思路。

第三次尝试，用 for xml 继承数据

,sc as (select * from exam across apply (select convert(nvarchar(max),stuff((select ';' + 科目 + ':' + convert(varchar,number) + ':' + convert(varchar,(case when nid<=场次 then 时长 else 0 end))from (select t.*,时长,e.科目 监考,1 批次,场次,row_number() over(order by 场次 desc,newid()) nidfrom teacher tleft join exam e on t.科目<>e.科目 and e.sn=a.sn) a--where nid <= 场次for xml path('')),1,1,'')) z) bwhere a.sn=1union allselect b.*,convert(nvarchar(max),'')from sc a,exam bwhere a.sn + 1 = b.sn
)
select * from sc

可以看到，我们可以把所有老师的用时都放到组合数据了，然后用切割字符串方式再回复成表数据进行计算，这样就可以继续尝试了。

这里老顾就直接用正则了，毕竟切割的话还是比较麻烦的，需要好几次列转行，我用正则可以省略一次。。。。如果有小伙伴想在 mssql 里使用正则，可以看老顾以前的文章，或者直接下载老顾准备好的 clr 指令《mssql正则clr及函数，追加Group分组支持》，然后直接运行里边的指令就可以使用老顾下边的正则指令了。

竟然还有这么多不让用的，pivot 也不能用就有点麻烦了，好在老顾的正则不错，可以单独提取数据，不用 pivot 也可以。

with ...
,sc as (select * from exam across apply (select convert(nvarchar(max),stuff((select ';' + 科目 + ':' + convert(varchar,number) + ':' + convert(varchar,时长)from (select t.*,时长,e.科目 监考,1 批次,场次,row_number() over(order by 场次 desc,newid()) nidfrom teacher tleft join exam e on t.科目<>e.科目 and e.sn=a.sn) awhere nid <= 场次for xml path('')),1,1,'')) curr) bcross apply (select convert(nvarchar(max),stuff((select ';' + 科目 + ':' + convert(varchar,number) + ':' + convert(varchar,(case when nid<= 场次 then 时长 else 0 end))from (select t.*,时长,e.科目 监考,1 批次,场次,row_number() over(order by 场次 desc,newid()) nidfrom teacher tleft join exam e on t.科目<>e.科目 and e.sn=a.sn) afor xml path('')),1,1,'')) sc) cwhere a.sn=1union allselect 科目,场次,时长,sn,c,z from (select b.*,a.scfrom sc a,exam bwhere a.sn + 1 = b.sn) across apply (select stuff((select ';' + tn + ':' + tsn + ':' + convert(varchar,(case when nid<=场次 then 用时+时长 else 用时 end))from (select *,row_number() over(order by 用时,newid()) nid  from (select master.dbo.RegexMatch(match,'[^:]+') tn,master.dbo.RegexMatch(match,'(?<=:)\d+(?=:)') tsn,convert(int,master.dbo.RegexMatch(match,'(?<=:)\d+(?=$)')) 用时from master.dbo.RegexMatches(sc,'([^;:]+):(\d+):(\d+)')) a) afor xml path('')),1,1,'') z) bcross apply (select stuff((select ';' + tn + ':' + tsn + ':' + convert(varchar,用时)from (select *,row_number() over(order by 用时,newid()) nid  from (select master.dbo.RegexMatch(match,'[^:]+') tn,master.dbo.RegexMatch(match,'(?<=:)\d+(?=:)') tsn,convert(int,master.dbo.RegexMatch(match,'(?<=:)\d+(?=$)')) 用时from master.dbo.RegexMatches(sc,'([^;:]+):(\d+):(\d+)')) a) awhere nid<=场次for xml path('')),1,1,'') c) c
)
select * from sc

嗯，最后一行 sc 是所有老师的用时情况，每一行的 curr 是该科目考试所安排的老师，我们先看看总用时情况：

历史:1:230;生物:3:230;数学:4:250;道法:3:250;语文:3:250;数学:2:250;生物:1:250;数学:1:250;体育:1:200;道法:2:200;语文:1:200;物理:3:200;英语:2:200;历史:2:200;语文:4:200;语文:2:200;英语:3:200;物理:1:200;英语:4:230;英语:5:230;英语:1:230;体育:2:230;历史:3:230;数学:5:230;物理:2:230;数学:3:230;英语:6:240;道法:1:240;生物:2:240

一共 29 个老师，每个老师200到250的用时，结果验证正确，真不容易，为了绕过限制，这次的指令写的很复杂，如果有小伙伴想了解详细内容，可以在评论区扣我。

最后用字符串切割和列转行，排出监考排班表

with 考试 as (select '语文' 科目,13 场次,120 时长union all select '英语',16,100union all select '数学',16,100union all select '物理',8,60union all select '道法',8,60union all select '历史',8,50union all select '化学',8,50
),老师 as (select '语文' 科目,4 numunion all select '数学',5union all select '英语',6union all select '物理',3union all select '道法',3union all select '历史',3union all select '生物',3union all select '体育',2
),teacher as (select 科目,numberfrom 老师cross apply (select number from master..spt_valueswhere type='p' and number between 1 and num) b
),exam as (select *,row_number() over(order by 时长 desc) sn from 考试
),sc as (select * from exam across apply (select convert(nvarchar(max),stuff((select ';' + 科目 + ':' + convert(varchar,number) + ':' + convert(varchar,时长)from (select t.*,时长,e.科目 监考,1 批次,场次,row_number() over(order by 场次 desc,t.科目,number) nidfrom teacher tleft join exam e on t.科目<>e.科目 and e.sn=a.sn) awhere nid <= 场次for xml path('')),1,1,'')) curr) bcross apply (select convert(nvarchar(max),stuff((select ';' + 科目 + ':' + convert(varchar,number) + ':' + convert(varchar,(case when nid<= 场次 then 时长 else 0 end))from (select t.*,时长,e.科目 监考,1 批次,场次,row_number() over(order by 场次 desc,t.科目,number) nidfrom teacher tleft join exam e on t.科目<>e.科目 and e.sn=a.sn) afor xml path('')),1,1,'')) sc) cwhere a.sn=1union allselect 科目,场次,时长,sn,c,z from (select b.*,a.scfrom sc a,exam bwhere a.sn + 1 = b.sn) across apply (select stuff((select ';' + tn + ':' + tsn + ':' + convert(varchar,(case when nid<=场次 then 用时+时长 else 用时 end))from (select *,row_number() over(order by (case when tn=科目 then 1 else 0 end),用时,tn,tsn) nid  from (select master.dbo.RegexMatch(match,'[^:]+') tn,master.dbo.RegexMatch(match,'(?<=:)\d+(?=:)') tsn,convert(int,master.dbo.RegexMatch(match,'(?<=:)\d+(?=$)')) 用时from master.dbo.RegexMatches(sc,'([^;:]+):(\d+):(\d+)')) a) afor xml path('')),1,1,'') z) bcross apply (select stuff((select ';' + tn + ':' + tsn + ':' + convert(varchar,时长)from (select *,row_number() over(order by (case when tn=科目 then 1 else 0 end),用时,tn,tsn) nid  from (select master.dbo.RegexMatch(match,'[^:]+') tn,master.dbo.RegexMatch(match,'(?<=:)\d+(?=:)') tsn,convert(int,master.dbo.RegexMatch(match,'(?<=:)\d+(?=$)')) 用时from master.dbo.RegexMatches(sc,'([^;:]+):(\d+):(\d+)')) a) awhere nid<=场次for xml path('')),1,1,'') c) c
)select tn 科目,tsn,isnull(语文,0) 语文 ,isnull(数学,0) 数学,isnull(英语,0) 英语,isnull(物理,0) 物理,isnull(道法,0) 道法,isnull(历史,0) 历史,isnull(化学,0) 化学,isnull(语文,0) + isnull(数学,0) + isnull(英语,0) + isnull(物理,0) + isnull(道法,0) + isnull(历史,0) + isnull(化学,0) 总用时
from (select 科目,b.* from sccross apply (select master.dbo.RegexMatch(match,'[^:]+') tn,master.dbo.RegexMatch(match,'(?<=:)\d+(?=:)') tsn,convert(int,master.dbo.RegexMatch(match,'(?<=:)\d+(?=$)')) 用时from master.dbo.RegexMatches(curr,'([^;:]+):(\d+):(\d+)')) b
) a
pivot(max(用时) for 科目 in (语文,英语,数学,物理,道法,历史,化学)) p
order by 1 desc,2
----------------------
科目  tsn        语文         数学         英语         物理        道法         历史         化学         总用时
---- ----------- ----------- ----------- ----------- ----------- ----------- ----------- ----------- -----------
语文   1           0           100         100         0           0           50          0           250
语文   2           0           100         100         0           0           0           0           200
语文   3           0           100         100         0           0           0           0           200
语文   4           0           100         100         0           0           0           0           200
英语   1           0           100         0           60          60          0           0           220
英语   2           0           100         0           60          60          0           0           220
英语   3           0           100         0           0           60          0           50          210
英语   4           0           100         0           0           60          0           50          210
英语   5           0           100         0           0           60          0           50          210
英语   6           0           100         0           0           60          0           50          210
物理   1           0           100         100         0           0           50          0           250
物理   2           0           100         100         0           0           50          0           250
物理   3           0           100         100         0           0           50          0           250
体育   1           0           100         100         0           0           50          0           250
体育   2           0           100         100         0           0           50          0           250
数学   1           120         0           0           60          0           0           50          230
数学   2           120         0           0           60          0           0           50          230
数学   3           120         0           0           60          0           50          0           230
数学   4           120         0           0           60          0           50          0           230
数学   5           0           0           100         60          60          0           0           220
生物   1           120         0           100         0           0           0           0           220
生物   2           120         0           0           0           60          0           50          230
生物   3           120         0           0           60          0           0           50          230
历史   1           120         0           100         0           0           0           0           220
历史   2           120         0           100         0           0           0           0           220
历史   3           120         0           100         0           0           0           0           220
道法   1           120         100         0           0           0           0           0           220
道法   2           120         0           100         0           0           0           0           220
道法   3           120         0           100         0           0           0           0           220(29 行受影响)

由于每个递归里，使用了两个 cross ，所以，暂时把 order by newid 去掉了，否则两个 cross 里的结果会造成不一致，不过，结果总算出来了。

小结

这一次老顾也是拼尽全力去搞了次数据库查询指令实现，嗯也是闲的。好在经过这一次实现，发现了以前很多没有注意到的细节，并且，最终解决掉了一些限制。

最后 sc cte 表里的 cross 其实可以合并成1个切割数据，然后再附加两个 cross 就可以使用 newid() 进行随机排序了，不过老顾折腾这半天才实现出来，暂时真的没心力去继续搞了。

说实话，这个需求，用代码来实现其实很简单，不管是我已经用 python 实现的，还是其他编程语言，都不复杂， 那怕是 mssql 本身，加上流程控制，也很简单的。老顾是执拗劲上来了，非要用查询指令本身进行实现。大家大可不必学老顾这么拧哦。