format練習
参考: 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~}~%") (- n i 1) n 0))) (defun N (n) (dotimes (i n) (format t "~V<N~:[~;~V@TN~]~;N~>~%" n (< 0 i (1- n))(1- i))))
Nは1を渡すと駄目な感じ。
ついでに
(defun λ (n) (dotimes (i n) (format t"~V@Tλ~:[~;~VTλ~]~%" #2=(min #1=(- n i 1) i) (< #2# i) (max #1# i)))) (dotimes (i 3) (λ (1+ (* 4 i))) (terpri))
λ λ λ λ λ λ λ λ λ λ λ λ λ λ λ λ λ λ λ λ λ