8ビットカツ
#pico8 
local x,y,w,h,c=9,40,110,40,{}for n=1,w*h do add(c,rnd({10,9,9,4}))end::_::cls()n=0for a=1,w do for b=1,h do n+=1 nc=c[n]if b%h&lt;=1 or a%w&lt;=1 then nc=nc&gt;9 and 9 or 0end pset(x+a,y+b,nc)end end flip()goto _
#pico8