2009-01-21から1日間の記事一覧
参考: X, XYZ (anarchy golf) - kozima の日記 - cadr group (defun Y (n) (dotimes (i n) (format t "~V@TY~:[~VTY~;~]~%" (min #2=(floor n 2)i) (<= #2# i) (- n i 1)))) (defun Z (n) (dotimes (i n) (format t (if (> (1- n) i 0) "~VTZ~%" "~*~V@{Z~}~…