X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Ftest%2Fhanoi.lisp;h=7a25656c06e1a7e5903d8921e5e311ffb19a5954;hb=daa06c8dedc6dc1cf21936ee2769d9d25f0567bd;hp=387e696ae55de1df681ce3ff0bc1bac8ed66e92b;hpb=c8f9db184cc929ebde845730a6d4b7864e423a84;p=fw%2Faltos

diff --git a/src/test/hanoi.lisp b/src/test/hanoi.lisp
index 387e696a..7a25656c 100644
--- a/src/test/hanoi.lisp
+++ b/src/test/hanoi.lisp
@@ -126,7 +126,7 @@
     (setq stacks (replace stacks from from-stack))
     (setq stacks (replace stacks to to-stack))
     (display)
-    (delay 100)
+;    (delay 100)
     )
   )
 
@@ -158,3 +158,12 @@
   (clear)
   (_hanoi len 0 1 2)
   )
+
+(defun hanois(n)
+  (while (> n 0)
+    (progn
+      (hanoi)
+      (setq l (1- l))
+      )
+    )
+  )