elispでjoin

あまり使う場面ってないような気がするけど使おうと思ったときに見つからなかったのでおれおれライブラリに書いておいた。

(defun my-join (lst)
  (mapconcat 'identity lst ""))

;;dolist版
(defun my-join (lst)
  (let (ans)
    (dolist (s lst ans)
      (setq ans (concat ans s)))))

下の方が早いと思う。
でも自分には上のほう美しく見える。

elispとかだとちょっとした関数を探すより自分で定義したほうが早く済むことがある。
でもたまに見つけにくいバグになるときがある。