用common lisp实现字典

(defvar *dictionary* (make-hash-table :test #'equal)) ; 创建一个新的哈希表用于存储字典

(defun add-to-dictionary (key value)
  (setf (gethash key *dictionary*) value)) ; 将键值对添加到字典中

(defun get-from-dictionary (key)
  (gethash key *dictionary*)) ; 从字典中获取指定键的值

(defun remove-from-dictionary (key)
  (remhash key *dictionary*)) ; 从字典中删除指定键值对

(defun dictionary-exists-p (key)
  (if (gethash key *dictionary*)
      t
      nil)) ; 检查字典中是否存在指定键的值

(add-to-dictionary "apple" "苹果") ; 向字典中添加键值对
(add-to-dictionary "orange" "橙子")
(add-to-dictionary "banana" "香蕉")

(format t "apple的中文名是~a~%" (get-from-dictionary "apple")) ; 从字典中获取键的值并打印

(remove-from-dictionary "orange") ; 从字典中删除键值对

(if (dictionary-exists-p "banana") ; 检查字典中是否存在指定键的值并打印结果
    (format t "字典中存在banana~%")
    (format t "字典中不存在banana~%"))