DataMuseum.dk

top - metrics - download

    Length: 5219 (0x1463)
    Names: »life.elc«

└─⟦a05ed705a⟧ Bits:30007078 DKUUG GNU 2/12/89
    └─⟦46d41b2d0⟧ »./emacs-18.55.tar.Z« 
        └─⟦fa971747f⟧ 
            └─⟦this⟧ »dist-18.55/lisp/life.elc« 

Hex Dump

0x0000…0020 0a 28 70 72 6f 76 69 64 65 20 28 71 75 6f 74 65 20 6c 69 66 65 29 29 0a 0a 28 64 65 66 63 6f 6e   ┆ (provide (quote life))  (defcon┆
0x0020…0040 73 74 20 6c 69 66 65 2d 70 61 74 74 65 72 6e 73 20 5b 28 22 40 40 40 22 20 22 20 40 40 22 20 22   ┆st life-patterns [("@@@" " @@" "┆
0x0040…0060 40 40 40 22 29 20 28 22 40 40 40 20 40 40 40 22 20 22 40 40 20 20 40 40 20 22 20 22 40 40 40 20   ┆@@@") ("@@@ @@@" "@@  @@ " "@@@ ┆
0x0060…0080 40 40 40 22 29 20 28 22 40 40 40 20 40 40 40 22 20 22 40 40 20 20 20 40 40 22 20 22 40 40 40 20   ┆@@@") ("@@@ @@@" "@@   @@" "@@@ ┆
0x0080…00a0 40 40 40 22 29 20 28 22 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40   ┆@@@") ("@@@@@@@@@@@@@@@@@@@@@@@@┆
0x00a0…00c0 40 40 40 40 40 40 22 29 20 28 22 40 40 40 40 40 40 40 40 40 40 22 29 20 28 22 20 20 20 40 40 40   ┆@@@@@@") ("@@@@@@@@@@") ("   @@@┆
0x00c0…00e0 40 40 40 40 40 40 40 20 20 20 20 20 20 20 22 20 22 20 20 20 20 20 40 40 40 40 40 40 40 40 40 40   ┆@@@@@@@       " "     @@@@@@@@@@┆
0x00e0…0100 20 20 20 20 20 22 20 22 20 20 20 20 20 20 20 40 40 40 40 40 40 40 40 40 40 20 20 20 22 20 22 40   ┆     " "       @@@@@@@@@@   " "@┆
0x0100…0120 40 40 40 40 40 40 40 40 40 20 20 20 20 20 20 20 20 20 20 22 20 22 40 40 40 40 40 40 40 40 40 40   ┆@@@@@@@@@          " "@@@@@@@@@@┆
0x0120…0140 20 20 20 20 20 20 20 20 20 20 22 29 20 28 22 40 22 20 22 40 22 20 22 40 22 20 22 40 22 20 22 40   ┆          ") ("@" "@" "@" "@" "@┆
0x0140…0160 22 20 22 40 22 20 22 40 22 20 22 40 22 20 22 40 22 20 22 40 22 20 22 40 22 20 22 40 22 20 22 40   ┆" "@" "@" "@" "@" "@" "@" "@" "@┆
0x0160…0180 22 20 22 40 22 20 22 40 22 29 20 28 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20   ┆" "@" "@") ("@               @" ┆
0x0180…01a0 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20   ┆"@               @" "@          ┆
0x01a0…01c0 20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20   ┆     @" "@               @" "@  ┆
0x01c0…01e0 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆             @" "@              ┆
0x01e0…0200 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20   ┆ @" "@               @" "@      ┆
0x0200…0220 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20   ┆         @" "@               @" ┆
0x0220…0240 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20   ┆"@               @" "@          ┆
0x0240…0260 20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20   ┆     @" "@               @" "@  ┆
0x0260…0280 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆             @" "@              ┆
0x0280…02a0 20 40 22 20 22 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 22 29 20 28 22 40 40 20 20 20   ┆ @" "@               @") ("@@   ┆
0x02a0…02c0 20 20 20 20 20 20 20 20 20 20 20 20 22 20 22 20 40 40 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆            " " @@              ┆
0x02c0…02e0 22 20 22 20 20 40 40 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 22 20 20 20 40 40 20 20 20 20   ┆" "  @@             " "   @@    ┆
0x02e0…0300 20 20 20 20 20 20 20 20 22 20 22 20 20 20 20 40 40 20 20 20 20 20 20 20 20 20 20 20 22 20 22 20   ┆        " "    @@           " " ┆
0x0300…0320 20 20 20 20 40 40 20 20 20 20 20 20 20 20 20 20 22 20 22 20 20 20 20 20 20 40 40 20 20 20 20 20   ┆    @@          " "      @@     ┆
0x0320…0340 20 20 20 20 22 20 22 20 20 20 20 20 20 20 40 40 20 20 20 20 20 20 20 20 22 20 22 20 20 20 20 20   ┆    " "       @@        " "     ┆
0x0340…0360 20 20 20 40 40 20 20 20 20 20 20 20 22 20 22 20 20 20 20 20 20 20 20 20 40 40 20 20 20 20 20 20   ┆   @@       " "         @@      ┆
0x0360…0380 22 20 22 20 20 20 20 20 20 20 20 20 20 40 40 20 20 20 20 20 22 20 22 20 20 20 20 20 20 20 20 20   ┆" "          @@     " "         ┆
0x0380…03a0 20 20 40 40 20 20 20 20 22 20 22 20 20 20 20 20 20 20 20 20 20 20 20 40 40 20 20 20 22 20 22 20   ┆  @@    " "            @@   " " ┆
0x03a0…03c0 20 20 20 20 20 20 20 20 20 20 20 20 40 40 20 20 22 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆            @@  " "             ┆
0x03c0…03e0 20 40 40 20 22 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 40 22 29 20 28 22 40 40 40   ┆ @@ " "               @@") ("@@@┆
0x03e0…0400 40 40 40 40 40 40 22 20 22 40 20 20 20 40 20 20 20 40 22 20 22 40 20 40 40 40 40 40 20 40 22 20   ┆@@@@@@" "@   @   @" "@ @@@@@ @" ┆
0x0400…0420 22 40 20 40 20 20 20 40 20 40 22 20 22 40 40 40 20 20 20 40 40 40 22 20 22 40 20 40 20 20 20 40   ┆"@ @   @ @" "@@@   @@@" "@ @   @┆
0x0420…0440 20 40 22 20 22 40 20 40 40 40 40 40 20 40 22 20 22 40 20 20 20 40 20 20 20 40 22 20 22 40 40 40   ┆ @" "@ @@@@@ @" "@   @   @" "@@@┆
0x0440…0460 40 40 40 40 40 40 22 29 5d 20 22 5c 0a 56 65 63 74 6f 72 20 6f 66 20 72 65 63 74 61 6e 67 6c 65   ┆@@@@@@")] "\ Vector of rectangle┆
0x0460…0480 73 20 63 6f 6e 74 61 69 6e 69 6e 67 20 73 6f 6d 65 20 4c 69 66 65 20 73 74 61 72 74 75 70 20 70   ┆s containing some Life startup p┆
0x0480…04a0 61 74 74 65 72 6e 73 2e 22 29 0a 0a 28 72 65 71 75 69 72 65 20 28 70 72 6f 67 6e 20 28 64 65 66   ┆atterns.")  (require (progn (def┆
0x04a0…04c0 6d 61 63 72 6f 20 6c 69 66 65 2d 6c 69 66 65 2d 63 68 61 72 20 6e 69 6c 20 36 34 29 20 28 64 65   ┆macro life-life-char nil 64) (de┆
0x04c0…04e0 66 6d 61 63 72 6f 20 6c 69 66 65 2d 64 65 61 74 68 2d 63 68 61 72 20 6e 69 6c 20 28 31 2b 20 28   ┆fmacro life-death-char nil (1+ (┆
0x04e0…0500 6c 69 66 65 2d 6c 69 66 65 2d 63 68 61 72 29 29 29 20 28 64 65 66 6d 61 63 72 6f 20 6c 69 66 65   ┆life-life-char))) (defmacro life┆
0x0500…0520 2d 62 69 72 74 68 2d 63 68 61 72 20 6e 69 6c 20 33 29 20 28 64 65 66 6d 61 63 72 6f 20 6c 69 66   ┆-birth-char nil 3) (defmacro lif┆
0x0520…0540 65 2d 76 6f 69 64 2d 63 68 61 72 20 6e 69 6c 20 33 32 29 20 28 64 65 66 6d 61 63 72 6f 20 6c 69   ┆e-void-char nil 32) (defmacro li┆
0x0540…0560 66 65 2d 6c 69 66 65 2d 73 74 72 69 6e 67 20 6e 69 6c 20 28 63 68 61 72 2d 74 6f 2d 73 74 72 69   ┆fe-life-string nil (char-to-stri┆
0x0560…0580 6e 67 20 28 6c 69 66 65 2d 6c 69 66 65 2d 63 68 61 72 29 29 29 20 28 64 65 66 6d 61 63 72 6f 20   ┆ng (life-life-char))) (defmacro ┆
0x0580…05a0 6c 69 66 65 2d 64 65 61 74 68 2d 73 74 72 69 6e 67 20 6e 69 6c 20 28 63 68 61 72 2d 74 6f 2d 73   ┆life-death-string nil (char-to-s┆
0x05a0…05c0 74 72 69 6e 67 20 28 6c 69 66 65 2d 64 65 61 74 68 2d 63 68 61 72 29 29 29 20 28 64 65 66 6d 61   ┆tring (life-death-char))) (defma┆
0x05c0…05e0 63 72 6f 20 6c 69 66 65 2d 62 69 72 74 68 2d 73 74 72 69 6e 67 20 6e 69 6c 20 28 63 68 61 72 2d   ┆cro life-birth-string nil (char-┆
0x05e0…0600 74 6f 2d 73 74 72 69 6e 67 20 28 6c 69 66 65 2d 62 69 72 74 68 2d 63 68 61 72 29 29 29 20 28 64   ┆to-string (life-birth-char))) (d┆
0x0600…0620 65 66 6d 61 63 72 6f 20 6c 69 66 65 2d 76 6f 69 64 2d 73 74 72 69 6e 67 20 6e 69 6c 20 28 63 68   ┆efmacro life-void-string nil (ch┆
0x0620…0640 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6c 69 66 65 2d 76 6f 69 64 2d 63 68 61 72 29 29 29 20   ┆ar-to-string (life-void-char))) ┆
0x0640…0660 28 64 65 66 6d 61 63 72 6f 20 6c 69 66 65 2d 6e 6f 74 2d 76 6f 69 64 2d 72 65 67 65 78 70 20 6e   ┆(defmacro life-not-void-regexp n┆
0x0660…0680 69 6c 20 28 63 6f 6e 63 61 74 20 22 5b 5e 22 20 28 6c 69 66 65 2d 76 6f 69 64 2d 73 74 72 69 6e   ┆il (concat "[^" (life-void-strin┆
0x0680…06a0 67 29 20 22 0a 5d 22 29 29 20 28 64 65 66 6d 61 63 72 6f 20 67 6f 74 6f 2d 62 65 67 69 6e 6e 69   ┆g) " ]")) (defmacro goto-beginni┆
0x06a0…06c0 6e 67 2d 6f 66 2d 62 75 66 66 65 72 20 6e 69 6c 20 28 71 75 6f 74 65 20 28 67 6f 74 6f 2d 63 68   ┆ng-of-buffer nil (quote (goto-ch┆
0x06c0…06e0 61 72 20 31 29 29 29 20 28 64 65 66 6d 61 63 72 6f 20 6d 61 78 69 6e 74 20 6e 69 6c 20 28 6c 73   ┆ar 1))) (defmacro maxint nil (ls┆
0x06e0…0700 68 20 28 6c 73 68 20 28 6c 6f 67 6e 6f 74 20 30 29 20 31 29 20 2d 31 29 29 20 28 64 65 66 6d 61   ┆h (lsh (lognot 0) 1) -1)) (defma┆
0x0700…0720 63 72 6f 20 67 6f 74 6f 2d 65 6e 64 2d 6f 66 2d 62 75 66 66 65 72 20 6e 69 6c 20 28 71 75 6f 74   ┆cro goto-end-of-buffer nil (quot┆
0x0720…0740 65 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d 61 78 69 6e 74 29 29 29 29 20 28 64 65 66 6d 61 63   ┆e (goto-char (maxint)))) (defmac┆
0x0740…0760 72 6f 20 69 6e 63 72 65 6d 65 6e 74 20 28 76 61 72 69 61 62 6c 65 29 20 28 6c 69 73 74 20 28 71   ┆ro increment (variable) (list (q┆
0x0760…0780 75 6f 74 65 20 73 65 74 71 29 20 76 61 72 69 61 62 6c 65 20 28 6c 69 73 74 20 28 71 75 6f 74 65   ┆uote setq) variable (list (quote┆
0x0780…07a0 20 31 2b 29 20 76 61 72 69 61 62 6c 65 29 29 29 20 28 71 75 6f 74 65 20 6c 69 66 65 29 29 29 0a   ┆ 1+) variable))) (quote life))) ┆
0x07a0…07c0 0a 28 64 65 66 63 6f 6e 73 74 20 6c 69 66 65 2d 6e 65 69 67 68 62 6f 72 2d 64 65 6c 74 61 73 20   ┆ (defconst life-neighbor-deltas ┆
0x07c0…07e0 6e 69 6c 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6c 69 66 65 2d 77 69 6e 64 6f 77 2d 73 74 61 72   ┆nil)  (defconst life-window-star┆
0x07e0…0800 74 20 6e 69 6c 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6c 69 66 65 2d 63 75 72 72 65 6e 74 2d 67   ┆t nil)  (defconst life-current-g┆
0x0800…0820 65 6e 65 72 61 74 69 6f 6e 20 6e 69 6c 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 6c 69 66 65 2d 67   ┆eneration nil)  (defconst life-g┆
0x0820…0840 65 6e 65 72 61 74 69 6f 6e 2d 73 74 72 69 6e 67 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 61 62   ┆eneration-string nil)  (defun ab┆
0x0840…0860 73 20 28 6e 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 c1 57 83 0b 00 08 5b 82 0c 00 08 87 22   ┆s (n) (byte-code "  W    [     "┆
0x0860…0880 20 5b 6e 20 30 5d 20 32 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 66 65 20 28 26 6f 70 74 69 6f 6e   ┆ [n 0] 2))  (defun life (&option┆
0x0880…08a0 61 6c 20 73 6c 65 65 70 74 69 6d 65 29 20 22 5c 0a 52 75 6e 20 43 6f 6e 77 61 79 27 73 20 4c 69   ┆al sleeptime) "\ Run Conway's Li┆
0x08a0…08c0 66 65 20 73 69 6d 75 6c 61 74 69 6f 6e 2e 0a 54 68 65 20 73 74 61 72 74 69 6e 67 20 70 61 74 74   ┆fe simulation. The starting patt┆
0x08c0…08e0 65 72 6e 20 69 73 20 72 61 6e 64 6f 6d 6c 79 20 73 65 6c 65 63 74 65 64 2e 20 20 50 72 65 66 69   ┆ern is randomly selected.  Prefi┆
0x08e0…0900 78 20 61 72 67 20 28 6f 70 74 69 6f 6e 61 6c 20 66 69 72 73 74 20 61 72 67 0a 6e 6f 6e 2d 6e 69   ┆x arg (optional first arg non-ni┆
0x0900…0920 6c 20 66 72 6f 6d 20 61 20 70 72 6f 67 72 61 6d 29 20 69 73 20 74 68 65 20 6e 75 6d 62 65 72 20   ┆l from a program) is the number ┆
0x0920…0940 6f 66 20 73 65 63 6f 6e 64 73 20 74 6f 20 73 6c 65 65 70 20 62 65 74 77 65 65 6e 0a 67 65 6e 65   ┆of seconds to sleep between gene┆
0x0940…0960 72 61 74 69 6f 6e 73 20 28 74 68 69 73 20 64 65 66 61 75 6c 74 73 20 74 6f 20 31 29 2e 22 20 28   ┆rations (this defaults to 1)." (┆
0x0960…0980 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 08   ┆interactive "p") (byte-code "   ┆
0x0980…09a0 86 09 00 c4 89 10 88 c5 20 88 c6 08 21 88 c1 85 28 00 c1 1a c7 20 88 c8 20 88 c9 20 88 c6 08 21   ┆            !   (              !┆
0x09a0…09c0 29 88 82 11 00 87 22 20 5b 73 6c 65 65 70 74 69 6d 65 20 74 20 69 6e 68 69 62 69 74 2d 71 75 69   ┆)     " [sleeptime t inhibit-qui┆
0x09c0…09e0 74 20 6e 69 6c 20 31 20 6c 69 66 65 2d 73 65 74 75 70 20 6c 69 66 65 2d 64 69 73 70 6c 61 79 2d   ┆t nil 1 life-setup life-display-┆
0x09e0…0a00 67 65 6e 65 72 61 74 69 6f 6e 20 6c 69 66 65 2d 67 72 69 6d 2d 72 65 61 70 65 72 20 6c 69 66 65   ┆generation life-grim-reaper life┆
0x0a00…0a20 2d 65 78 70 61 6e 64 2d 70 6c 61 6e 65 2d 69 66 2d 6e 65 65 64 65 64 20 6c 69 66 65 2d 69 6e 63   ┆-expand-plane-if-needed life-inc┆
0x0a20…0a40 72 65 6d 65 6e 74 2d 67 65 6e 65 72 61 74 69 6f 6e 5d 20 38 29 29 0a 0a 28 66 73 65 74 20 28 71   ┆rement-generation] 8))  (fset (q┆
0x0a40…0a60 75 6f 74 65 20 6c 69 66 65 2d 6d 6f 64 65 29 20 28 71 75 6f 74 65 20 6c 69 66 65 29 29 0a 0a 28   ┆uote life-mode) (quote life))  (┆
0x0a60…0a80 70 75 74 20 28 71 75 6f 74 65 20 6c 69 66 65 2d 6d 6f 64 65 29 20 28 71 75 6f 74 65 20 6d 6f 64   ┆put (quote life-mode) (quote mod┆
0x0a80…0aa0 65 2d 63 6c 61 73 73 29 20 28 71 75 6f 74 65 20 73 70 65 63 69 61 6c 29 29 0a 0a 28 72 61 6e 64   ┆e-class) (quote special))  (rand┆
0x0aa0…0ac0 6f 6d 20 74 29 0a 0a 28 64 65 66 75 6e 20 6c 69 66 65 2d 73 65 74 75 70 20 6e 69 6c 20 28 62 79   ┆om t)  (defun life-setup nil (by┆
0x0ac0…0ae0 74 65 2d 63 6f 64 65 20 22 c3 18 cc cd ce 21 c1 5c 22 88 cf 20 88 d0 20 88 c3 12 d1 14 d2 15 c1   ┆te-code "     ! \"              ┆
0x0ae0…0b00 16 06 d3 16 07 d4 16 08 d5 16 09 d6 20 53 16 0a d7 89 16 0b 88 d8 70 21 88 d9 20 88 d7 62 88 da   ┆             S        p!     b  ┆
0x0b00…0b20 db c3 c1 23 85 46 00 dc dd c1 c1 23 88 82 35 00 88 d7 62 88 de 0e 0a 8a df 20 88 60 29 5a e0 5c   ┆   # F     #  5   b        `)Z \┆
0x0b20…0b40 22 89 10 88 6d 3f 85 67 00 08 6a 88 e1 20 88 82 59 00 88 de e2 20 53 e3 65 64 5c 22 5a e0 5c 22   ┆"   m? g  j     Y     S ed\"Z \"┆
0x0b40…0b60 89 10 88 d7 62 88 e4 08 21 88 e5 62 88 e4 08 21 88 d7 62 88 6d 3f 85 a6 00 df 20 88 0e 0a 6a 88   ┆    b   !  b   !  b m?        j ┆
0x0b60…0b80 e6 0e 0a 21 88 e7 60 df 20 88 60 5c 22 88 e1 20 88 82 87 00 88 e8 65 64 5c 22 88 e9 20 88 ea 20   ┆   !  `   `\"         ed\"      ┆
0x0b80…0ba0 29 87 22 20 5b 6e 20 74 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 20 6d 6f   ┆) " [n t case-fold-search nil mo┆
0x0ba0…0bc0 64 65 2d 6e 61 6d 65 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 74 72 75 6e 63 61 74 65 2d 6c 69 6e 65   ┆de-name major-mode truncate-line┆
0x0bc0…0be0 73 20 6c 69 66 65 2d 63 75 72 72 65 6e 74 2d 67 65 6e 65 72 61 74 69 6f 6e 20 6c 69 66 65 2d 67   ┆s life-current-generation life-g┆
0x0be0…0c00 65 6e 65 72 61 74 69 6f 6e 2d 73 74 72 69 6e 67 20 6d 6f 64 65 2d 6c 69 6e 65 2d 62 75 66 66 65   ┆eneration-string mode-line-buffe┆
0x0c00…0c20 72 2d 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e 20 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 6c 69 66   ┆r-identification fill-column lif┆
0x0c20…0c40 65 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20   ┆e-window-start switch-to-buffer ┆
0x0c40…0c60 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 22 2a 4c 69 66 65 2a 22 20 65 72 61 73 65   ┆get-buffer-create "*Life*" erase┆
0x0c60…0c80 2d 62 75 66 66 65 72 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73   ┆-buffer kill-all-local-variables┆
0x0c80…0ca0 20 22 4c 69 66 65 22 20 6c 69 66 65 2d 6d 6f 64 65 20 30 20 22 30 22 20 28 22 4c 69 66 65 3a 20   ┆ "Life" life-mode 0 "0" ("Life: ┆
0x0ca0…0cc0 67 65 6e 65 72 61 74 69 6f 6e 20 22 20 6c 69 66 65 2d 67 65 6e 65 72 61 74 69 6f 6e 2d 73 74 72   ┆generation " life-generation-str┆
0x0cc0…0ce0 69 6e 67 29 20 77 69 6e 64 6f 77 2d 77 69 64 74 68 20 31 20 62 75 66 66 65 72 2d 66 6c 75 73 68   ┆ing) window-width 1 buffer-flush┆
0x0ce0…0d00 2d 75 6e 64 6f 20 6c 69 66 65 2d 69 6e 73 65 72 74 2d 72 61 6e 64 6f 6d 2d 70 61 74 74 65 72 6e   ┆-undo life-insert-random-pattern┆
0x0d00…0d20 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5b 5e 20 0a 5d 22 20 72 65 70 6c 61   ┆ re-search-forward "[^  ]" repla┆
0x0d20…0d40 63 65 2d 6d 61 74 63 68 20 22 40 22 20 2f 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 32 20 66 6f 72   ┆ce-match "@" / end-of-line 2 for┆
0x0d40…0d60 77 61 72 64 2d 6c 69 6e 65 20 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 63 6f 75 6e 74 2d 6c 69   ┆ward-line window-height count-li┆
0x0d60…0d80 6e 65 73 20 6e 65 77 6c 69 6e 65 20 38 33 38 38 36 30 37 20 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75   ┆nes newline 8388607 move-to-colu┆
0x0d80…0da0 6d 6e 20 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 75 6e 74 61 62 69 66 79 20 6c 69 66 65 2d 65   ┆mn delete-region untabify life-e┆
0x0da0…0dc0 78 70 61 6e 64 2d 70 6c 61 6e 65 2d 69 66 2d 6e 65 65 64 65 64 20 6c 69 66 65 2d 63 6f 6d 70 75   ┆xpand-plane-if-needed life-compu┆
0x0dc0…0de0 74 65 2d 6e 65 69 67 68 62 6f 72 2d 64 65 6c 74 61 73 5d 20 32 36 29 29 0a 0a 28 64 65 66 75 6e   ┆te-neighbor-deltas] 26))  (defun┆
0x0de0…0e00 20 6c 69 66 65 2d 63 6f 6d 70 75 74 65 2d 6e 65 69 67 68 62 6f 72 2d 64 65 6c 74 61 73 20 6e 69   ┆ life-compute-neighbor-deltas ni┆
0x0e00…0e20 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 09 5b 09 54 5b c4 09 5c 5c 5b c5 09 09 54 c4 09   ┆l (byte-code "   [ T[  \\[   T  ┆
0x0e20…0e40 5c 5c 26 08 89 10 87 22 20 5b 6c 69 66 65 2d 6e 65 69 67 68 62 6f 72 2d 64 65 6c 74 61 73 20 66   ┆\\&    " [life-neighbor-deltas f┆
0x0e40…0e60 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 6c 69 73 74 20 2d 31 20 32 20 31 5d 20 31 30 29 29 0a 0a 28 64   ┆ill-column list -1 2 1] 10))  (d┆
0x0e60…0e80 65 66 75 6e 20 6c 69 66 65 2d 69 6e 73 65 72 74 2d 72 61 6e 64 6f 6d 2d 70 61 74 74 65 72 6e 20   ┆efun life-insert-random-pattern ┆
0x0e80…0ea0 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 c2 08 c3 c4 c5 20 21 08 47 5c 22 5c 22 21 88   ┆nil (byte-code "       ! G\"\"! ┆
0x0ea0…0ec0 c6 63 87 22 20 5b 6c 69 66 65 2d 70 61 74 74 65 72 6e 73 20 69 6e 73 65 72 74 2d 72 65 63 74 61   ┆ c " [life-patterns insert-recta┆
0x0ec0…0ee0 6e 67 6c 65 20 65 6c 74 20 25 20 61 62 73 20 72 61 6e 64 6f 6d 20 31 30 5d 20 38 29 29 0a 0a 28   ┆ngle elt % abs random 10] 8))  (┆
0x0ee0…0f00 64 65 66 75 6e 20 6c 69 66 65 2d 69 6e 63 72 65 6d 65 6e 74 2d 67 65 6e 65 72 61 74 69 6f 6e 20   ┆defun life-increment-generation ┆
0x0f00…0f20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 54 89 10 88 c2 08 21 89 11 87 22 20 5b 6c 69   ┆nil (byte-code " T     !   " [li┆
0x0f20…0f40 66 65 2d 63 75 72 72 65 6e 74 2d 67 65 6e 65 72 61 74 69 6f 6e 20 6c 69 66 65 2d 67 65 6e 65 72   ┆fe-current-generation life-gener┆
0x0f40…0f60 61 74 69 6f 6e 2d 73 74 72 69 6e 67 20 69 6e 74 2d 74 6f 2d 73 74 72 69 6e 67 5d 20 33 29 29 0a   ┆ation-string int-to-string] 3)) ┆
0x0f60…0f80 0a 28 64 65 66 75 6e 20 6c 69 66 65 2d 67 72 69 6d 2d 72 65 61 70 65 72 20 6e 69 6c 20 28 62 79   ┆ (defun life-grim-reaper nil (by┆
0x0f80…0fa0 74 65 2d 63 6f 64 65 20 22 c8 c0 21 88 c9 62 88 c0 c0 c0 c0 c0 1d 1c 1b 1a 19 ca cb c0 c6 23 85   ┆te-code "  !  b               # ┆
0x0fa0…0fc0 8f 00 0e 07 15 cc 14 60 53 89 13 88 0d 85 78 00 0b 0d 40 5c 5c 11 09 66 89 12 88 0a cd 3d 83 42   ┆       `S     x   @\\  f     = B┆
0x0fc0…0fe0 00 ce 09 09 54 cd c9 c6 25 82 6f 00 0a cf 57 83 54 00 ce 09 09 54 0a 0a 54 c6 25 82 6f 00 0a d0   ┆    T   % o   W T    T  T % o   ┆
0x0fe0…1000 57 83 65 00 ce 09 09 54 0a d0 c6 25 82 6f 00 0a d1 59 85 6f 00 0c 54 89 14 88 0d 41 89 15 88 82   ┆W e    T   % o   Y o  T    A    ┆
0x1000…1020 23 00 88 0c d2 3e 83 83 00 c0 82 8b 00 ce 0b 0b 54 d1 d3 c6 25 88 82 11 00 2d 88 d4 cc 21 3f 85   ┆#    >          T   %    -   !? ┆
0x1020…1040 9a 00 d5 20 88 ce c9 64 d0 cd c6 25 88 ce c9 64 c9 cd c6 25 88 ce c9 64 d6 cd c6 25 88 ce c9 64   ┆       d   %   d   %   d   %   d┆
0x1040…1060 cf d1 c6 25 88 ce c9 64 d3 cd c6 25 87 22 20 5b 6e 69 6c 20 70 6f 69 6e 74 20 63 68 61 72 20 70   ┆   %   d   % " [nil point char p┆
0x1060…1080 69 76 6f 74 20 6c 69 76 69 6e 67 2d 6e 65 69 67 68 62 6f 72 73 20 6c 69 73 74 20 74 20 6c 69 66   ┆ivot living-neighbors list t lif┆
0x1080…10a0 65 2d 6e 65 69 67 68 62 6f 72 2d 64 65 6c 74 61 73 20 73 74 6f 72 65 2d 6d 61 74 63 68 2d 64 61   ┆e-neighbor-deltas store-match-da┆
0x10a0…10c0 74 61 20 31 20 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 40 22 20 30 20 33 32 20 73 75 62   ┆ta 1 search-forward "@" 0 32 sub┆
0x10c0…10e0 73 74 2d 63 68 61 72 2d 69 6e 2d 72 65 67 69 6f 6e 20 33 20 39 20 36 34 20 28 32 20 33 29 20 36   ┆st-char-in-region 3 9 64 (2 3) 6┆
0x10e0…1100 35 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 6c 69 66 65 2d 65 78 74 69 6e 63 74 2d 71   ┆5 match-beginning life-extinct-q┆
0x1100…1120 75 69 74 20 32 5d 20 31 38 29 29 0a 0a 28 64 65 66 75 6e 20 6c 69 66 65 2d 65 78 70 61 6e 64 2d   ┆uit 2] 18))  (defun life-expand-┆
0x1120…1140 70 6c 61 6e 65 2d 69 66 2d 6e 65 65 64 65 64 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22   ┆plane-if-needed nil (byte-code "┆
0x1140…1160 c3 c4 8d 88 c5 62 88 c6 c7 c8 60 08 08 c9 24 c1 23 85 2e 00 c5 62 88 ca cb 08 5c 22 88 cc 63 88   ┆     b    `   $ # .  b    \"  c ┆
0x1160…1180 ca cb 08 5c 22 88 cc 63 88 c8 0a 08 c5 23 89 12 88 cd 62 88 ce c7 cf 60 08 08 c9 24 c1 23 85 59   ┆   \"  c     #    b    `   $ # Y┆
0x1180…11a0 00 cd 62 88 ca cb 08 5c 22 88 cc 63 88 ca cb 08 5c 22 88 cc 63 88 c8 0a 08 c5 23 89 12 87 22 20   ┆  b    \"  c    \"  c     #   " ┆
0x11a0…11c0 5b 66 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 74 20 6c 69 66 65 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74   ┆[fill-column t life-window-start┆
0x11c0…11e0 20 64 6f 6e 65 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 62 88 6d 3f 85 47 00 67 c3 3d 86 14 00   ┆ done (byte-code " b m? G g =   ┆
0x11e0…1200 c4 20 88 68 c3 3d 85 40 00 c2 62 88 6d 3f 85 2e 00 c5 63 88 c4 20 88 c5 63 88 c6 20 88 82 1a 00   ┆   h = @  b m? .  c     c       ┆
0x1200…1220 88 c7 08 5c 5c 89 10 88 c8 c2 21 88 c9 20 88 ca cb c1 5c 22 88 cc 20 88 82 03 00 87 22 20 5b 66   ┆   \\     !       \"        " [f┆
0x1220…1240 69 6c 6c 2d 63 6f 6c 75 6d 6e 20 74 20 31 20 36 34 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 33 32   ┆ill-column t 1 64 end-of-line 32┆
0x1240…1260 20 66 6f 72 77 61 72 64 2d 63 68 61 72 20 32 20 73 63 72 6f 6c 6c 2d 6c 65 66 74 20 6c 69 66 65   ┆ forward-char 2 scroll-left life┆
0x1260…1280 2d 63 6f 6d 70 75 74 65 2d 6e 65 69 67 68 62 6f 72 2d 64 65 6c 74 61 73 20 74 68 72 6f 77 20 64   ┆-compute-neighbor-deltas throw d┆
0x1280…12a0 6f 6e 65 20 66 6f 72 77 61 72 64 2d 6c 69 6e 65 5d 20 39 29 20 31 20 73 65 61 72 63 68 2d 66 6f   ┆one forward-line] 9) 1 search-fo┆
0x12a0…12c0 72 77 61 72 64 20 22 40 22 20 2b 20 32 20 69 6e 73 65 72 74 2d 63 68 61 72 20 33 32 20 31 30 20   ┆rward "@" + 2 insert-char 32 10 ┆
0x12c0…12e0 38 33 38 38 36 30 37 20 73 65 61 72 63 68 2d 62 61 63 6b 77 61 72 64 20 2d 5d 20 31 33 29 29 0a   ┆8388607 search-backward -] 13)) ┆
0x12e0…1300 0a 28 64 65 66 75 6e 20 6c 69 66 65 2d 64 69 73 70 6c 61 79 2d 67 65 6e 65 72 61 74 69 6f 6e 20   ┆ (defun life-display-generation ┆
0x1300…1320 28 73 6c 65 65 70 74 69 6d 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 08 62 88 c2 c3 21 88 c4   ┆(sleeptime) (byte-code " b   !  ┆
0x1320…1340 09 21 87 22 20 5b 6c 69 66 65 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 73 6c 65 65 70 74 69 6d   ┆ ! " [life-window-start sleeptim┆
0x1340…1360 65 20 72 65 63 65 6e 74 65 72 20 30 20 73 69 74 2d 66 6f 72 5d 20 33 29 29 0a 0a 28 64 65 66 75   ┆e recenter 0 sit-for] 3))  (defu┆
0x1360…1380 6e 20 6c 69 66 65 2d 65 78 74 69 6e 63 74 2d 71 75 69 74 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f   ┆n life-extinct-quit nil (byte-co┆
0x1380…13a0 64 65 20 22 c1 c2 21 88 c3 c4 c0 5c 22 87 22 20 5b 6e 69 6c 20 6c 69 66 65 2d 64 69 73 70 6c 61   ┆de "  !    \" " [nil life-displa┆
0x13a0…13c0 79 2d 67 65 6e 65 72 61 74 69 6f 6e 20 30 20 73 69 67 6e 61 6c 20 6c 69 66 65 2d 65 78 74 69 6e   ┆y-generation 0 signal life-extin┆
0x13c0…13e0 63 74 5d 20 34 29 29 0a 0a 28 70 75 74 20 28 71 75 6f 74 65 20 6c 69 66 65 2d 65 78 74 69 6e 63   ┆ct] 4))  (put (quote life-extinc┆
0x13e0…1400 74 29 20 28 71 75 6f 74 65 20 65 72 72 6f 72 2d 63 6f 6e 64 69 74 69 6f 6e 73 29 20 28 71 75 6f   ┆t) (quote error-conditions) (quo┆
0x1400…1420 74 65 20 28 6c 69 66 65 2d 65 78 74 69 6e 63 74 20 71 75 69 74 29 29 29 0a 0a 28 70 75 74 20 28   ┆te (life-extinct quit)))  (put (┆
0x1420…1440 71 75 6f 74 65 20 6c 69 66 65 2d 65 78 74 69 6e 63 74 29 20 28 71 75 6f 74 65 20 65 72 72 6f 72   ┆quote life-extinct) (quote error┆
0x1440…1460 2d 6d 65 73 73 61 67 65 29 20 22 41 6c 6c 20 6c 69 66 65 20 68 61 73 20 70 65 72 69 73 68 65 64   ┆-message) "All life has perished┆
0x1460…1463 22 29 0a   ┆") ┆