tsz https://blog.hatena.ne.jp/tsz/ tszの日記 https://tsz.hatenadiary.org/ L-99 Common Lisp PAIP読書会で知り合ったid:g000001さんから、L-99を勧められたので挑戦してみる。 取りあえず1問目から。doで実装してみる。 ;;; ;;; P01 (*) Find the last box of a list. ;;; Example: ;;; * (my-last '(a b c d)) ;;; (D) (defun my-last (list) (do ((l list (cdr l))) ((not (consp (cdr l))) l))) (my-last '(1 2 3)) ; => 3 (my-last '(1 2 . 3)) ; => (2 . 3) (my-… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftsz.hatenadiary.org%2Fentry%2F20080317%2F1205767376" title=" P01: 最後のcons cellを見つける - tszの日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-03-17 00:22:56 rich https://tsz.hatenadiary.org/entry/20080317/1205767376 1.0 100%