Game of Life
A Pico-8 implementation of Conway’s Game of Life in 138 characters.
More details on the code can be read here.
Source code:
k=2^13::s::for a=0,k do
n=0 for x=0,8 do
n+=peek(k*3+a+x/3+x%3*64-65)end
poke(a,n==12 and 4 or n==16 and peek(a))end
memcpy(k*3,0,k)goto s