(哈斯克尔)
导入数据。集合(singleton、fromList、union、deleteFindMin)
a225496 n=a225496_列表!!(n-1)
a225496_list=1:h(singleton p)ps[p]其中
(p:ps)=178943_列表
小时x秒@(x:xs)秒
|m>x=h(s`union`(fromList$map(*x)(1:ys))xs-ys
|否则=m:h(s''union`(fromList$map(*m)ys'))xs'ys'
其中,ys'=m:ys;(m,s')=删除查找最小值
|