等差数列という記事を読んで，面白そうだったので，私も Emacs Lisp による実装を考えてみました (cl が必須です)． (defun f (func list) (butlast (maplist (lambda (x) (and (cadr x) (apply func (list (car x) (cadr x))))) list) 1)) 実行結果は以下の…