Emacs Lisp の reduce

毎度使い方忘れるのでメモ。

(require 'cl-seq)

;; (or (or (or "a" "b") "c") "d") と同じ
(reduce (lambda (result item) (or result item))
        '("a" "b" "c" "d"))
;; => "a"

;; フィルタ関数を順番にかける
(reduce (lambda (res fun) (funcall fun res))
        '(;; 元になる文字列
          "hoge"

          ;; o を a に置換 => "hage"
          (lambda (str) (replace-regexp-in-string "o" "a" str))

          ;; 先頭文字を大文字に変換 => "Hage"
          (lambda (str) (capitalize str))

          ;; 同じ文字列を2回繰り返す => "HageHage"
          (lambda (str) (concat str str))))
;; => "HageHage"