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 : mpuz.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:59 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/play/mpuz.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 "`mpuz.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305\306\307&\210\310\311!\207" [custom-declare-group mpuz nil "Multiplication puzzle." :prefix "mpuz-" :group games random t] 8) #@111 *Set this to nil if you want dings on inputs. t means never ding, and `error' means only ding on wrong input. (custom-declare-variable 'mpuz-silent ''error '(#$ . -768) :type '(choice (const :tag "No" nil) (const :tag "Yes" t) (const :tag "If correct" error)) :group 'mpuz) #@73 *Solve any row that can be trivially calculated from what you've found. (custom-declare-variable 'mpuz-solve-when-trivial 't '(#$ . -1048) :type 'boolean :group 'mpuz) #@35 *Allow 2nd factors like 33 or 77. (custom-declare-variable 'mpuz-allow-double-multiplicator 'nil '(#$ . -1222) :type 'boolean :group 'mpuz) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\316\304\305%\207" [custom-declare-face mpuz-unsolved ((((class color)) (:foreground "red1" :bold t)) (t (:bold t))) "*Face to use for letters to be solved." :group mpuz mpuz-solved ((((class color)) (:foreground "green1" :bold t)) (t (:bold t))) "*Face to use for solved digits." mpuz-trivial ((((class color)) (:foreground "blue" :bold t)) (t (:bold t))) "*Face to use for trivial digits solved for you." mpuz-text ((t (:inherit variable-pitch))) "*Face to use for text on right."] 6) #@33 Hook to run upon entry to mpuz. (custom-declare-variable 'mpuz-mode-hook 'nil '(#$ . 1966) :type 'hook :group 'mpuz) #@37 Local keymap to use in Mult Puzzle. (defvar mpuz-mode-map nil (#$ . 2089)) (byte-code "\204\213 \301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\304#\210\302\310\304#\210\302\311\304#\210\302\312\304#\210\302\313\304#\210\302\314\304#\210\302\315\304#\210\302\316\304#\210\302\317\304#\210\302\320\304#\210\302\321\304#\210\302\322\304#\210\302\323\304#\210\302\324\304#\210\302\325\304#\210\302\326\304#\210\302\327\304#\210\302\330\331#\210\302\332\333#\210\301\207" [mpuz-mode-map make-sparse-keymap define-key "a" mpuz-try-letter "b" "c" "d" "e" "f" "g" "h" "i" "j" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "" mpuz-offer-abort "?" describe-mode] 4) #@456 Multiplication puzzle mode. You have to guess which letters stand for which digits in the multiplication displayed inside the `*Mult Puzzle*' buffer. You may enter a guess for a letter's value by typing first the letter, then the digit. Thus, to guess that A=3, type `A 3'. To leave the game to do other editing work, just switch buffers. Then you may resume the game with M-x mpuz. You may abort a game by typing \<mpuz-mode-map>\[mpuz-offer-abort]. (defalias 'mpuz-mode #[nil "\304 \210\305\306\307\310 !\210\311\312!\207" [major-mode mode-name tab-width mpuz-mode-map kill-all-local-variables mpuz-mode "Mult Puzzle" 30 use-local-map run-mode-hooks mpuz-mode-hook] 2 (#$ . 2789) nil]) #@40 Number of errors made in current game. (defvar mpuz-nb-errors 0 (#$ . 3490)) #@28 Number of games completed. (defvar mpuz-nb-completed-games 0 (#$ . 3573)) #@42 Number of errors made in previous games. (defvar mpuz-nb-cumulated-errors 0 (#$ . 3653)) #@42 True if a game is currently in progress. (defvar mpuz-in-progress nil (#$ . 3748)) #@54 A vector recording which digits have been decrypted. (defvar mpuz-found-digits (make-bool-vector 10 nil) (#$ . 3837)) #@59 A vector recording which digits have been solved for you. (defvar mpuz-trivial-digits (make-bool-vector 10 nil) (#$ . 3961)) (defalias 'mpuz-digit-solved-p '(macro . #[(digit) "\301\302\303E\302\304EE\207" [digit or aref mpuz-found-digits mpuz-trivial-digits] 5])) #@38 A permutation from [0..9] to [0..9]. (defvar mpuz-digit-to-letter (make-vector 10 0) (#$ . 4234)) #@38 The inverse of mpuz-digit-to-letter. (defvar mpuz-letter-to-digit (make-vector 10 0) (#$ . 4338)) (defalias 'mpuz-to-digit '(macro . #[(letter) "\301\302E\207" [letter aref mpuz-letter-to-digit] 3])) (defalias 'mpuz-to-letter '(macro . #[(digit) "\301\302E\207" [digit aref mpuz-digit-to-letter] 3])) #@53 Initialize puzzle coding with a random permutation. (defalias 'mpuz-build-random-perm #[nil "\305\306\307\310\311\312\313\314\315\316\257\n\317\320\n\2050 \321 !\n8\322\n\" S I\210\f I\210\202 +\207" [elem index letters mpuz-digit-to-letter mpuz-letter-to-digit 0 1 2 3 4 5 6 7 8 9 10 nil random delq] 10 (#$ . 4647)]) #@73 The board associates to any digit the list of squares where it appears. (defvar mpuz-board (make-vector 10 nil) (#$ . 4983)) #@68 Put (last digit of) NUMBER on ROW and COLUMNS of the puzzle board. (defalias 'mpuz-put-number-on-board #[(number row &rest l) "\305 \205\" \n\306\246\n\306\245 \f @B HBI\210 A\211\204 \305)\207" [digit l number mpuz-board row nil 10] 6 (#$ . 5114)]) #@61 Check whether all digits have been solved. Return t if yes. (defalias 'mpuz-check-all-solved #[(&optional row col) "\300\301\215\207" [solved (byte-code "\306\211\211\211\211\211\211 \203\370 \204\370 \206! \307\310\311\"\f\206* \307\310\312\" \2062 \307\313!\206; \307\314!\211\203I \203I \f\204Z \203g \204Z \203g \f\203g \315 \210\316 \210\317\320\321\"\202\365 \n\206n \307\322! \206v \307\323!\211\203\211 \n\203\211 \204\211 \315\313!\202\365 \203\241 \n=\204\241 \315\n\203\234 \323\202\235 \322!\202\365 \203\277 \f =\204\277 \315 \203\265 \310\202\266 \323 \205\273 \312\"\202\365 \203\335 \n=\204\335 \315\n\203\323 \310\202\324 \322\n\205\331 \311\"\202\365 \204\370 \f\203\352 \204\362 \203\370 \n\203\370 \315\314!\204 \316 \210\324\325\326\"\210.\321\207" [squares E D C B2 B1 nil mpuz-check-all-solved 4 7 9 10 2 mpuz-solve mpuz-paint-board throw solved t 8 6 mapc #[(digit) " H\206 \n H?\2055 H\211\2055 \203- \203' B\f\235\202. \f\236\202. \f\2055 \306\307\310\"\207" [mpuz-found-digits digit mpuz-trivial-digits mpuz-board squares row throw solved nil col] 3] [0 1 2 3 4 5 6 7 8 9] A mpuz-solve-when-trivial row] 7)] 2 (#$ . 5377)]) #@50 Draw random values to be multiplied in a puzzle. (defalias 'mpuz-random-puzzle #[nil "\306 \210\307\310\"\210 \203 \311\312\313!\\\202 \314\312\315!\\\316\n\245T\211\312\317 Z!\\ \310\211 \310\211 \f \312\317 Z!\\\211U\203D \2032 \n _\n\f_\317_\\ \320\n\321\322\323\324%\210\320\f\317_ \\\325\322\323$\210\320\326\322\323\324\327&\210\320\330\323\324\327\331&\210\320 \317\322\323\324\327\331&.\207" [mpuz-board mpuz-allow-double-multiplicator A min B1 B2 mpuz-build-random-perm fillarray nil 112 random 888 125 875 999 10 mpuz-put-number-on-board 2 9 7 5 4 6 3 8 1 C D E] 9 (#$ . 6586)]) #@56 The general picture of the puzzle screen, as a string. (defconst mpuz-framework "\n . . .\n Number of errors (this game): 0\n x . .\n -------\n . . . .\n Number of completed games: 0\n . . . .\n --------- Average number of errors: 0.00\n . . . . ." (#$ . 7211)) #@52 Create (or recreate) the puzzle buffer. Return it. (defalias 'mpuz-create-buffer #[nil "\304\305!\306\307\212\nq\210\310 \210 c\210\311\312\313 #\210\311\314\315 #\210\311\316\317 #\210\320 \210\321 \210\322 \210)\n+\207" [buffer-read-only face buf mpuz-framework get-buffer-create "*Mult Puzzle*" (face mpuz-text) nil erase-buffer set-text-properties 13 42 79 105 128 153 mpuz-paint-board mpuz-paint-errors mpuz-paint-statistics] 4 (#$ . 7491)]) (defalias 'mpuz-paint-number #[(n &optional eol words) "\210\304`\n\206 \305[v\210`|\210 c)\207" [eol buffer-read-only words n nil 1] 2]) #@41 Paint error count on the puzzle screen. (defalias 'mpuz-paint-errors #[nil "\301 \210\302\303!\210\304\305!!\207" [mpuz-nb-errors mpuz-switch-to-window goto-line 3 mpuz-paint-number prin1-to-string] 3 (#$ . 8089)]) #@61 Paint statistics about previous games on the puzzle screen. (defalias 'mpuz-paint-statistics #[nil "\302\303!\210\304\305!!\210\304\306\307\310!\203 \311\202 \312 \\\245\"\313\314#\207" [mpuz-nb-completed-games mpuz-nb-cumulated-errors goto-line 7 mpuz-paint-number prin1-to-string format "%.2f" zerop 0 0.0 3 2] 5 (#$ . 8311)]) #@45 Paint board situation on the puzzle screen. (defalias 'mpuz-paint-board #[nil "\300 \210\301\302\303\"\210eb\207" [mpuz-switch-to-window mapc mpuz-paint-digit [0 1 2 3 4 5 6 7 8 9]] 3 (#$ . 8651)]) #@53 Paint all occurrences of DIGIT on the puzzle board. (defalias 'mpuz-paint-digit #[(digit) " H\204\f \n H\203 \306\\\202 H\307\\\305\n H\203\" \310\202- H\203, \311\202- \312D\313 \314\315 H\"+\207" [mpuz-found-digits digit mpuz-trivial-digits mpuz-digit-to-letter buffer-read-only face 48 65 mpuz-trivial mpuz-solved mpuz-unsolved nil mapc #[(square) "\303@!\210\304A!\210 c\210\305`S`\n#\210\306\307!\207" [square char face goto-line move-to-column set-text-properties delete-char 1] 4] char mpuz-board] 4 (#$ . 8855)]) #@37 Get the puzzle buffer if it exists. (defalias 'mpuz-get-buffer #[nil "\300\301!\207" [get-buffer "*Mult Puzzle*"] 2 (#$ . 9397)]) #@56 Find or create the Mult-Puzzle buffer, and display it. (defalias 'mpuz-switch-to-window #[nil "\302 \211\204\n \303 \304!\210\305\306 )\207" [buf buffer-read-only mpuz-get-buffer mpuz-create-buffer switch-to-buffer t mpuz-mode] 3 (#$ . 9533)]) #@21 Start a new puzzle. (defalias 'mpuz-start-new-game #[nil "\304\305!\210\306\307\310\n\311\"\210\310 \311\"\210\312 \210\313 \210\314 \210\315 \210\316 \207" [mpuz-nb-errors mpuz-in-progress mpuz-found-digits mpuz-trivial-digits message "Here we go..." 0 t fillarray nil mpuz-random-puzzle mpuz-switch-to-window mpuz-paint-board mpuz-paint-errors mpuz-ask-for-try] 3 (#$ . 9787)]) #@39 Multiplication puzzle with GNU Emacs. (defalias 'mpuz #[nil "\301 \210\203\n \302 \207\303 \207" [mpuz-in-progress mpuz-switch-to-window mpuz-offer-abort mpuz-start-new-game] 1 (#$ . 10175) nil]) #@44 Ask if user wants to abort current puzzle. (defalias 'mpuz-offer-abort #[nil "\304\305!\203 \306 \307\310!\210\311\312\313 \311\"\210\205 \314!)\207\315 \207" [buf mpuz-in-progress mpuz-nb-errors mpuz-board y-or-n-p "Abort game? " mpuz-get-buffer message "Mult Puzzle aborted." nil 0 fillarray kill-buffer mpuz-ask-for-try] 3 (#$ . 10378) nil]) #@34 Ask for user proposal in puzzle. (defalias 'mpuz-ask-for-try #[nil "\300\301!\207" [message "Your try?"] 2 (#$ . 10736)]) #@57 Dings, unless global variable `mpuz-silent' forbids it. (defalias 'mpuz-ding #[(error) "\302=\206 \204 \303\302!\207 \205 \303\302!\207" [mpuz-silent error t ding] 2 (#$ . 10864)]) #@41 Propose a digit for a letter in puzzle. (defalias 'mpuz-try-letter #[nil "\203p \306\211\211\211 \226\f\307ZH H\204$ H\203/ \301\310\f\"\210\311\312!\202n H\204A \301\313\f\"\210\311\312!\202n \301\314\f\"\210\315 \211\316=\203R \315 \n\317V\204^ \n\320W\203j \301\321\f\n#\210\311\312!\202n \322\f\n\",\207\323\324!\203y \325 \207\301\326!\207" [mpuz-in-progress message digit-char digit letter-char last-command-event nil 65 "%c already solved." mpuz-ding t "%c does not appear." "%c = " read-char 61 57 48 "%c = %c" mpuz-try-proposal y-or-n-p "Start a new game? " mpuz-start-new-game "OK. I won't." mpuz-letter-to-digit mpuz-found-digits mpuz-trivial-digits mpuz-board] 5 (#$ . 11056) nil]) #@45 Propose LETTER-CHAR as code for DIGIT-CHAR. (defalias 'mpuz-try-proposal #[(letter-char digit-char) "\306Z\n\307Z\f H H\204 H\203' \310\311 \307\\\"\202m H\2045 H\203< \310\312\n\"\202m U\203\\ \310\313\n#\210\314\315!\210 \316I\210\317 \205m \320 \202m \310\321\n#\210\314\316!\210T\322 ,\207" [letter-char letter digit-char digit mpuz-letter-to-digit correct-digit 65 48 message "%c has already been found." "%c has already been placed." "%c = %c correct!" mpuz-ding nil t mpuz-check-all-solved mpuz-close-game "%c = %c incorrect!" mpuz-paint-errors mpuz-nb-completed-games game mpuz-found-digits mpuz-trivial-digits mpuz-nb-errors] 4 (#$ . 11775)]) #@44 Housecleaning when puzzle has been solved. (defalias 'mpuz-close-game #[nil "\305 \n\\ T\306 \210\307\310\n\211\311U\203 \312\202 \313\n\314U\203$ \315\202a \n\311U\203. \316\202a \n\317U\2038 \320\202a \n\321U\203B \322\202a \n\323U\203L \324\202a \n\325W\203V \326\202a \n\327W\203` \330\202a \331$ \304\332\f\"\210\333\323!\210\334\f\335P!\203y \336 \202| \304\337!)\207" [mpuz-in-progress mpuz-nb-cumulated-errors mpuz-nb-errors mpuz-nb-completed-games message nil mpuz-paint-statistics format "Puzzle solved with %d error%s. That's %s" 1 "" "s" 0 "perfect!" "very good!" 2 "good." 3 "not bad." 4 "not too bad..." 10 "bad!" 15 "awful." "not serious." "%s" sit-for y-or-n-p " Start a new game? " mpuz-start-new-game "Good Bye!"] 6 (#$ . 12463)]) #@32 Find solution for autosolving. (defalias 'mpuz-solve #[(&optional row col) "\300\301\302\"\210\303\207" [mapc #[(digit) " H\206+ \n H\206+ \203' \f\203 \fB H\235\202# H\236?\206+ \n \306I\207" [mpuz-found-digits digit mpuz-trivial-digits row col mpuz-board t] 3] [0 1 2 3 4 5 6 7 8 9] t] 3 (#$ . 13224)]) #@42 Display solution for debugging purposes. (defalias 'mpuz-show-solution #[(row) "\301 \210\302\205 \303!\304_!\210\305 \210\306 \205 \307 \207" [row mpuz-switch-to-window mpuz-solve prefix-numeric-value 2 mpuz-paint-board mpuz-check-all-solved mpuz-close-game] 3 (#$ . 13543) "P"]) (provide 'mpuz)
Close
