2008-08-29から1日間の記事一覧
(load "grass-primitive.l") (defun % (&rest arg) (reduce #'funcall arg)) (defun $ (&rest arg) (reduce #'funcall arg :from-end t)) (defvar y (lambda (f) ($ (lambda (g) ($ f (lambda (x) (% g g x)))) (lambda (g) ($ f (lambda (x) (% g g x))))))…
doukaku.org 最初に書いたコード。 (do*((e(read))(i(- e)(1+ i)))((= i e))(dotimes(j(- e(abs i)))(princ"*"))(princ #\NewLine)) 微妙だなあと思って投稿しないでいたらformatを使った回答が。 ;mc #7421(2008-08-27 19:25) [ Common Lisp ] (format t "~…