MIT方案-合并排序+定时执行

Question

我已经在MIT计划中实现了我自己的合并排序。我想用内置的merge-sort测试它并比较时间；但是，我不知道如何获得两者的运行时间。此外，在我测试多达100万个元素时，如何增加堆栈大小/递归深度。

Answer 1

麻省理工学院计划中有很多计时程序，检查一下文档。特别是，试试这个：

(with-timings
 (lambda ()
   (merge-sort '(1 2 3 4 5) >))
 (lambda (run-time gc-time real-time)
   (write (internal-time/ticks->seconds run-time))
   (write-char #\space)
   (write (internal-time/ticks->seconds gc-time))
   (write-char #\space)
   (write (internal-time/ticks->seconds real-time))
   (newline)))

内置的sort不应该有100万个元素的问题，如果您自己的实现是一个很好的实现，那么它就不会出现产生数据大小的结果的问题。