Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.20
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
play /
[ HOME SHELL ]
Name
Size
Permission
Action
5x5.elc
21.99
KB
-rw-r--r--
animate.elc
4.35
KB
-rw-r--r--
blackbox.elc
12.57
KB
-rw-r--r--
bubbles.elc
46.72
KB
-rw-r--r--
cookie1.elc
6.78
KB
-rw-r--r--
decipher.elc
21.75
KB
-rw-r--r--
dissociate.elc
1.82
KB
-rw-r--r--
doctor.elc
48.91
KB
-rw-r--r--
dunnet.elc
86.95
KB
-rw-r--r--
fortune.elc
8.19
KB
-rw-r--r--
gamegrid.elc
15.54
KB
-rw-r--r--
gametree.elc
18.81
KB
-rw-r--r--
gomoku.elc
28.48
KB
-rw-r--r--
handwrite.elc
58.29
KB
-rw-r--r--
hanoi.elc
9.21
KB
-rw-r--r--
life.elc
8.56
KB
-rw-r--r--
morse.elc
4.14
KB
-rw-r--r--
mpuz.elc
14.08
KB
-rw-r--r--
pong.elc
9.95
KB
-rw-r--r--
snake.elc
12.23
KB
-rw-r--r--
solitaire.elc
13.1
KB
-rw-r--r--
spook.elc
1.37
KB
-rw-r--r--
studly.elc
1.31
KB
-rw-r--r--
tetris.elc
17.37
KB
-rw-r--r--
zone.elc
14.64
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : hanoi.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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 (#$ . 1558) (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 (#$ . 1872) 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 (#$ . 2420) 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 /\325Z\322\245\211 0\325\245 1/\325\245 2/0T\325\245Z 3123E 4\322\315\n\203q \324 \202s \323 S\325 \\Z]^ 5\311\211 6 7\311\211 8 9\311:\326 \210\327; \203G\3305 \322#\2116S768\3319/ <<S\211<\315Y\203\336 5\315U\204\321 \332\3335S\"\210.c\210\334`S`=#\210\332\333\325 \\\"\210\335c\210\202\254 )\336\331!\2104\311 >\211 ?\203C?@\211>\f\325\245Z @\311 A\f B\330@6_5\337#ABS\211B\315Y\2039\340A\330A \337#\333 $\210\334A\330A \337#C#\210@T@\202 +?A\211?\204\356 *\202/T6\337869\341\324 S \325\\5# D\332\335\315D]\"\210`7\332\333/\"\210\335c\210 T E\342/\333\" F4 G\311\211 > A\311 HG:\203\327G@\211>\f\325\245Z\211A\f\\H\334AHCF$\210A IH JIJW\203\315FI I\210IT\211I\202\267*GA\211G\202\215F- KES\211E\315Y\203\360K\335\261\210\202\334*\332./\"\210\334`/Z`=#\210\343\344 9\315D[]_T\"\210)4 L\311\211 > M\311\211 N OL:\203RL@>78>_\\\211M9\325 \\_\\\211NMBOBOLA\211L\202#O\237- 0\fZ\325\245^ P S Q\311\211 R S\313\345\f\" T\311\211 U V\311 WQ\315Y\203\373QP_ \245TR\f\325R_\\S\n\203\232\346\202\233\347\342RS\n\203\247\317\202\250\316\"\313TQ\"\342RS\n\203\273\317\202\274\316\"\n\203\305\350\202\306\351\260U\352Q\337\"\337=\203\331X\202\333YV\334\315UGVU$\210USBWBWQS\211Q\202{W\237.\311\211 Z [ \\ ]\353^\\]@]A@\325]8_&\210,\354\355!.\207" [show-trailing-whitespace hanoi-horizontal-flag vert nrings pole-width pole-char switch-to-buffer "*Hanoi*" buffer-disable-undo nil #[nil "\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 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 start-time] 8 (#$ . 2989)]) #@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 (#$ . 5807)]) (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\n@\307U\2030 \310@ \"\210\311A\f \312@ \313\nAA \f &$%\207\310@ \"\210\313\nAA\f &\207" [rings start-time bits from work to hanoi-sit-for 0 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\273 \313 \314 ! \245 !\313 \"\315 #Z\211 W\203\267 \316 !\"\"\317 \"!\"\210\320\"!_ Z!\210\202\212 +\202\342 \307 \" $\"$X\203\341 \317 \"!\"\210\320\321!\210\"\310\\\211\"\202\304 *\317 @\"\210 \205\362 # \\. \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)
Close
