kiyo_hikoのブログ

メモ+日記?

2013-05-29から1日間の記事一覧

iotaを書いてパスカルの三角形を作った

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 …