汉诺塔第K步移法

aimisiyou · 发表于 2016-4-22 21:01:07

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 aimisiyou 于 2017-7-15 12:27 编辑

;;;假定借助B将A上的圆盘移动至C
(defun c:hnt ()
  (setq n (getint "请输入汉诺塔圆盘个数N="))
  (setq k (getint "请输入第几次移动步骤K="))
  (if (or (> n 30) (>= k (lsh 2 (- n 1))))
   (alert "移动序号超出范围，请重新输入移动步骤K")
   (progn
         (setq i 0)
         (while (= (rem k 2) 0)
            (setq k (lsh k -1))
            (setq i (+ i 1))
         )
         (setq j (/ (+ k 1) 2))
         (if (= (rem (- n i) 2) 0)
            (setq va (assoc (rem j 3) '((1 . AB)(2 . BC)(0 . CA))))
            (setq va (assoc (rem j 3) '((1 . AC)(2 . CB)(0 . BA))))
         )
         (cdr va)
      )
   )
)

newer · 发表于 2016-4-23 00:15:56

欢迎多点算法的探讨。学程序设计的时候老师就说：算法是基础，数据结构是桥梁。

/db_自贡黄明儒_ · 发表于 2016-4-24 21:02:30

没看明白，有注解就好了

aimisiyou · 发表于 2016-4-25 11:14:01

所有的步骤构成一个满二叉树，找到步骤K在二叉树中的位置，然后判断其值！

账号		自动登录	找回密码
密码			立即注册

[研讨] 汉诺塔第K步移法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。