##あれ、「う」が混った…
#上の記事でも紹介されてますが、rosetta codeなんてのがあるんですね。
##PLEACなんてのもありましたが、これも埋まってはいないですね
##Common Lispでなんか書いてみたいけどお題がないなーという場合は、こういうのをぽちぽち潰してみるのも面白いかもしれないですね
#anarchy golf http://golf.shinh.org/ にもCLISPがありますね. #あ、そういえば、ゴルフ場がありましたね。ここも結構熱いみたいですね
##元メーリングリストのレスの応酬が面白いです。調べてみたらCCLは、<にコンパイラマクロが付いてたんですね。
#(in-package :cl-user)
(defun foo (a)
(if (< 3 2 (setq a -1)) a a))
(foo 1)
;=> 1
(compiler-macroexpand '(< 3 2 (setq a -1)))
;=> (LET* ((#:G3763 3)) (IF (CCL::<-2 #:G3763 (SETQ #:G3763 2)) (CCL::<-2 #:G3763 (SETQ A -1))))
; T
T