読者です 読者をやめる 読者になる 読者になる

リーダーマクロ

色々感想書く前に、忘れないうちに酒のネタ。
全世界でのべ100万回くらい書かれてそう。

(asdf:oos 'asdf:load-op :cl-ppcre)

(set-macro-character #\{
  #'(lambda (s c)
      (let ((args (cl-ppcre:split " " (string-upcase (symbol-name (read s)))))
	    (body (read-delimited-list #\} s t)))
	`(lambda ,(mapcar #'(lambda (sym) (intern sym)) args)
          ,@body))))

({|a b|(+ (* a a) (* b b))} 2 4)
;=> 20

関連:最高にキモい Lisp コードを書いてみよう with 100 行リーダーマクロ

以前xyzzyのscratchでちょこっとmapcとか使いたい時にタイプ量減らせて良いかなと思ってやってみたけど微妙だった。
引き数のリストを前に持ってくれば、と思ったけどやってみたらどうしようもなく気持ちわるかった。