;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue Apr 25 18:00:51 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/hanoi.el ;;; emacs version 19.28.90.40. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/hanoi.el' was compiled for Emacs 19")) (defalias 'hanoi-topos #[(row col) "À !ˆÂyˆ u‡" [goto-line row 0 col] 2]) #@58 Towers of Hanoi diversion. Argument is number of rings. (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" force-mode-line-update] 10 (#$ . 553) (list (if (null current-prefix-arg) 3 (prefix-numeric-value current-prefix-arg)))]) (defalias 'hanoi0 #[(n from to work) "À ƒ ÁÂÃC\"‡\fÅW†.Æ\fS $ˆÊ\f #ˆÆ\fS $‡" [input-pending-p signal quit "I can tell you've had enough" n 0 hanoi0 from work to hanoi-move-ring] 5]) (defalias 'hanoi-move-ring #[(n from to) " H‰ÅH@ ZÇZ@ ZÇZA \n \fÍ\f \"ˆ\fVƒNÏ\fÂÐ#ˆÑÇ!ˆÏ\fÐÂ#ˆÒÅ!ˆ\fS‰\f‚+‰AT¡ˆ\n š„¥\n VƒÇˆÓÔ!ˆÅyˆÕ‰±ˆÒÅ!ˆ TT ‚U\n WƒUÅyˆÖÔ!ˆÇˆÕ‰±ˆÒÅ!ˆ SS ‚UÍ\n\"ˆ\f WƒÕÏ\fÂ\fV#ˆ×Ç!ˆÏ\fÐÂ#ˆÒÅ!ˆ\fT‰\f‚®\fÅ 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]) (defalias 'hanoi-draw-ring #[(ring f1 f2) "Šƒ ÂH‚ ÃH‰GÆ !ˆ\fcˆ…,È Â\\Ã¥!ˆÆÂ!ˆÉc+‡" [f1 ring 1 2 string len delete-char f2 backward-char 124] 4]) (provide (quote hanoi))