/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / games / life.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 30 31 3a 35 | 37 20 31 39 39 35 0a 3b | 14:01:5|7 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 67 61 | 6d 65 73 2f 6c 69 66 65 |/lisp/ga|mes/life|
|00000090| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|000000a0| 72 73 69 6f 6e 20 31 39 | 2e 31 33 20 58 45 6d 61 |rsion 19|.13 XEma|
|000000b0| 63 73 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |cs Lucid|..;;; by|
|000000c0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000d0| 2e 32 35 3b 20 31 2d 53 | 65 70 2d 39 34 2e 0a 3b |.25; 1-S|ep-94..;|
|000000e0| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|000000f0| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|00000100| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|00000110| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|00000120| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 20 31 38 |xist in |Emacs 18|
|00000130| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000140| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000150| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000160| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000170| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000180| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|.     (s|
|00000190| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|000001a0| 73 2d 76 65 72 73 69 6f | 6e 20 22 31 39 22 29 29 |s-versio|n "19"))|
|000001b0| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 54 68 |).    (e|rror "Th|
|000001c0| 69 73 20 66 69 6c 65 20 | 77 61 73 20 63 6f 6d 70 |is file |was comp|
|000001d0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001e0| 39 2e 22 29 29 0a 0a 28 | 64 65 66 63 6f 6e 73 74 |9."))..(|defconst|
|000001f0| 20 6c 69 66 65 2d 70 61 | 74 74 65 72 6e 73 20 5b | life-pa|tterns [|
|00000200| 28 22 40 40 40 22 20 22 | 20 40 40 22 20 22 40 40 |("@@@" "| @@" "@@|
|00000210| 40 22 29 20 28 22 40 40 | 40 20 40 40 40 22 20 22 |@") ("@@|@ @@@" "|
|00000220| 40 40 20 20 40 40 20 22 | 20 22 40 40 40 20 40 40 |@@  @@ "| "@@@ @@|
|00000230| 40 22 29 20 28 22 40 40 | 40 20 40 40 40 22 20 22 |@") ("@@|@ @@@" "|
|00000240| 40 40 20 20 20 40 40 22 | 20 22 40 40 40 20 40 40 |@@   @@"| "@@@ @@|
|00000250| 40 22 29 20 28 22 40 40 | 40 40 40 40 40 40 40 40 |@") ("@@|@@@@@@@@|
|00000260| 40 40 40 40 40 40 40 40 | 40 40 40 40 40 40 40 40 |@@@@@@@@|@@@@@@@@|
|00000270| 40 40 40 40 22 29 20 28 | 22 40 40 40 40 40 40 40 |@@@@") (|"@@@@@@@|
|00000280| 40 40 40 22 29 20 28 22 | 20 20 20 40 40 40 40 40 |@@@") ("|   @@@@@|
|00000290| 40 40 40 40 40 20 20 20 | 20 20 20 20 22 20 22 20 |@@@@@   |    " " |
|000002a0| 20 20 20 20 40 40 40 40 | 40 40 40 40 40 40 20 20 |    @@@@|@@@@@@  |
|000002b0| 20 20 20 22 20 22 20 20 | 20 20 20 20 20 40 40 40 |   " "  |     @@@|
|000002c0| 40 40 40 40 40 40 40 20 | 20 20 22 20 22 40 40 40 |@@@@@@@ |  " "@@@|
|000002d0| 40 40 40 40 40 40 40 20 | 20 20 20 20 20 20 20 20 |@@@@@@@ |        |
|000002e0| 20 22 20 22 40 40 40 40 | 40 40 40 40 40 40 20 20 | " "@@@@|@@@@@@  |
|000002f0| 20 20 20 20 20 20 20 20 | 22 29 20 28 22 40 22 20 |        |") ("@" |
|00000300| 22 40 22 20 22 40 22 20 | 22 40 22 20 22 40 22 20 |"@" "@" |"@" "@" |
|00000310| 22 40 22 20 22 40 22 20 | 22 40 22 20 22 40 22 20 |"@" "@" |"@" "@" |
|00000320| 22 40 22 20 22 40 22 20 | 22 40 22 20 22 40 22 20 |"@" "@" |"@" "@" |
|00000330| 22 40 22 20 22 40 22 29 | 20 28 22 40 20 20 20 20 |"@" "@")| ("@    |
|00000340| 20 20 20 20 20 20 20 20 | 20 20 20 40 22 20 22 40 |        |   @" "@|
|00000350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 40 |        |       @|
|00000360| 22 20 22 40 20 20 20 20 | 20 20 20 20 20 20 20 20 |" "@    |        |
|00000370| 20 20 20 40 22 20 22 40 | 20 20 20 20 20 20 20 20 |   @" "@|        |
|00000380| 20 20 20 20 20 20 20 40 | 22 20 22 40 20 20 20 20 |       @|" "@    |
|00000390| 20 20 20 20 20 20 20 20 | 20 20 20 40 22 20 22 40 |        |   @" "@|
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 40 |        |       @|
|000003b0| 22 20 22 40 20 20 20 20 | 20 20 20 20 20 20 20 20 |" "@    |        |
|000003c0| 20 20 20 40 22 20 22 40 | 20 20 20 20 20 20 20 20 |   @" "@|        |
|000003d0| 20 20 20 20 20 20 20 40 | 22 20 22 40 20 20 20 20 |       @|" "@    |
|000003e0| 20 20 20 20 20 20 20 20 | 20 20 20 40 22 20 22 40 |        |   @" "@|
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 40 |        |       @|
|00000400| 22 20 22 40 20 20 20 20 | 20 20 20 20 20 20 20 20 |" "@    |        |
|00000410| 20 20 20 40 22 20 22 40 | 20 20 20 20 20 20 20 20 |   @" "@|        |
|00000420| 20 20 20 20 20 20 20 40 | 22 20 22 40 20 20 20 20 |       @|" "@    |
|00000430| 20 20 20 20 20 20 20 20 | 20 20 20 40 22 20 22 40 |        |   @" "@|
|00000440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 40 |        |       @|
|00000450| 22 20 22 40 20 20 20 20 | 20 20 20 20 20 20 20 20 |" "@    |        |
|00000460| 20 20 20 40 22 29 20 28 | 22 40 40 20 20 20 20 20 |   @") (|"@@     |
|00000470| 20 20 20 20 20 20 20 20 | 20 20 22 20 22 20 40 40 |        |  " " @@|
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 22 20 |        |      " |
|00000490| 22 20 20 40 40 20 20 20 | 20 20 20 20 20 20 20 20 |"  @@   |        |
|000004a0| 20 20 22 20 22 20 20 20 | 40 40 20 20 20 20 20 20 |  " "   |@@      |
|000004b0| 20 20 20 20 20 20 22 20 | 22 20 20 20 20 40 40 20 |      " |"    @@ |
|000004c0| 20 20 20 20 20 20 20 20 | 20 20 22 20 22 20 20 20 |        |  " "   |
|000004d0| 20 20 40 40 20 20 20 20 | 20 20 20 20 20 20 22 20 |  @@    |      " |
|000004e0| 22 20 20 20 20 20 20 40 | 40 20 20 20 20 20 20 20 |"      @|@       |
|000004f0| 20 20 22 20 22 20 20 20 | 20 20 20 20 40 40 20 20 |  " "   |    @@  |
|00000500| 20 20 20 20 20 20 22 20 | 22 20 20 20 20 20 20 20 |      " |"       |
|00000510| 20 40 40 20 20 20 20 20 | 20 20 22 20 22 20 20 20 | @@     |  " "   |
|00000520| 20 20 20 20 20 20 40 40 | 20 20 20 20 20 20 22 20 |      @@|      " |
|00000530| 22 20 20 20 20 20 20 20 | 20 20 20 40 40 20 20 20 |"       |   @@   |
|00000540| 20 20 22 20 22 20 20 20 | 20 20 20 20 20 20 20 20 |  " "   |        |
|00000550| 40 40 20 20 20 20 22 20 | 22 20 20 20 20 20 20 20 |@@    " |"       |
|00000560| 20 20 20 20 20 40 40 20 | 20 20 22 20 22 20 20 20 |     @@ |  " "   |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 40 40 20 20 22 20 |        |  @@  " |
|00000580| 22 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 40 |"       |       @|
|00000590| 40 20 22 20 22 20 20 20 | 20 20 20 20 20 20 20 20 |@ " "   |        |
|000005a0| 20 20 20 20 40 40 22 29 | 20 28 22 40 40 40 40 40 |    @@")| ("@@@@@|
|000005b0| 40 40 40 40 22 20 22 40 | 20 20 20 40 20 20 20 40 |@@@@" "@|   @   @|
|000005c0| 22 20 22 40 20 40 40 40 | 40 40 20 40 22 20 22 40 |" "@ @@@|@@ @" "@|
|000005d0| 20 40 20 20 20 40 20 40 | 22 20 22 40 40 40 20 20 | @   @ @|" "@@@  |
|000005e0| 20 40 40 40 22 20 22 40 | 20 40 20 20 20 40 20 40 | @@@" "@| @   @ @|
|000005f0| 22 20 22 40 20 40 40 40 | 40 40 20 40 22 20 22 40 |" "@ @@@|@@ @" "@|
|00000600| 20 20 20 40 20 20 20 40 | 22 20 22 40 40 40 40 40 |   @   @|" "@@@@@|
|00000610| 40 40 40 40 22 29 5d 20 | 22 5c 0a 56 65 63 74 6f |@@@@")] |"\.Vecto|
|00000620| 72 20 6f 66 20 72 65 63 | 74 61 6e 67 6c 65 73 20 |r of rec|tangles |
|00000630| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 73 6f 6d 65 20 |containi|ng some |
|00000640| 4c 69 66 65 20 73 74 61 | 72 74 75 70 20 70 61 74 |Life sta|rtup pat|
|00000650| 74 65 72 6e 73 2e 22 29 | 0a 28 62 79 74 65 2d 63 |terns.")|.(byte-c|
|00000660| 6f 64 65 20 22 c0 c1 4d | 88 c2 c3 4d 88 c4 c5 4d |ode "..M|...M...M|
|00000670| 88 c6 c7 4d 88 c8 c9 4d | 88 ca cb 4d 88 cc cd 4d |...M...M|...M...M|
|00000680| 88 ce cf 4d 88 d0 d1 4d | 88 d2 d3 4d 88 d4 d5 4d |...M...M|...M...M|
|00000690| 88 d6 d7 4d 88 d8 d9 4d | 88 da 16 1b da 16 1c da |...M...M|........|
|000006a0| 16 1d da 16 1e da 87 22 | 20 5b 6c 69 66 65 2d 6c |......."| [life-l|
|000006b0| 69 66 65 2d 63 68 61 72 | 20 28 6d 61 63 72 6f 20 |ife-char| (macro |
|000006c0| 6c 61 6d 62 64 61 20 6e | 69 6c 20 36 34 29 20 6c |lambda n|il 64) l|
|000006d0| 69 66 65 2d 64 65 61 74 | 68 2d 63 68 61 72 20 28 |ife-deat|h-char (|
|000006e0| 6d 61 63 72 6f 20 6c 61 | 6d 62 64 61 20 6e 69 6c |macro la|mbda nil|
|000006f0| 20 36 35 29 20 6c 69 66 | 65 2d 62 69 72 74 68 2d | 65) lif|e-birth-|
|00000700| 63 68 61 72 20 28 6d 61 | 63 72 6f 20 6c 61 6d 62 |char (ma|cro lamb|
|00000710| 64 61 20 6e 69 6c 20 33 | 29 20 6c 69 66 65 2d 76 |da nil 3|) life-v|
|00000720| 6f 69 64 2d 63 68 61 72 | 20 28 6d 61 63 72 6f 20 |oid-char| (macro |
|00000730| 6c 61 6d 62 64 61 20 6e | 69 6c 20 33 32 29 20 6c |lambda n|il 32) l|
|00000740| 69 66 65 2d 6c 69 66 65 | 2d 73 74 72 69 6e 67 20 |ife-life|-string |
|00000750| 28 6d 61 63 72 6f 20 2e | 20 23 5b 6e 69 6c 20 22 |(macro .| #[nil "|
|00000760| c0 c1 21 87 22 20 5b 63 | 68 61 72 2d 74 6f 2d 73 |..!." [c|har-to-s|
|00000770| 74 72 69 6e 67 20 36 34 | 5d 20 32 5d 29 20 6c 69 |tring 64|] 2]) li|
|00000780| 66 65 2d 64 65 61 74 68 | 2d 73 74 72 69 6e 67 20 |fe-death|-string |
|00000790| 28 6d 61 63 72 6f 20 2e | 20 23 5b 6e 69 6c 20 22 |(macro .| #[nil "|
|000007a0| c0 c1 21 87 22 20 5b 63 | 68 61 72 2d 74 6f 2d 73 |..!." [c|har-to-s|
|000007b0| 74 72 69 6e 67 20 36 35 | 5d 20 32 5d 29 20 6c 69 |tring 65|] 2]) li|
|000007c0| 66 65 2d 62 69 72 74 68 | 2d 73 74 72 69 6e 67 20 |fe-birth|-string |
|000007d0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 6e 69 6c 20 22 |(macro .| #[nil "|
|000007e0| c0 c1 21 87 22 20 5b 63 | 68 61 72 2d 74 6f 2d 73 |..!." [c|har-to-s|
|000007f0| 74 72 69 6e 67 20 33 5d | 20 32 5d 29 20 6c 69 66 |tring 3]| 2]) lif|
|00000800| 65 2d 76 6f 69 64 2d 73 | 74 72 69 6e 67 20 28 6d |e-void-s|tring (m|
|00000810| 61 63 72 6f 20 2e 20 23 | 5b 6e 69 6c 20 22 c0 c1 |acro . #|[nil "..|
|00000820| 21 87 22 20 5b 63 68 61 | 72 2d 74 6f 2d 73 74 72 |!." [cha|r-to-str|
|00000830| 69 6e 67 20 33 32 5d 20 | 32 5d 29 20 6c 69 66 65 |ing 32] |2]) life|
|00000840| 2d 6e 6f 74 2d 76 6f 69 | 64 2d 72 65 67 65 78 70 |-not-voi|d-regexp|
|00000850| 20 28 6d 61 63 72 6f 20 | 2e 20 23 5b 6e 69 6c 20 | (macro |. #[nil |
|00000860| 22 c0 c1 c2 51 87 22 20 | 5b 22 5b 5e 22 20 22 20 |"...Q." |["[^" " |
|00000870| 22 20 22 5c 6e 5d 22 5d | 20 33 5d 29 20 67 6f 74 |" "\n]"]| 3]) got|
|00000880| 6f 2d 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 62 |o-beginn|ing-of-b|
|00000890| 75 66 66 65 72 20 28 6d | 61 63 72 6f 20 2e 20 23 |uffer (m|acro . #|
|000008a0| 5b 6e 69 6c 20 22 c0 87 | 22 20 5b 28 67 6f 74 6f |[nil "..|" [(goto|
|000008b0| 2d 63 68 61 72 20 31 29 | 5d 20 31 5d 29 20 6d 61 |-char 1)|] 1]) ma|
|000008c0| 78 69 6e 74 20 28 6d 61 | 63 72 6f 20 2e 20 23 5b |xint (ma|cro . #[|
|000008d0| 6e 69 6c 20 22 c0 89 c1 | c2 5c 22 c1 5c 22 87 22 |nil "...|.\".\"."|
|000008e0| 20 5b 6c 73 68 20 2d 31 | 20 31 5d 20 34 5d 29 20 | [lsh -1| 1] 4]) |
|000008f0| 67 6f 74 6f 2d 65 6e 64 | 2d 6f 66 2d 62 75 66 66 |goto-end|-of-buff|
|00000900| 65 72 20 28 6d 61 63 72 | 6f 20 2e 20 23 5b 6e 69 |er (macr|o . #[ni|
|00000910| 6c 20 22 c0 87 22 20 5b | 28 67 6f 74 6f 2d 63 68 |l ".." [|(goto-ch|
|00000920| 61 72 20 28 6d 61 78 69 | 6e 74 29 29 5d 20 31 5d |ar (maxi|nt))] 1]|
|00000930| 29 20 69 6e 63 72 65 6d | 65 6e 74 20 28 6d 61 63 |) increm|ent (mac|
|00000940| 72 6f 20 2e 20 23 5b 28 | 76 61 72 69 61 62 6c 65 |ro . #[(|variable|
|00000950| 29 20 22 c0 09 c2 09 44 | 45 87 22 20 5b 73 65 74 |) "....D|E." [set|
|00000960| 71 20 76 61 72 69 61 62 | 6c 65 20 31 2b 5d 20 34 |q variab|le 1+] 4|
|00000970| 5d 29 20 6e 69 6c 20 6c | 69 66 65 2d 6e 65 69 67 |]) nil l|ife-neig|
|00000980| 68 62 6f 72 2d 64 65 6c | 74 61 73 20 6c 69 66 65 |hbor-del|tas life|
|00000990| 2d 77 69 6e 64 6f 77 2d | 73 74 61 72 74 20 6c 69 |-window-|start li|
|000009a0| 66 65 2d 63 75 72 72 65 | 6e 74 2d 67 65 6e 65 72 |fe-curre|nt-gener|
|000009b0| 61 74 69 6f 6e 20 6c 69 | 66 65 2d 67 65 6e 65 72 |ation li|fe-gener|
|000009c0| 61 74 69 6f 6e 2d 73 74 | 72 69 6e 67 5d 20 32 29 |ation-st|ring] 2)|
|000009d0| 0a 28 66 73 65 74 20 27 | 6c 69 66 65 20 23 5b 28 |.(fset '|life #[(|
|000009e0| 26 6f 70 74 69 6f 6e 61 | 6c 20 73 6c 65 65 70 74 |&optiona|l sleept|
|000009f0| 69 6d 65 29 20 22 08 ac | 82 c1 10 c2 20 88 c3 08 |ime) "..|.... ...|
|00000a00| 21 88 c4 c5 8d 87 22 20 | 5b 73 6c 65 65 70 74 69 |!....." |[sleepti|
|00000a10| 6d 65 20 31 20 6c 69 66 | 65 2d 73 65 74 75 70 20 |me 1 lif|e-setup |
|00000a20| 6c 69 66 65 2d 64 69 73 | 70 6c 61 79 2d 67 65 6e |life-dis|play-gen|
|00000a30| 65 72 61 74 69 6f 6e 20 | 6c 69 66 65 2d 65 78 69 |eration |life-exi|
|00000a40| 74 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 19 |t (byte-|code "..|
|00000a50| c2 20 88 c3 20 88 c4 20 | 88 c5 0e 06 21 88 29 aa |. .. .. |....!.).|
|00000a60| 6d 22 20 5b 74 20 69 6e | 68 69 62 69 74 2d 71 75 |m" [t in|hibit-qu|
|00000a70| 69 74 20 6c 69 66 65 2d | 67 72 69 6d 2d 72 65 61 |it life-|grim-rea|
|00000a80| 70 65 72 20 6c 69 66 65 | 2d 65 78 70 61 6e 64 2d |per life|-expand-|
|00000a90| 70 6c 61 6e 65 2d 69 66 | 2d 6e 65 65 64 65 64 20 |plane-if|-needed |
|00000aa0| 6c 69 66 65 2d 69 6e 63 | 72 65 6d 65 6e 74 2d 67 |life-inc|rement-g|
|00000ab0| 65 6e 65 72 61 74 69 6f | 6e 20 6c 69 66 65 2d 64 |eneratio|n life-d|
|00000ac0| 69 73 70 6c 61 79 2d 67 | 65 6e 65 72 61 74 69 6f |isplay-g|eneratio|
|00000ad0| 6e 20 73 6c 65 65 70 74 | 69 6d 65 5d 20 32 29 5d |n sleept|ime] 2)]|
|00000ae0| 20 32 20 22 5c 0a 52 75 | 6e 20 43 6f 6e 77 61 79 | 2 "\.Ru|n Conway|
|00000af0| 27 73 20 4c 69 66 65 20 | 73 69 6d 75 6c 61 74 69 |'s Life |simulati|
|00000b00| 6f 6e 2e 0a 54 68 65 20 | 73 74 61 72 74 69 6e 67 |on..The |starting|
|00000b10| 20 70 61 74 74 65 72 6e | 20 69 73 20 72 61 6e 64 | pattern| is rand|
|00000b20| 6f 6d 6c 79 20 73 65 6c | 65 63 74 65 64 2e 20 20 |omly sel|ected.  |
|00000b30| 50 72 65 66 69 78 20 61 | 72 67 20 28 6f 70 74 69 |Prefix a|rg (opti|
|00000b40| 6f 6e 61 6c 20 66 69 72 | 73 74 0a 61 72 67 20 6e |onal fir|st.arg n|
|00000b50| 6f 6e 2d 6e 69 6c 20 66 | 72 6f 6d 20 61 20 70 72 |on-nil f|rom a pr|
|00000b60| 6f 67 72 61 6d 29 20 69 | 73 20 74 68 65 20 6e 75 |ogram) i|s the nu|
|00000b70| 6d 62 65 72 20 6f 66 20 | 73 65 63 6f 6e 64 73 20 |mber of |seconds |
|00000b80| 74 6f 20 73 6c 65 65 70 | 20 62 65 74 77 65 65 6e |to sleep| between|
|00000b90| 0a 67 65 6e 65 72 61 74 | 69 6f 6e 73 20 28 74 68 |.generat|ions (th|
|00000ba0| 69 73 20 64 65 66 61 75 | 6c 74 73 20 74 6f 20 31 |is defau|lts to 1|
|00000bb0| 29 2e 22 20 22 70 22 5d | 29 0a 28 62 79 74 65 2d |)." "p"]|).(byte-|
|00000bc0| 63 6f 64 65 20 22 c0 c1 | c2 5c 22 88 c3 c1 c4 c5 |code "..|.\".....|
|00000bd0| 23 88 c6 c7 21 88 c8 c9 | 4d 88 ca cb 4d 88 cc cd |#...!...|M...M...|
|00000be0| 4d 88 ce cf 4d 88 d0 d1 | 4d 88 d2 d3 4d 88 d4 d5 |M...M...|M...M...|
|00000bf0| 4d 88 d6 d7 4d 88 c3 d8 | d9 da 23 88 c3 d8 db dc |M...M...|..#.....|
|00000c00| 23 88 dd c2 21 87 22 20 | 5b 64 65 66 61 6c 69 61 |#...!." |[defalia|
|00000c10| 73 20 6c 69 66 65 2d 6d | 6f 64 65 20 6c 69 66 65 |s life-m|ode life|
|00000c20| 20 70 75 74 20 6d 6f 64 | 65 2d 63 6c 61 73 73 20 | put mod|e-class |
|00000c30| 73 70 65 63 69 61 6c 20 | 72 61 6e 64 6f 6d 20 74 |special |random t|
|00000c40| 20 6c 69 66 65 2d 73 65 | 74 75 70 20 23 5b 6e 69 | life-se|tup #[ni|
|00000c50| 6c 20 22 c0 19 c2 c3 c4 | 21 c5 5c 22 88 c6 20 88 |l ".....|!.\".. .|
|00000c60| c7 20 88 c0 16 08 c9 16 | 5c 6e cb 16 0c c5 16 0d |. ......|\n......|
|00000c70| ce 16 0f d0 16 11 d2 16 | 13 d4 20 53 16 15 d6 16 |........|.. S....|
|00000c80| 17 d8 70 21 88 d9 20 88 | d6 62 88 da db c0 c5 23 |..p!.. .|.b.....#|
|00000c90| ab 88 dc dd c5 89 23 88 | aa 71 d6 62 88 0e 15 8a |......#.|.q.b....|
|00000ca0| c0 7f 88 60 29 5a de a5 | 11 6d ac 88 09 6a 88 c0 |...`)Z..|.m...j..|
|00000cb0| 79 88 aa 75 df 20 53 e0 | 65 64 5c 22 5a de a5 11 |y..u. S.|ed\"Z...|
|00000cc0| d6 62 88 e1 09 21 88 e2 | 62 88 e1 09 21 88 d6 62 |.b...!..|b...!..b|
|00000cd0| 88 6d ac 98 c0 7f 88 0e | 15 6a 88 e3 0e 15 21 88 |.m......|.j....!.|
|00000ce0| 60 c0 7f 88 60 7c 88 c0 | 79 88 aa 65 e4 65 64 5c |`...`|..|y..e.ed\|
|00000cf0| 22 88 e5 20 88 e6 20 29 | 87 22 20 5b 6e 69 6c 20 |".. .. )|." [nil |
|00000d00| 6e 20 73 77 69 74 63 68 | 2d 74 6f 2d 62 75 66 66 |n switch|-to-buff|
|00000d10| 65 72 20 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |er get-b|uffer-cr|
|00000d20| 65 61 74 65 20 22 2a 4c | 69 66 65 2a 22 20 74 20 |eate "*L|ife*" t |
|00000d30| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 6b 69 6c |erase-bu|ffer kil|
|00000d40| 6c 2d 61 6c 6c 2d 6c 6f | 63 61 6c 2d 76 61 72 69 |l-all-lo|cal-vari|
|00000d50| 61 62 6c 65 73 20 63 61 | 73 65 2d 66 6f 6c 64 2d |ables ca|se-fold-|
|00000d60| 73 65 61 72 63 68 20 22 | 4c 69 66 65 22 20 6d 6f |search "|Life" mo|
|00000d70| 64 65 2d 6e 61 6d 65 20 | 6c 69 66 65 2d 6d 6f 64 |de-name |life-mod|
|00000d80| 65 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 74 72 75 |e major-|mode tru|
|00000d90| 6e 63 61 74 65 2d 6c 69 | 6e 65 73 20 30 20 6c 69 |ncate-li|nes 0 li|
|00000da0| 66 65 2d 63 75 72 72 65 | 6e 74 2d 67 65 6e 65 72 |fe-curre|nt-gener|
|00000db0| 61 74 69 6f 6e 20 22 30 | 22 20 6c 69 66 65 2d 67 |ation "0|" life-g|
|00000dc0| 65 6e 65 72 61 74 69 6f | 6e 2d 73 74 72 69 6e 67 |eneratio|n-string|
|00000dd0| 20 28 22 4c 69 66 65 3a | 20 67 65 6e 65 72 61 74 | ("Life:| generat|
|00000de0| 69 6f 6e 20 22 20 6c 69 | 66 65 2d 67 65 6e 65 72 |ion " li|fe-gener|
|00000df0| 61 74 69 6f 6e 2d 73 74 | 72 69 6e 67 29 20 6d 6f |ation-st|ring) mo|
|00000e00| 64 65 2d 6c 69 6e 65 2d | 62 75 66 66 65 72 2d 69 |de-line-|buffer-i|
|00000e10| 64 65 6e 74 69 66 69 63 | 61 74 69 6f 6e 20 77 69 |dentific|ation wi|
|00000e20| 6e 64 6f 77 2d 77 69 64 | 74 68 20 66 69 6c 6c 2d |ndow-wid|th fill-|
|00000e30| 63 6f 6c 75 6d 6e 20 31 | 20 6c 69 66 65 2d 77 69 |column 1| life-wi|
|00000e40| 6e 64 6f 77 2d 73 74 61 | 72 74 20 62 75 66 66 65 |ndow-sta|rt buffe|
|00000e50| 72 2d 64 69 73 61 62 6c | 65 2d 75 6e 64 6f 20 6c |r-disabl|e-undo l|
|00000e60| 69 66 65 2d 69 6e 73 65 | 72 74 2d 72 61 6e 64 6f |ife-inse|rt-rando|
|00000e70| 6d 2d 70 61 74 74 65 72 | 6e 20 72 65 2d 73 65 61 |m-patter|n re-sea|
|00000e80| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5b 5e 20 |rch-forw|ard "[^ |
|00000e90| 5c 6e 5d 22 20 72 65 70 | 6c 61 63 65 2d 6d 61 74 |\n]" rep|lace-mat|
|00000ea0| 63 68 20 22 40 22 20 32 | 20 77 69 6e 64 6f 77 2d |ch "@" 2| window-|
|00000eb0| 68 65 69 67 68 74 20 63 | 6f 75 6e 74 2d 6c 69 6e |height c|ount-lin|
|00000ec0| 65 73 20 6e 65 77 6c 69 | 6e 65 20 31 33 34 32 31 |es newli|ne 13421|
|00000ed0| 37 37 32 37 20 6d 6f 76 | 65 2d 74 6f 2d 63 6f 6c |7727 mov|e-to-col|
|00000ee0| 75 6d 6e 20 75 6e 74 61 | 62 69 66 79 20 6c 69 66 |umn unta|bify lif|
|00000ef0| 65 2d 65 78 70 61 6e 64 | 2d 70 6c 61 6e 65 2d 69 |e-expand|-plane-i|
|00000f00| 66 2d 6e 65 65 64 65 64 | 20 6c 69 66 65 2d 63 6f |f-needed| life-co|
|00000f10| 6d 70 75 74 65 2d 6e 65 | 69 67 68 62 6f 72 2d 64 |mpute-ne|ighbor-d|
|00000f20| 65 6c 74 61 73 5d 20 34 | 5d 20 6c 69 66 65 2d 63 |eltas] 4|] life-c|
|00000f30| 6f 6d 70 75 74 65 2d 6e | 65 69 67 68 62 6f 72 2d |ompute-n|eighbor-|
|00000f40| 64 65 6c 74 61 73 20 23 | 5b 6e 69 6c 20 22 c0 09 |deltas #|[nil "..|
|00000f50| 5b 09 54 5b 09 c2 5c 5c | 5b c3 09 89 54 09 c2 5c |[.T[..\\|[...T..\|
|00000f60| 5c af 08 89 14 87 22 20 | 5b 2d 31 20 66 69 6c 6c |\....." |[-1 fill|
|00000f70| 2d 63 6f 6c 75 6d 6e 20 | 32 20 31 20 6c 69 66 65 |-column |2 1 life|
|00000f80| 2d 6e 65 69 67 68 62 6f | 72 2d 64 65 6c 74 61 73 |-neighbo|r-deltas|
|00000f90| 5d 20 39 5d 20 6c 69 66 | 65 2d 69 6e 73 65 72 74 |] 9] lif|e-insert|
|00000fa0| 2d 72 61 6e 64 6f 6d 2d | 70 61 74 74 65 72 6e 20 |-random-|pattern |
|00000fb0| 23 5b 6e 69 6c 20 22 c0 | 09 c2 09 47 21 9c 21 88 |#[nil ".|...G!.!.|
|00000fc0| c3 63 87 22 20 5b 69 6e | 73 65 72 74 2d 72 65 63 |.c." [in|sert-rec|
|00000fd0| 74 61 6e 67 6c 65 20 6c | 69 66 65 2d 70 61 74 74 |tangle l|ife-patt|
|00000fe0| 65 72 6e 73 20 72 61 6e | 64 6f 6d 20 31 30 5d 20 |erns ran|dom 10] |
|00000ff0| 34 5d 20 6c 69 66 65 2d | 69 6e 63 72 65 6d 65 6e |4] life-|incremen|
|00001000| 74 2d 67 65 6e 65 72 61 | 74 69 6f 6e 20 23 5b 6e |t-genera|tion #[n|
|00001010| 69 6c 20 22 08 54 10 c1 | 08 21 89 12 87 22 20 5b |il ".T..|.!..." [|
|00001020| 6c 69 66 65 2d 63 75 72 | 72 65 6e 74 2d 67 65 6e |life-cur|rent-gen|
|00001030| 65 72 61 74 69 6f 6e 20 | 69 6e 74 2d 74 6f 2d 73 |eration |int-to-s|
|00001040| 74 72 69 6e 67 20 6c 69 | 66 65 2d 67 65 6e 65 72 |tring li|fe-gener|
|00001050| 61 74 69 6f 6e 2d 73 74 | 72 69 6e 67 5d 20 32 5d |ation-st|ring] 2]|
|00001060| 20 6c 69 66 65 2d 67 72 | 69 6d 2d 72 65 61 70 65 | life-gr|im-reape|
|00001070| 72 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 88 c2 62 88 |r #[nil |"..!..b.|
|00001080| c1 89 89 89 89 1b 1c 1d | 1e 06 1e 07 c8 c9 c1 ca |........|........|
|00001090| 23 ab ec 0e 0b 13 cc 14 | 60 53 15 0b ab d1 0d 0b |#.......|`S......|
|000010a0| 40 5c 5c 89 16 07 66 89 | 16 06 cd 3d ab 8c ce 0e |@\\...f.|...=....|
|000010b0| 07 89 54 cd c2 ca 25 88 | aa b0 0e 06 cf 57 ab 8e |..T...%.|.....W..|
|000010c0| ce 0e 07 89 54 0e 06 89 | 54 ca 25 88 aa 9c 0e 06 |....T...|T.%.....|
|000010d0| d0 57 ab 8d ce 0e 07 89 | 54 0e 06 d0 ca 25 88 aa |.W......|T....%..|
|000010e0| 89 0e 06 d1 59 ab 83 0c | 54 14 0b 41 89 13 ac 2f |....Y...|T..A.../|
|000010f0| 0c d2 3e ac 18 ce 0d 89 | 54 d1 d3 ca 25 88 aa 0d |..>.....|T...%...|
|00001100| 2d cc 94 ac 83 d4 20 88 | ce c2 64 d0 cd ca 25 88 |-..... .|..d...%.|
|00001110| ce c2 64 c2 cd ca 25 88 | ce c2 64 d5 cd ca 25 88 |..d...%.|..d...%.|
|00001120| ce c2 64 cf d1 ca 25 88 | ce c2 64 d3 cd ca 25 87 |..d...%.|..d...%.|
|00001130| 22 20 5b 73 74 6f 72 65 | 2d 6d 61 74 63 68 2d 64 |" [store|-match-d|
|00001140| 61 74 61 20 6e 69 6c 20 | 31 20 6c 69 73 74 20 6c |ata nil |1 list l|
|00001150| 69 76 69 6e 67 2d 6e 65 | 69 67 68 62 6f 72 73 20 |iving-ne|ighbors |
|00001160| 70 69 76 6f 74 20 63 68 | 61 72 20 70 6f 69 6e 74 |pivot ch|ar point|
|00001170| 20 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 | search-|forward |
|00001180| 22 40 22 20 74 20 6c 69 | 66 65 2d 6e 65 69 67 68 |"@" t li|fe-neigh|
|00001190| 62 6f 72 2d 64 65 6c 74 | 61 73 20 30 20 33 32 20 |bor-delt|as 0 32 |
|000011a0| 73 75 62 73 74 2d 63 68 | 61 72 2d 69 6e 2d 72 65 |subst-ch|ar-in-re|
|000011b0| 67 69 6f 6e 20 33 20 39 | 20 36 34 20 28 32 20 33 |gion 3 9| 64 (2 3|
|000011c0| 29 20 36 35 20 6c 69 66 | 65 2d 65 78 74 69 6e 63 |) 65 lif|e-extinc|
|000011d0| 74 2d 71 75 69 74 20 32 | 5d 20 37 5d 20 6c 69 66 |t-quit 2|] 7] lif|
|000011e0| 65 2d 65 78 70 61 6e 64 | 2d 70 6c 61 6e 65 2d 69 |e-expand|-plane-i|
|000011f0| 66 2d 6e 65 65 64 65 64 | 20 23 5b 6e 69 6c 20 22 |f-needed| #[nil "|
|00001200| c0 c1 8d 88 c2 62 88 c3 | c4 60 0d 89 c6 5c 5c 5c |.....b..|.`...\\\|
|00001210| 5c 5c 5c c7 23 ab 9b c2 | 62 88 c8 c9 0d 5c 22 88 |\\\.#...|b....\".|
|00001220| ca 63 88 c8 c9 0d 5c 22 | 88 ca 63 88 0e 0b 0d c2 |.c....\"|..c.....|
|00001230| 5c 5c 5c 5c 16 0b cc 62 | 88 cd c4 60 0d 5a 0d 5a |\\\\...b|...`.Z.Z|
|00001240| c6 5a c7 23 ad 9c cc 62 | 88 c8 c9 0d 5c 22 88 ca |.Z.#...b|....\"..|
|00001250| 63 88 c8 c9 0d 5c 22 88 | ca 63 88 0e 0b 0d c2 5c |c....\".|.c.....\|
|00001260| 5c 5c 5c 89 16 0b 87 22 | 20 5b 64 6f 6e 65 20 28 |\\\...."| [done (|
|00001270| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 62 88 6d ac |byte-cod|e ".b.m.|
|00001280| b6 67 c1 3d ac 88 c2 7f | 88 68 c1 3d ab a4 c0 62 |.g.=....|.h.=...b|
|00001290| 88 6d ac 8e c3 63 88 c2 | 7f 88 c3 63 88 c2 75 88 |.m...c..|...c..u.|
|000012a0| aa 6f 0c c5 5c 5c 14 c6 | c0 21 88 c7 20 88 c8 c9 |.o..\\..|.!.. ...|
|000012b0| ca 5c 22 88 c2 79 88 aa | 47 c2 87 22 20 5b 31 20 |.\"..y..|G.." [1 |
|000012c0| 36 34 20 6e 69 6c 20 33 | 32 20 66 69 6c 6c 2d 63 |64 nil 3|2 fill-c|
|000012d0| 6f 6c 75 6d 6e 20 32 20 | 73 63 72 6f 6c 6c 2d 6c |olumn 2 |scroll-l|
|000012e0| 65 66 74 20 6c 69 66 65 | 2d 63 6f 6d 70 75 74 65 |eft life|-compute|
|000012f0| 2d 6e 65 69 67 68 62 6f | 72 2d 64 65 6c 74 61 73 |-neighbo|r-deltas|
|00001300| 20 74 68 72 6f 77 20 64 | 6f 6e 65 20 74 5d 20 33 | throw d|one t] 3|
|00001310| 29 20 31 20 73 65 61 72 | 63 68 2d 66 6f 72 77 61 |) 1 sear|ch-forwa|
|00001320| 72 64 20 22 40 22 20 66 | 69 6c 6c 2d 63 6f 6c 75 |rd "@" f|ill-colu|
|00001330| 6d 6e 20 32 20 74 20 69 | 6e 73 65 72 74 2d 63 68 |mn 2 t i|nsert-ch|
|00001340| 61 72 20 33 32 20 31 30 | 20 6c 69 66 65 2d 77 69 |ar 32 10| life-wi|
|00001350| 6e 64 6f 77 2d 73 74 61 | 72 74 20 31 33 34 32 31 |ndow-sta|rt 13421|
|00001360| 37 37 32 37 20 73 65 61 | 72 63 68 2d 62 61 63 6b |7727 sea|rch-back|
|00001370| 77 61 72 64 5d 20 36 5d | 20 6c 69 66 65 2d 64 69 |ward] 6]| life-di|
|00001380| 73 70 6c 61 79 2d 67 65 | 6e 65 72 61 74 69 6f 6e |splay-ge|neration|
|00001390| 20 23 5b 28 73 6c 65 65 | 70 74 69 6d 65 29 20 22 | #[(slee|ptime) "|
|000013a0| 08 62 88 c1 c2 21 88 c3 | 0c 21 c5 3d ae 84 c6 c7 |.b...!..|.!.=....|
|000013b0| c8 5c 22 87 22 20 5b 6c | 69 66 65 2d 77 69 6e 64 |.\"." [l|ife-wind|
|000013c0| 6f 77 2d 73 74 61 72 74 | 20 72 65 63 65 6e 74 65 |ow-start| recente|
|000013d0| 72 20 30 20 73 69 74 2d | 66 6f 72 20 73 6c 65 65 |r 0 sit-|for slee|
|000013e0| 70 74 69 6d 65 20 74 20 | 74 68 72 6f 77 20 6c 69 |ptime t |throw li|
|000013f0| 66 65 2d 65 78 69 74 20 | 6e 69 6c 5d 20 33 5d 20 |fe-exit |nil] 3] |
|00001400| 6c 69 66 65 2d 65 78 74 | 69 6e 63 74 2d 71 75 69 |life-ext|inct-qui|
|00001410| 74 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 88 c2 c3 c4 |t #[nil |"..!....|
|00001420| 5c 22 87 22 20 5b 6c 69 | 66 65 2d 64 69 73 70 6c |\"." [li|fe-displ|
|00001430| 61 79 2d 67 65 6e 65 72 | 61 74 69 6f 6e 20 30 20 |ay-gener|ation 0 |
|00001440| 73 69 67 6e 61 6c 20 6c | 69 66 65 2d 65 78 74 69 |signal l|ife-exti|
|00001450| 6e 63 74 20 6e 69 6c 5d | 20 33 5d 20 6c 69 66 65 |nct nil]| 3] life|
|00001460| 2d 65 78 74 69 6e 63 74 | 20 65 72 72 6f 72 2d 63 |-extinct| error-c|
|00001470| 6f 6e 64 69 74 69 6f 6e | 73 20 28 6c 69 66 65 2d |ondition|s (life-|
|00001480| 65 78 74 69 6e 63 74 20 | 71 75 69 74 29 20 65 72 |extinct |quit) er|
|00001490| 72 6f 72 2d 6d 65 73 73 | 61 67 65 20 22 41 6c 6c |ror-mess|age "All|
|000014a0| 20 6c 69 66 65 20 68 61 | 73 20 70 65 72 69 73 68 | life ha|s perish|
|000014b0| 65 64 22 20 70 72 6f 76 | 69 64 65 5d 20 34 29 0a |ed" prov|ide] 4).|
+--------+-------------------------+-------------------------+--------+--------+