life in one line of APL, recently popular on reddit,
etc.http://www.youtube.com/watch?v=a9xAKttWgP4&fmt=18my q
portfps:"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'\...