iotaを書いてパスカルの三角形を作った - kiyo_hikoのブログiota10分ぐらい、三角形10分ぐらいでやっつけた。 大したことはやってないし多分遅い。 (defun iota (to &optional (from 0) (step 1)) (do ((i from (incf i step)) (ns nil)) ((< to i) (nreverse ns)) (setf ns (cons i ns)))) (defun pas (n k) (if (or (= n 1) (= k 1) (= k n)) 1 (+ (pas (- n 1) (- k 1)) (pas (- n 1) k)))) (defun line (n) (mapcar #'(lambda (k) (pas n k)) (iota n 1))) (defun sankaku (n) (mapcar #'(lambda (n) (line n)) (iota n 1)))
