COMMON LISP JP > Archives > 2013/01/12

2013/01/12 11:55:31 UTCg000001
#
CLISPで参加できる競技プログラミングサイトだそうです。CLで参加できるサイトって他にも少しあった気がしましたが、どんなのがあるんでしょhttp://www.reddit.com/r/lisp/comments/16d0n1/hackerrank_a_website_for_solving_fun_little/う
#
あれ、「う」が混った…
#
上の記事でも紹介されてますが、rosetta codeなんてのがあるんですね。
#
http://rosettacode.org/wiki/Reports:Tasks_not_implemented_in_Common_Lisp
#
PLEACなんてのもありましたが、これも埋まってはいないですね
#
http://pleac.sourceforge.net/pleac_commonlisp/index.html
#
Common Lispでなんか書いてみたいけどお題がないなーという場合は、こういうのをぽちぽち潰してみるのも面白いかもしれないですね
2013/01/12 14:48:00 UTCkaki
#
anarchy golf http://golf.shinh.org/ にもCLISPがありますね.
2013/01/12 15:41:37 UTCg000001
#
あ、そういえば、ゴルフ場がありましたね。ここも結構熱いみたいですね
2013/01/12 16:40:36 UTCg000001
#
http://jorgetavares.com/2013/01/10/a-note-on-shortcircuiting-of-argument-evaluation-in/
#
元メーリングリストのレスの応酬が面白いです。調べてみたら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