Emacs Lisp の reduce - Qiita

(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) (conca