
エントリーの編集

エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
5. LISPとは??? (defun local-similarity (a b) ;; a, b : sequence (declare (optimize (speed 3) (saf... 5. LISPとは??? (defun local-similarity (a b) ;; a, b : sequence (declare (optimize (speed 3) (safety 0) (debug 0))) (let ((memo (make-hash-table :test 'equal))) (labels ((dp (x y) (declare (fixnum x y)) (or #1=(gethash `(,x ,y) memo) (setf #1# (cond ((< x 0) 0) ((< y 0) 0) (:else (let ((diagonal-local-distance (if (eql (elt a x) (elt b y)) 1 -1))) (max (+ diagonal-local-distance (dp (1- x) (1- y)))