| Current Path : /usr/share/emacs/24.3/lisp/play/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/play/hanoi.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:36 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/play/hanoi.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305%\210\306\307\302\310\304\301\311\312&\210\306\313\314\315\304\301\311\316&\210\306\317\302\320\304\301\311\312&\210\306\321\322\323\304\301\311\324&\210\306\325\326\327\304\301\311\324&\210\306\330\331\332\304\301\311\324&\210\306\333\334\335\304\301\311\324&\207" [custom-declare-group hanoi nil "The Towers of Hanoi." :group games custom-declare-variable hanoi-horizontal-flag "If non-nil, hanoi poles are oriented horizontally." :type boolean hanoi-move-period 1.0 "Time, in seconds, for each pole-to-pole move of a ring.\nIf nil, move rings as fast as possible while displaying all\nintermediate positions." (restricted-sexp :match-alternatives (numberp 'nil)) hanoi-use-faces "If nil, all hanoi-*-face variables are ignored." hanoi-pole-face 'highlight "Face for poles. Ignored if hanoi-use-faces is nil." face hanoi-base-face 'highlight "Face for base. Ignored if hanoi-use-faces is nil." hanoi-even-ring-face 'region "Face for even-numbered rings. Ignored if hanoi-use-faces is nil." hanoi-odd-ring-face 'secondary-selection "Face for odd-numbered rings. Ignored if hanoi-use-faces is nil."] 8)
#@47 Towers of Hanoi diversion. Use NRINGS rings.
(defalias 'hanoi #[(nrings) "\301W\203\n \302\303!\210\304\305\301\"\306 #\207" [nrings 0 error "Negative number of rings" hanoi-internal make-list float-time] 5 (#$ . 1703) (list (if (null current-prefix-arg) 3 (prefix-numeric-value current-prefix-arg)))])
#@176 Towers of Hanoi, UNIX doomsday version.
Displays 32-ring towers that have been progressing at one move per
second since 1970-01-01 00:00:00 GMT.
Repent before ring 31 moves.
(defalias 'hanoi-unix #[nil "\306\307 !\310\311\211\312 S\211\313Y\2035 \f\203# \314\315\316\"\245\202& \n\317_\320\321\n\322\"! B\311\202
\237, \323 \324\310
#+\207" [start #1=#:--cl-var-- x #2=#:--cl-var-- #3=#:--cl-var-- bits ftruncate float-time 32 nil t 0 expt 2.0 31 2.0 truncate mod 2.0 1.0 hanoi-internal hanoi-move-period] 5 (#$ . 2017) nil])
#@194 Like hanoi-unix, but pretend to have a 64-bit clock.
This is, necessarily (as of Emacs 20.3), a crock. When the
current-time interface is made s2G-compliant, hanoi.el will need
to be updated.
(defalias 'hanoi-unix-64 #[nil "\306\307 !\310\311\211\312 S\211\313Y\2035 \f\203# \314\315\316\"\245\202& \n\317_\320\321\n\322\"! B\311\202
\237, \323 \324\310
#+\207" [start #1=#:--cl-var-- x #2=#:--cl-var-- #3=#:--cl-var-- bits ftruncate float-time 64 nil t 0 expt 2.0 63 2.0 truncate mod 2.0 1.0 hanoi-internal hanoi-move-period] 5 (#$ . 2565) nil])
#@180 Towers of Hanoi internal interface. Use NRINGS rings.
Start after n steps, where BITS is a big-endian list of the bits of n.
BITS must be of length nrings. Start at START-TIME.
(defalias 'hanoi-internal #[(nrings bits start-time) "\306\307!\210\310p!\210\311\312\216 ?\313\314\315 S]\"G \n\203 \316\202! \317 \n\203* \320\202+ \316 /\321\f\322_\\\n\203; \323 \202= \324 S]\211 0\325Z\322\245\211 1\325\245 20\325\245 301T\325\245Z 4234E 5\322\315\n\203q \324 \202s \323 S\325 \\Z]^ 6\311\211 7 8\311\211 9 :\311;\326 \210\327< \203G\3306 \322#\2117S879\331:0 ==S\211=\315Y\203\336 \3326!\204\321 \333\3346S\"\210/c\210\335`S`>#\210\333\334\325 \\\"\210\336c\210\202\254 )\337\331!\2105\311 ?\211 @\203C@@\211?\f\325\245Z A\311 B\f C\330A7_6\340#BCS\211C\315Y\2039\341B\330B \340#\334
$\210\335B\330B \340#D#\210ATA\202 +@A\211@\204\356 *\2020T7\34097:\342\324 S \325\\6# E\333\336\315E]\"\210`8\333\3340\"\210\336c\210 T F\3430\334\" G5 H\311\211 ? B\311 IH:\203\327H@\211?\f\325\245Z\211B\f\\I\335BIDG$\210B JI KJKW\203\315GJ
I\210JT\211J\202\267*HA\211H\202\215G- LFS\211F\315Y\203\360L\336\261\210\202\334*\333/0\"\210\335`0Z`>#\210\344\345 :\315E[]_T\"\210)5 M\311\211 ? N\311\211 O PM:\203RM@?89?_\\\211N:\325 \\_\\\211ONBPBPMA\211M\202#P\237- 1\fZ\325\245^ Q S R\311\211 S T\313\346\f\" U\311\211 V W\311 XR\315Y\203\373RQ_ \245TS\fS\325_\\T\n\203\232\347\202\233\350\343SS\n\203\247\317\202\250\316\"\313UR\"\343SS\n\203\273\317\202\274\316\"\n\203\305\351\202\306\352\260V\353R\340\"\340=\203\331Y\202\333ZW\335\315VGWV$\210VTBXBXRS\211R\202{X\237.\311\211 [ \\ ] ^\354_]^@^\211 `A@)^AA@a&\210,\355\356!.\207" [show-trailing-whitespace hanoi-horizontal-flag vert nrings pole-width pole-char switch-to-buffer "*Hanoi*" buffer-disable-undo nil ((byte-code "\301\302 \207" [buffer-read-only t force-mode-line-update] 1)) format "%d" 0 124 45 61 8 3 window-width window-height 2 erase-buffer t + -1 zerop insert-char 32 hanoi-put-face 10 delete-char 1 subst-char-in-region - make-string set-window-start selected-window "%%0%dd" "<" "^" ">" "v" logand hanoi-n message "Done" base-char base-len max-ring-diameter pole1-coord pole2-coord pole3-coord pole-coords base-lines line-offset fly-row-start fly-step baseward-step buffer-read-only truncate-lines #1=#:--cl-var-- hanoi-base-face coord --dolist-tail-- row start #2=#:--cl-var-- hanoi-pole-face extra-lines #3=#:--cl-var-- line #4=#:--cl-var-- end i #5=#:--cl-var-- pole-line #6=#:--cl-var-- fly-pos base #7=#:--cl-var-- max-radius n radius diameter format-str str face #8=#:--cl-var-- hanoi-odd-ring-face hanoi-even-ring-face column-number-mode line-number-mode rings poles bits x start-time] 8 (#$ . 3134)])
#@74 If hanoi-use-faces is non-nil, call put-text-property for face property.
(defalias 'hanoi-put-face #[(start end value &optional object) "\205 \305 \n\306 \f%\207" [hanoi-use-faces start end value object put-text-property face] 6 (#$ . 5971)])
(defalias 'hanoi-0 #[(rings from to work start-time) "\204 \207\305A\n \f\306@\f \305A\f\n %$%\207" [rings start-time work to from hanoi-0 hanoi-move-ring] 15])
(defalias 'hanoi-n #[(bits rings from to work start-time) "\204\n \306\307!\210 \207\310\n@!\2030 \311@ \"\210\312A\f
\313@
\314\nAA \f
&$%\207\311@
\"\210\314\nAA\f
&\207" [rings start-time bits from work to hanoi-sit-for 0 zerop hanoi-insert-ring hanoi-0 hanoi-move-ring hanoi-n] 16])
(defalias 'hanoi-insert-ring #[(ring pole) "\211\211@\nZ\240\210) @@ A\306\245\f_Z \f @\240\210
\f \307 A W\203^ \310
\211T
f\fH$\210\311
\211T\312\f\"#\210
\\
T\211\202, ,\313@!*\207" [pole #1=#:v baseward-step ring fly-step start 2 0 subst-char-in-region set-text-properties text-properties-at hanoi-goto-char str pos #2=#:--cl-var-- i #3=#:--cl-var--] 7])
(defalias 'hanoi-goto-char #[(pos) "\204 \304 X\203 \202 \304 \nZ \246\\b\207" [hanoi-horizontal-flag pos fly-row-start baseward-step window-start] 3])
(defalias 'hanoi-move-ring #[(ring from to start-time) "\211\211@\n\\\240\210) \211 \211@\nZ\240\210)
@AZ\n\245 \306 AAZ\245! AAZ\245 @ AZ\n\245 \203E \307\202F \310 \203Q \310\202R \307 _ _ _ \311 # \312 \203\274 \313 \314 ! \245 !\313 \"\315 #Z\211 W\203\270 \316 !\245!\"\317
\"!\"\210\320\"!_ Z!\210\202\212 +\202\343 \307 \" $\"$X\203\342 \317
\"!\"\210\320\321!\210\"\310\\\211\"\202\305 *\317
@\"\210 \205\363 # \\. \207" [from #1=#:v baseward-step to #2=#:v ring abs 1 2 + #[(tick) " X\203 \nA \f
\245Z_\\\207 \\X\203' \nA Z \245_\\\207\nA \306 #
\245_\\\207" [tick flyward-ticks from baseward-step flyward-steps ticks-per-pole-step - fly-ticks directed-fly-step ticks-per-fly-step to] 6] nil float float-time ceiling hanoi-ring-to-pos hanoi-sit-for 0 flyward-steps fly-step fly-steps directed-fly-step baseward-steps hanoi-horizontal-flag ticks-per-pole-step ticks-per-fly-step flyward-ticks fly-ticks baseward-ticks total-ticks tick-to-pos hanoi-move-period elapsed tick-period tick start-time #3=#:--cl-var--] 5])
(defalias 'hanoi-sit-for #[(seconds) "\301!?\205 \302\303\304\"\207" [seconds sit-for signal quit ("I can tell you've had enough")] 3])
(defalias 'hanoi-ring-to-pos #[(ring pos) "@ U\2049@A\306\245\n_Z @ ZZ
\203p \307 A \310\211 \310 W\203l \f W\203? \202F \311A\312# \n_\\\f\n_\\\313\211T\211T$\210T\211\202. -\202\243 A\\\fA\\ \314\f Z! ZW\203\230 \fW\203\225 \202\230 \313 \f\315%\210**\316@!\316 !=\2045@\n\306\245_Z\211 \n_\\ \316@!\211 \203\321 \202\322 \317 \203\335 \317\202\337 \205\350 ! \"
\203 #$ % #W\203\320 \211T $\210\321 \211T\"#\210 %\\\211\202\372 +\2023\320 $\210\321 \"#\210. \240\210\322 !\207" [ring pos fly-step start new-start hanoi-horizontal-flag 2 0 nil - 1 transpose-regions abs t hanoi-pos-on-tower-p 32 subst-char-in-region hanoi-put-face hanoi-goto-char i #1=#:--cl-var-- j old-pos new-pos new-end end pole-width pole-start pole-end on-pole pole-char new-char curr-char hanoi-pole-face face #2=#:--cl-var-- line-offset #3=#:--cl-var--] 7])
(defalias 'hanoi-pos-on-tower-p #[(pos) "\203 \n\246 U?\207 \f\\Y\207" [hanoi-horizontal-flag pos fly-step fly-row-start baseward-step] 3])
(provide 'hanoi)