B木 - sileã®ãƒ–ãƒã‚°B木をWikipediaã®è¨˜äº‹*1ã‚’å‚考ã«ã—ã¦common lispã§å®Ÿè£…ã—ã¦ã¿ãŸã€‚ 実装 実装コード。 コメント抜ãã§140行程度。 オンメモリ。最é©åŒ–ãªã—。 ※ 末尾ã«å…¨éƒ¨ã¾ã¨ã‚ãŸ(+ コメント無ã—)ã®ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰æœ‰ã‚Š ;;;; パッケージ定義 (defpackage btree (:use :common-lisp) (:shadow :common-lisp get set remove) (:export make ; Bæœ¨ä½œæˆ get ; 検索ãŠã‚ˆã³æŒ¿å…¥(setf (get ...)) remove)) ; 削除 (in-package :btree) ;;;; 補助関数群 ;; 常ã«nilを返㙠(defun return-nil (&rest _) (declare (ignore _)) nil) ;; 常ã«ä¸‰ç•ªç›®ã®å¼•æ•°ã‚’返㙠(defun identity3 (_1 _
yebo blog: Worse is Better
Geekãªãºãƒ¼ã˜ï¼šLispã®å言ãŒå‡„ã™ãŽã‚‹
サービス終了ã®ãŠçŸ¥ã‚‰ã›
{{#tags}}- {{label}}
{{/tags}}