src/hanoi.lisp @ 6eccaf72df12
Finish cleanup
author | Steve Losh <steve@stevelosh.com> |
---|---|
date | Fri, 26 Jan 2018 21:55:45 -0500 |
parents | 09407f2a9764 |
children | (none) |
(defpackage :sand.hanoi (:use :cl :losh :sand.quickutils)) (in-package :sand.hanoi) (defun move (disc from to) (format t "Move disc ~D from ~D to ~D~%" disc from to)) (defun hanoi (n) (recursively ((disc n) (from 1) (to 3) (using 2)) (when (plusp disc) (recur (1- disc) from using to) (move disc from to) (recur (1- disc) using to from))) (values))