(defmacro with-bench ((&optional (num-repeat 10000000)) &body body) `(time (loop repeat ,num-repeat do (progn ,@body)))) (defun dbind-test () (let ((list (list 1 2 3))) (with-bench () (destructuring-bind (x y z) list (+ x y z))))) (defun let-test () (let ((list (list 1 2 3))) (with-bench () (let ((x (first list)) (y (second list)) (z (third list))) (+ x y z))))) CL-USER> (dbind-test) Evaluation to
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く