堆排序

Kye

附件是搜索到的原件，缺的函数floor 可能是：
(defun floor(n);;Floor(i)表示比i小的最大整数
  (if (>= n 0)
    (fix n)
    (fix (1- n))))
附件是将表建堆，参考网上二叉堆C语言实现备注，也用表做了，实际运用时优先队列的速度与cons+vl-sort差不多，比较悲催，就不放这里砸人了，可能也许计算就不是lisp的强项，我好像看到高飞老师好像谈过要讲解二叉堆等数据结构，但没有搜到，哪位如果看见讲解帖，请帮忙给个链接