;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Thu Jul 8 15:06:22 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/hanoi.el ;;; emacs version 19.16.6. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (defalias (quote hanoi-topos) #[(row col) "À !ˆÂyˆ u‡" [goto-line row 0 col] 2]) (defalias 'hanoi #[(nrings) "ÁXƒ\nÂÃ!ˆÄÄÇÈ !ÉÈ ! Ê Ë¥Ì\" Î\\TYƒ= V„eÑ ˆÇÈ !‰Yƒ]Ê Ë¥Ì\"‰ V„eÂÒ#ˆÓZVƒvÓZ‚x* ZÔZ B Ó_ B Õ_ BÖÄ\"ÁÁWƒÍÜÄ݉Ó\\\\Þ\\\"݉Ó\\\\ß\"#IˆT‰‚¡)àá!ˆÄ\"ãp!ˆä ˆÁ WƒøTåß S\"ˆæcˆ‚ß)åç S\"ˆÔ((ËWƒ@é( _\"ˆ(ê\\( Wƒ<TëÔ!ˆìcˆíÔ!ˆîÔ!ˆ‚)‚)ÁÄ/‰Wƒ…ZÔZH‰/Á ZIˆéA@ZZ\"ˆð/ñÄ#ˆ‰AS¡ˆT‰‚H*ñ\"òÁ!ˆóS$ˆebˆôõ!ˆñ\"ö÷ !ˆòÁ!.\n‡" [nrings 0 error "Negative number of rings" nil floor-row fly-row window-height selected-window window-width logand 6 -2 pole-spacing 4 w h delete-other-windows "Screen is too small (need at least %dx%d)" 3 1 5 make-vector rings pole-3 pole-2 pole-1 i vector make-string 48 32 switch-to-buffer "*Hanoi*" buffer-read-only buffer-disable-undo erase-buffer insert-char 10 61 n hanoi-topos 2 next-line 124 delete-char backward-char ring hanoi-draw-ring t sit-for hanoi0 message "Done" set-buffer-modified-p buffer-modified-p] 10 "\ Towers of Hanoi diversion. Argument is number of rings." (list (if (null current-prefix-arg) 3 (prefix-numeric-value current-prefix-arg)))]) (byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÀÅÆ\"ˆÇÈ!‡" [defalias hanoi0 #[(n from to work) "À ƒ ÁÂÃC\"‡ ÅW†.Æ S $ˆÊ  #ˆÆ S $‡" [input-pending-p signal quit "I can tell you've had enough" n 0 hanoi0 from work to hanoi-move-ring] 5] hanoi-move-ring #[(n from to) " H‰ÅH@ ZÇZ@ ZÇZA \n  Í  \"ˆ VƒNÏ ÂÐ#ˆÑÇ!ˆÏ ÐÂ#ˆÒÅ!ˆ S‰ ‚+‰AT¡ˆ\n š„¥\n VƒÇˆÓÔ!ˆÅyˆÕ‰±ˆÒÅ!ˆ TT ‚U\n WƒUÅyˆÖÔ!ˆÇˆÕ‰±ˆÒÅ!ˆ SS ‚UÍ\n\"ˆ  WƒÕÏ Â V#ˆ×Ç!ˆÏ ÐÂ#ˆÒÅ!ˆ T‰ ‚® Å Iˆ‰AS¡.‡" [rings n nil buffer-read-only ring 0 from 1 to dst-row dst-col col row hanoi-topos fly-row hanoi-draw-ring t previous-line sit-for delete-backward-char 2 32 delete-char next-line] 6] hanoi-draw-ring #[(ring f1 f2) "Šƒ ÂH‚ ÃH‰GÆ !ˆ cˆ…,È Â\\Ã¥!ˆÆÂ!ˆÉc+‡" [f1 ring 1 2 string len delete-char f2 backward-char 124] 4] provide hanoi] 3)