2009-02-13から1日間の記事一覧
arcのマクロ(gaucheにもあった?) (fn (_) (if (odd _) (+ _ 10)) とかを [if (odd _) (+ _ 10)] でかけるやつ。 がちょっと便利そうだったので、CommonLispで作ってみた。 (defun deep-find (item seq &key (test #'eql)) (if (not (null seq)) (or (if (…
arcのマクロ(gaucheにもあった?) (fn (_) (if (odd _) (+ _ 10)) とかを [if (odd _) (+ _ 10)] でかけるやつ。 がちょっと便利そうだったので、CommonLispで作ってみた。 (defun deep-find (item seq &key (test #'eql)) (if (not (null seq)) (or (if (…