2013-05-29から1日間の記事一覧
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 …
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 …