ハッシュで便利そうな自作関数

lisp

Perlのようにexisitsを気にせずに使える関数を自作．既にあるだろうけれど，自分でやることに意義がある．おつかいと一緒．それにしてもネーミングセンスわろし．

(defun hash++ (key hash)
  (if (null (gethash key hash))
      (setf (gethash key hash) 1)
    (setf (gethash key hash) (1+ (gethash key hash)))))

(defun hash+num (key num hash)
  (if (null (gethash key hash))
      (setf (gethash key hash) num)
    (setf (gethash key hash) (+ (gethash key hash) num))))