Shammer's Philosophy

My private adversaria

Lisp の mapcar 関数

mapcar 関数というのは、引数で渡されたリストの各要素に対して、任意の処理を行う関数。

(defun mapcar-test (lst)
  (if (listp lst)
      (mapcar #'(lambda (x) (concatenate 'string "Hello, " x)) lst)
      (format t "Usage: mapcar-test $LIST_VALUE.~%")))
>(mapcar-test '("Mr.Brown" "Mr.White"))

処理がほどこされた結果も、リストとして返されるようだ。

(Hello, Mr.Brown  Hello, Mr. White)