2009-06-24から1日間の記事一覧

リスト用のマージソート

リスト用のマージソートを書いて見た。・以下ソース(関数はどれも破壊的) ;;; 最速(?)のoptimize宣言 (defvar fastest '(optimize (debug 0) (speed 3) (safety 0))) ;;; 2つのlistのマージ (defun merge-list (lst1 lst2 <) (declare #.fastest (function <…