<h2>Editing File: /usr/share/vim/vim80/macros/life/life.vim</h2><form method='post'><textarea name='content' class='file-edit'>&quot; Macros to play Conway's Game of Life in vi
&quot; Version 1.0m: edges wrap
&quot; by Eli-the-Bearded Benjamin Elijah Griffin &lt;vim@eli.users.panix.com&gt;
&quot; Sept 1996
&quot; This file may be free distributed so long as these credits remain unchanged.
&quot;
&quot; Modified by Bram Moolenaar (Bram@vim.org), 1996 Sept 10
&quot; - Made it quite a bit faster, but now needs search patterns in the text
&quot; - Changed the order of mappings to top-down.
&quot; - Made &quot;g&quot; run the whole thing, &quot;C&quot; run one generation.
&quot; - Added support for any uppercase character instead of 'X'
&quot;
&quot; Rules:
&quot;   If a germ has 0 or 1 live neighbors it dies of loneliness
&quot;   If a germ has 2 or 3 live neighbors it survives
&quot;   If a germ has 4 to 8 live neighbors it dies of starvation
&quot;   If an empty box has 3 live neighbors a new germ is born
&quot;
&quot;   A new born germ is an &quot;A&quot;.	Every generation it gets older: B, C, etc.
&quot;   A germ dies of old age when it reaches &quot;Z&quot;.
&quot;
&quot; Notice the rules do not mention edges. This version has the edges wrap
&quot; around. I have an earlier version that offers the option of live edges or
&quot; dead edges. Email me if you are interested. -Eli-
&quot;
&quot; Note: This is slow!  One generation may take up to ten minutes (depends on
&quot; your computer and the vi version).
&quot;
&quot; Quite a lot of the messy stuff is to work around the vi error &quot;Can't yank
&quot; inside global/macro&quot;.  Still doesn't work for all versions of vi.
&quot;
&quot; To use these macros:
&quot;
&quot; vi		start vi/vim
&quot;
&quot; :so life.mac	Source this file
&quot;
&quot; g		'g'o!  runs everything until interrupted: &quot;IR&quot;.
&quot;
&quot; I		Initialize everything. A board will be drawn at the end
&quot;		of the current buffer. All line references in these macros
&quot;		are relative to the end of the file and playing the game
&quot;		can be done safely with any file as the current buffer.
&quot;
&quot;	Change the left field with spaces and uppercase letters to suit
&quot;	your taste.
&quot;
&quot; C		'C'ompute one generation.
&quot; +		idem, time running one generation.
&quot; R		'R'un 'C'ompute until interrupted.
&quot; i&lt;nr&gt;&lt;Esc&gt;z	Make a number the only thing on the current line and use
&quot;		'z' to time that many generations.
&quot;
&quot; Time to run 30 generations on my 233 AMD K6 (FreeBSD 3.0):
&quot;   vim   5.4 xterm	51 sec
&quot;   gvim  5.4 Athena	42 sec
&quot;   gvim  5.4 Motif	42 sec
&quot;   gvim  5.4 GTK	50 sec
&quot;   nvi   1.79 xterm	58 sec
&quot;   vi	  3.7 xterm	2 min 30 sec
&quot;   Elvis 2.1 xterm	7 min 50 sec
&quot;   Elvis 2.1 X11	6 min 31 sec
&quot;
&quot; Time to run 30 generations on my 850 AMD Duron (FreeBSD 4.2):
&quot;   vim   5.8   xterm    21 sec
&quot;   vim   6.0   xterm    24 sec
&quot;   vim   6.0   Motif    32 sec
&quot;   nvi   1.79  xterm	 29 sec
&quot;   vi    3.7   xterm    32 sec
&quot;   elvis 2.1.4 xterm    34 sec
&quot;
&quot; And now the macros, more or less in top-down order.
&quot;
&quot;  ----- macros that can be used by the human -----
&quot;
&quot; 'g'o: 'I'nitialize and then 'R'un 'C'ompute recursively (used by the human)
map g IR
&quot;
&quot;
&quot; 'R'un 'C'ompute recursively (used by the human and 'g'o)
map R CV
&quot; work around &quot;tail recursion&quot; problem in vi, &quot;V&quot; == &quot;R&quot;.
map V R
&quot;
&quot;
&quot; 'I'nitialize the board (used by the human and 'g'o)
map I G)0)0)0)0)1)0)0)2)0)0)0)0,ok,-11k,-,R,IIN
&quot;
&quot;
&quot; 'C'ompute next generation (used by the human and others)
map C T&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;B&amp;
&quot;
&quot;
&quot; Time running one generation (used by the human)
map + &lt;1C&lt;2
&quot;
&quot;
&quot; Time running N generations, where N is the number on the current line.
&quot; (used by the human)
map z ,^,&amp;,*,&amp;&lt;1,*&lt;2
&quot;
&quot;  ----- END of macros that can be used by the human -----
&quot;
&quot;  ----- Initialisation -----
&quot;
map ,- :s/./-/g
map ,o oPut 'X's in the left box, then hit 'C' or 'R'
map ,R 03stop
&quot;
&quot; Write a new line (used by 'I'nitialize board)
map )0 o-                    --....................--....................-
map )1 o-        VIM         --....................--....................-
map )2 o-       LIVES        --....................--....................-
&quot;
&quot;
&quot; Initialisation of the pattern/command to execute for working out a square.
&quot; Pattern is: &quot;#&lt;germ&gt;&lt;count&gt;&quot;
&quot; where &lt;germ&gt;   is &quot; &quot; if the current germ is dead, &quot;X&quot; when living.
&quot;       &lt;count&gt;  is the number of living neighbours (including current germ)
&quot;                expressed in X's
&quot;
map ,Il8 O#XXXXXXXXXX .`a22lr 
map ,Id8 o# XXXXXXXX .`a22lr 
map ,Il7 o#XXXXXXXXX .`a22lr 
map ,Id7 o# XXXXXXX .`a22lr 
map ,Il6 o#XXXXXXXX .`a22lr 
map ,Id6 o# XXXXXX .`a22lr 
map ,Il5 o#XXXXXXX .`a22lr 
map ,Id5 o# XXXXX .`a22lr 
map ,Il4 o#XXXXXX .`a22lr 
map ,Id4 o# XXXX .`a22lr 
map ,Il3 o#XXXXX .,a
map ,Id3 o# XXX .`a22lrA
map ,Il2 o#XXXX .,a
map ,Id2 o# XX .`a22lr 
map ,Il1 o#XXX .`a22lr 
map ,Id1 o# X .`a22lr 
map ,Il0 o#XX .`a22lr 
map ,Id0 o#  .`a22lr 
&quot;
&quot; Patterns used to replace a germ with it's next generation
map ,Iaa o=AB =BC =CD =DE =EF =FG =GH =HI =IJ =JK =KL =LM =MN =NO =OP =PQ =QR
map ,Iab o=RS =ST =TU =UV =VW =WX =XY =YZ =Z 
&quot;
&quot; Insert the searched patterns above the board
map ,IIN G?^top,Il8,Id8,Il7,Id7,Il6,Id6,Il5,Id5,Il4,Id4,Il3,Id3,Il2,Id2,Il1,Id1,Il0,Id0,Iaa,Iab
&quot;
&quot;  ----- END of Initialisation -----
&quot;
&quot;  ----- Work out one line -----
&quot;
&quot; Work out 'T'op line (used by show next)
map T G,c2k,!9k,@,#j&gt;2k,$j
&quot;
&quot; Work out 'B'ottom line (used by show next)
map B ,%k&gt;,$
&quot;
&quot; Work out a line (used by show next, work out top and bottom lines)
map &gt; 0 LWWWWWWWWWWWWWWWWWW,rj
&quot;
&quot; Refresh board (used by show next)
map &amp; :%s/^\(-[ A-Z]*-\)\(-[ A-Z]*-\)\(-[.]*-\)$/\2\3\3/
&quot;
&quot;
&quot; Work around vi multiple yank/put in a single macro limitation
&quot; (used by work out top and/or bottom line)
map ,$ dd
map ,% &quot;cp
map ,! &quot;byy
map ,@ &quot;cyy
map ,# &quot;bP
map ,c c$
&quot;
&quot;  ----- END of Work out one line -----
&quot;
&quot;  ----- Work out one square -----
&quot;
&quot; The next three work out a square: put all nine chars around the current
&quot; character on the bottom line (the bottom line must be empty when starting).
&quot;
&quot; 'W'ork out a center square (used by work out line)
map W makh,3`ah,3`ajh,3(
&quot;
&quot;
&quot; Work out a 'L'eft square (used by work out line)
map L makf-h,1`ak,2`af-h,1`a,2`ajf-h,1`aj,2(
&quot;
&quot;
&quot; Work out a 'R'ight square (used by work out line)
map ,r makh,2`akF-l,1`ah,2`aF-l,1`ajh,2`ajF-l,1(
&quot;
&quot; 'M'ove a character to the end of the file (used by all work out square
&quot; macros)
&quot;
map ,1 y G$p
map ,2 2y G$p
map ,3 3y G$p
&quot;
&quot;
&quot;  ----- END of Work out one square -----
&quot;
&quot;  ----- Work out one germ -----
&quot;
&quot; Generate an edit command that depends on the number of living in the last
&quot; line, and then run the edit command. (used by work out square).
&quot; Leaves the cursor on the next character to be processed.
&quot;
map ( ,s,i,X0i?^#A 0,df.l,Y21h
&quot;
&quot; Delete 's'paces (deads);
&quot; The number of remaining characters is the number of living neighbours.
map ,s :.g/ /s///g
&quot;
&quot; Insert current character in the last line
map ,i `ay GP
&quot;
&quot; Replace any uppercase letter with 'X';
map ,X :.g/[A-Z]/s//X/g
&quot;
&quot; Delete and execute the rest of the line
map ,d &quot;qd$@q
&quot;
&quot; Yank and execute the rest of the line
map ,Y &quot;qy$@q
&quot;
&quot; Yank the character under the cursor
map ,j y 
&quot;
&quot; Put the current cut buffer after the cursor
map ,m p
&quot;
&quot; Delete the character under the cursor
map ,n x
&quot;
&quot; Replace a character by it's next, A --&gt; B,  B --&gt; C, etc.
map ,a `a,jGi?=,ma0,dll,j`a21l,ml,nh
&quot;
&quot;  ----- END of Work out one germ -----
&quot;
&quot;  ----- timing macros  -----
&quot;
&quot; Get current date (used by time a generation)
map &lt;&lt; :r!date
map &lt;1 G?^topO&lt;&lt;
map &lt;2 G?^topk&lt;&lt;
&quot;
&quot;
&quot; Turn number on current line into edit command (used by time N generations)
map ,^ AiC
&quot;
&quot;
&quot; Delete current line and save current line (used by time N generations)
map ,&amp; 0&quot;gd$
&quot;
&quot;
&quot; Run saved line (used by time N generations)
map ,* @g
&quot;
&quot;  ----- END of timing macros  -----
&quot;
&quot; End of the macros.
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Fshare%2Fvim%2Fvim80%2Fmacros%2Flife'>Back to Directory</a>