Gecko [ goons4good.org ]

Name	Size	Permission	Date
5x5.elc	20.63 KB	-rw-r--r--	2023-06-07 04:11
animate.elc	4.37 KB	-rw-r--r--	2023-06-07 04:11
blackbox.elc	10.93 KB	-rw-r--r--	2023-06-07 04:11
bubbles.elc	43.68 KB	-rw-r--r--	2023-06-07 04:11
cookie1.elc	3.48 KB	-rw-r--r--	2023-06-07 04:11
decipher.elc	22.1 KB	-rw-r--r--	2023-06-07 04:11
dissociate.elc	1.96 KB	-rw-r--r--	2023-06-07 04:11
doctor.elc	49.27 KB	-rw-r--r--	2023-06-07 04:11
dunnet.elc	85.34 KB	-rw-r--r--	2023-06-07 04:11
fortune.elc	7.68 KB	-rw-r--r--	2023-06-07 04:11
gamegrid.elc	13.93 KB	-rw-r--r--	2023-06-07 04:11
gametree.elc	19.01 KB	-rw-r--r--	2023-06-07 04:11
gomoku.elc	28.9 KB	-rw-r--r--	2023-06-07 04:11
handwrite.elc	58.43 KB	-rw-r--r--	2023-06-07 04:11
hanoi.elc	9.37 KB	-rw-r--r--	2023-06-07 04:11
landmark.elc	39.89 KB	-rw-r--r--	2023-06-07 04:11
life.elc	6.84 KB	-rw-r--r--	2023-06-07 04:11
meese.elc	1.04 KB	-rw-r--r--	2023-06-07 04:11
morse.elc	4.22 KB	-rw-r--r--	2023-06-07 04:11
mpuz.elc	12.93 KB	-rw-r--r--	2023-06-07 04:11
pong.elc	9.94 KB	-rw-r--r--	2023-06-07 04:11
snake.elc	9.76 KB	-rw-r--r--	2023-06-07 04:11
solitaire.elc	13.38 KB	-rw-r--r--	2023-06-07 04:11
spook.elc	1.51 KB	-rw-r--r--	2023-06-07 04:11
studly.elc	1.37 KB	-rw-r--r--	2023-06-07 04:11
yow.elc	3.43 KB	-rw-r--r--	2023-06-07 04:11
zone.elc	14.97 KB	-rw-r--r--	2023-06-07 04:11

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:11:38 2023
;;; 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 (#$ . 1699) (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 (#$ . 2013) 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 (#$ . 2561) 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\315S]\"G\n\203 �\316\202!�\317\n\203*�\320\202+�\316/\321\f\322_\\\n\203;�\323 \202=�\324 S]\2110\325Z\322\245\2111\325\24520\325\245301T\325\245Z4234E5\322\315\n\203q�\324 \202s�\323 S\325\\Z]^6\311\21178\311\2119:\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\245ZA\311B\fC\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\210TF\3430\334\"G5H\311\211?B\311IH:\203\327H@\211?\f\325\245Z\211B\f\\I\335BIDG$\210BJIKJKW\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)5M\311\211?N\311\211OPM:\203RM@?89?_\\\211N:\325\\_\\\211ONBPBPMA\211M\202#P\237-1\fZ\325\245^QSR\311\211ST\313\346\f\"U\311\211VW\311XR\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 (#$ . 3130)])
#@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 (#$ . 5967)])
(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\307AW\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\306AAZ\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�\307A\310\211\310W\203l�\fW\203?�\202F�\311A\312#\n_\\\f\n_\\\313\211T\211T$\210T\211\202.�-\202\243�A\\\fA\\\314\fZ!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\246U?\207	\f\\Y\207" [hanoi-horizontal-flag pos fly-step fly-row-start baseward-step] 3])
(provide 'hanoi)