Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
play /
[ HOME SHELL ]
Name
Size
Permission
Action
5x5.elc
13.7
KB
-rw-r--r--
animate.elc
3.86
KB
-rw-r--r--
blackbox.elc
11.03
KB
-rw-r--r--
bruce.el
6.03
KB
-rw-r--r--
bubbles.elc
45.33
KB
-rw-r--r--
cookie1.elc
3.47
KB
-rw-r--r--
decipher.elc
23.06
KB
-rw-r--r--
dissociate.elc
2.08
KB
-rw-r--r--
doctor.elc
45.54
KB
-rw-r--r--
dunnet.elc
85.74
KB
-rw-r--r--
fortune.elc
8.4
KB
-rw-r--r--
gamegrid.elc
14.69
KB
-rw-r--r--
gametree.elc
18.55
KB
-rw-r--r--
gomoku.elc
27.57
KB
-rw-r--r--
handwrite.elc
59.95
KB
-rw-r--r--
hanoi.elc
9.95
KB
-rw-r--r--
landmark.elc
37.69
KB
-rw-r--r--
life.elc
7.21
KB
-rw-r--r--
meese.elc
1.1
KB
-rw-r--r--
morse.elc
2.4
KB
-rw-r--r--
mpuz.elc
13.52
KB
-rw-r--r--
pong.elc
10.99
KB
-rw-r--r--
snake.elc
10.59
KB
-rw-r--r--
solitaire.elc
12.81
KB
-rw-r--r--
spook.elc
1.59
KB
-rw-r--r--
studly.elc
1.43
KB
-rw-r--r--
yow.elc
3.25
KB
-rw-r--r--
zone.elc
15.12
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : hanoi.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:58 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/play/hanoi.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`hanoi.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'hanoi nil "The Towers of Hanoi." :group 'games) #@53 *If non-nil, hanoi poles are oriented horizontally. (custom-declare-variable 'hanoi-horizontal-flag 'nil '(#$ . -677) :group 'hanoi :type 'boolean) #@142 *Time, in seconds, for each pole-to-pole move of a ring. If nil, move rings as fast as possible while displaying all intermediate positions. (custom-declare-variable 'hanoi-move-period '1.0 '(#$ . -832) :group 'hanoi :type '(restricted-sexp :match-alternatives (numberp 'nil))) #@50 *If nil, all hanoi-*-face variables are ignored. (custom-declare-variable 'hanoi-use-faces 'nil '(#$ . -1116) :group 'hanoi :type 'boolean) #@54 *Face for poles. Ignored if hanoi-use-faces is nil. (custom-declare-variable 'hanoi-pole-face ''highlight '(#$ . -1262) :group 'hanoi :type 'face) #@53 *Face for base. Ignored if hanoi-use-faces is nil. (custom-declare-variable 'hanoi-base-face ''highlight '(#$ . -1416) :group 'hanoi :type 'face) #@68 *Face for even-numbered rings. Ignored if hanoi-use-faces is nil. (custom-declare-variable 'hanoi-even-ring-face ''region '(#$ . -1569) :group 'hanoi :type 'face) #@67 *Face for odd-numbered rings. Ignored if hanoi-use-faces is nil. (custom-declare-variable 'hanoi-odd-ring-face ''secondary-selection '(#$ . -1739) :group 'hanoi :type 'face) #@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 hanoi-current-time-float] 5 (#$ . 1920) (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 hanoi-current-time-float 32 nil t 0 expt 2.0 31 2.0 truncate mod 2.0 1.0 hanoi-internal hanoi-move-period] 5 (#$ . 2248) 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 hanoi-current-time-float 64 nil t 0 expt 2.0 63 2.0 truncate mod 2.0 1.0 hanoi-internal hanoi-move-period] 5 (#$ . 2810) 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< \203I\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 @?:\203E?@\211@\f\325\245Z A\311 B\f C\330A7_6\340#BCS\211C\315Y\203;\341B\330B \340#\334 $\210\335B\330B \340#D#\210ATA\202+?A\211?\202\354 *\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\331H@\211@\f\325\245Z\211B\f\\I\335BIDG$\210B JI KJKW\203\317GJ I\210JT\211J\202\271*HA\211H\202\217G- LFS\211F\315Y\203\362L\336\261\210\202\336*\333/0\"\210\335`0Z`>#\210\344\345 :\315E[]_T\"\210)5 M\311\211 @ N\311\211 O PM:\203TM@@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\375RQ_ \245TS\fS\325_\\T\n\203\234\347\202\235\350\343SS\n\203\251\317\202\252\316\"\313UR\"\343SS\n\203\275\317\202\276\316\"\n\203\307\351\202\310\352\260V\353R\340\"\340=\203\333Y\202\335ZW\335\315VGWV$\210VTBXBXRS\211R\202}X\237.\311\211 [ \\ ] ^\354_]^@^\211 `A@)^\211 `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 #2=#:--cl-var-- coord row start #3=#:--cl-var-- hanoi-pole-face extra-lines #4=#:--cl-var-- line #5=#:--cl-var-- end i #6=#:--cl-var-- pole-line #7=#:--cl-var-- fly-pos base #8=#:--cl-var-- max-radius n radius diameter format-str str face #9=#:--cl-var-- hanoi-odd-ring-face hanoi-even-ring-face column-number-mode line-number-mode rings poles bits x start-time] 9 (#$ . 3393)]) #@63 Return values from current-time combined into a single float. (defalias 'hanoi-current-time-float #[nil "\304 \211G\305U\203 \211A@\202 \306\307\310GD\"\211A@@\311 \312_\n \313\245#,\207" [#1=#:--cl-rest-- high low micros current-time 3 signal wrong-number-of-arguments nil + 65536.0 1000000.0] 6 (#$ . 6236)]) #@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 (#$ . 6565)]) (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@ Z\240\210\n@@\nA\306\245 _Z \n@\240\210\f \f \307 \nA W\203X \310\f\211T\ff H$\210\311\f\211T\312 \"#\210\f \\\fT\211\202( ,\313@!*\207" [pole baseward-step ring fly-step start str 2 0 subst-char-in-region set-text-properties text-properties-at hanoi-goto-char pos #1=#:--cl-var-- i #2=#:--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@ \\\240\210\n\211@ Z\240\210 @AZ \245 \306\nAAZ \245! \nAAZ\245 \n@\nAZ \245 \307\f# \203F \310\202G \311 \203R \311\202S \310 \f_ _ _ \307# \312 \203\274 \313 \314 ! \245 \313 !\315 \"Z\211 W\203\270 \316 \245!!\317 !!\"\210\320! _ Z!\210\202\212 +\202\343 \310 ! #!#X\203\342 \317 !!\"\210\320\321!\210!\311\\\211!\202\305 *\317 \n@\"\210 \205\363 \" \\.\f\207" [from baseward-step to ring flyward-steps fly-step 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 hanoi-current-time-float ceiling hanoi-ring-to-pos hanoi-sit-for 0 fly-steps directed-fly-step baseward-steps total-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 #1=#:--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)
Close
