Cluiċe Beaṫa
Feiḋmiú Cluiċe Beaṫa Conway le 138 caraċtar le Pico-8.
Cód foinseaċ:
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 sFeiḋmiú Cluiċe Beaṫa Conway le 138 caraċtar le Pico-8.
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