/ same code length but without the local variable
life:{0 wrote:
> � {3=a-x*4=a:2 sum/2(1 0 -1 rotate'\:)/x}
> � �Attila
>
> On 1 Feb 2009, at 23:28, Attila Vrabecz wrote:
>
> > life:{(3=a)|x&4=a:2 sum/2 rotate'\:[1 0 -1]/x}
> > � �Attila
>
> > On 1 Feb 2009, at 23:23, Attila Vrabecz wrote:
>
> >> quite fun
>
> >> life:{any(1;x)&3 4=\:2 sum/2(1 0 -1 rotate'\:)/x}
> >> � �Attila
>
> >> On 1 Feb 2009, at 15:33, Aaron Davies wrote:
>
> >>> life in one line of APL, recently popular on reddit, etc.
>
> >>>http://www.youtube.com/watch?v=a9xAKttWgP4&fmt=18
>
> >>> my q port
>
> >>> fps:"I"$first((.Q.opt .z.x)`fps),"5"
> >>> .q.clear:{1"\033[H\033[J";}
> >>> disp:{1@-1_` sv .Q.s each x;}
> >>> life:{any(1b;x)&'3 4=\:sum sum f(f:rotate'\:[1 0 -1])x}
> >>> gen:{y life/x}
> >>> frame:{clear[];-1 ssr[;"0";" "]each raze each string �
> >>> x;system"sleep ",string 1%fps}
> >>> run:{frame each(life\)x;}
> >>> r:(3 3#til 9)in 1 2 3 4 7
> >>> R:-1 rotate -2 rotate'(5#7#'r)&(3#enlist 1110000b),2 7#0b
> >>> RR:((5 35#0b),(13#0b),/:R,\:15#0b),5 35#0b
> >>> F:"1"=(
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � �11 � � � � � � � � ";
> >>> �" � � � � � � � 11 � � � � � � � � �";
> >>> �" � � � � � � � �1 � � � � � � � � �";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � "
> >>> �)
> >>> glider:"1"=(
> >>> �" 1 � � � � � � � � � � � � � � � � ";
> >>> �" �1 � � � � � � � � � � � � � � � �";
> >>> �"111 � � � � � � � � � � � � � � � �";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � ";
> >>> �" � � � � � � � � � � � � � � � � � "
> >>> �)
> >>> \
> >>> run F