関数

一定の値を返す関数を得る

constantly は引数に与えられた値を返す関数を作成して返します。関数を引数に取るものと組み合わせて使用することが多いでしょう。

(mapcar (constantly 1) '(a b c d e f))
;=> (1 1 1 1 1 1)

(defun my-length (list)
  (apply #'+ (mapcar (constantly 1) list)))

(my-length '(1 2 3 4 5))
;=> 5