sirocco https://blog.hatena.ne.jp/sirocco/ sirocco の書いてもすぐに忘れるメモ https://sirocco.hatenadiary.org/ Common Lisp 再帰を使うと美しく簡潔に解けることで有名な『ハノイの塔』を Common Lisp で塔の状態を表示しながら解いてみます。 ;; 三つある塔それぞれを表現します。 ;; 三つの塔を作ります。 ;; 塔"A"の重ねてあるリングを塔"B"に移動したい。 (setq tower-a '("A" (1 2 3 4))) (setq tower-b '("B" ())) (setq tower-c '("C" ())) ;; 塔の状態を表示する関数 (defun show-tw (tower) (format t "~A:~A~%" (car tower) (reverse (cadr tower)))… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsirocco.hatenadiary.org%2Fentry%2F20100823%2F1282563554" title="Common Lisp でハノイの塔を解いてみる。 - sirocco の書いてもすぐに忘れるメモ" 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 2010-08-23 20:39:14 rich https://sirocco.hatenadiary.org/entry/20100823/1282563554 1.0 100%