Emacs Part 39

[0001 名無しさん＠お腹いっぱい。 2011/11/29(火) 17:50:44.24]

前スレ

Emacs Part 38
http://hibari.2ch.net/test/read.cgi/unix/1308635178/

[0187 名無しさん＠お腹いっぱい。 2011/12/24(土) 03:01:13.07]

重複分とlistを削ってみた。元の方が全然見やすいな。

`(,(aa)
,@(mapcar
#'(lambda (f) (funcall f))
(if test '(bb cc dd) '(ff)))
,(ee))

[0188 名無しさん＠お腹いっぱい。 2011/12/24(土) 03:27:46.43]

>>185
こんな感じ？

(append
 (list (aa))
 (if test
    (list (bb) (cc) (dd))
  (list (ff)))
 (list (ee))


(mapcar 'funcall
        `(aa
          ,@(if test
              '(bb cc dd)
              '(ff))
          ee))