PPT Slide

Tower of Hanoi Program Example

(defun TowerOfHanoi nil

(print '(Enter number of disks) )

(setf disks (read) )

(Transfer '1 '3 '2 disks) )

(defun MoveDisk (Frompin Topin)

(print (list Frompin '--> Topin) )

(terpri) )

(defun Transfer (Frompin Topin Usingpin Height)

(cond

( (equal Height 1) (MoveDisk Frompin Topin ) )

( T (Transfer Frompin Usingpin Topin (1- Height) )

(MoveDisk Frompin Topin )

(Transfer Usingpin Topin Frompin (1- Height) )

)

)

)

1.63

Previous slide

Back to first slide

View graphic version