Python -> Piet, 385 345 caracteres
É possível gerar qualquer programa Piet com isso. Eu poderia ter parado em pixels aleatórios, mas queria criar programas "interessantes". A função m
pinta um pixel a cor e recursivamente entra em cada um desses pixels vizinhos. Existem maneiras melhores de desenhar blobs aleatórios, mas isso é ajustado para terminar em um número razoável de etapas, portanto é bom o suficiente para o golfe. A função R(w,h,n)
desenha n blobs aleatórios em uma imagem branca ( w x h ) e imprime o resultado no formato PPM.
Estou especialmente orgulhoso de como eu gero as cores - para uma escolha aleatória de 0 <= c < 20
,
`[0,192,255][int(x)]`for x in'0002212220200101121100'[c:c+3]
é o código decimal para uma cor válida na paleta Piet por meio de um código Gray de faixa única . Ou seja, cada cor é representada por 3 bits adjacentes e cada fatia '0003...0'[c:c+3]
representa uma cor diferente. Como essa não é a lista completa de 27 palavras em três letras, tive muita sorte em encontrar o código Gray.
from random import*
r=randint
def R(w,h,n):
M=[6]*h*w
def m(x,y,c,d):M[y%h*w+x%w]=c;t=r(0,15)*(r(0,d)<2);t&8and m(x+1,y,c,d+1);t&4and m(x-1,y,c,d+1);t&2and m(x,y+1,c,d+1);t&1and m(x,y-1,c,d+1)
while n:m(r(0,w),r(0,h),r(0,19),0);n-=1
print"P3 %s %s 255 "%(w,h)+' '.join(`[0,192,255][int(x)]`for c in M for x in'0002212220200101121100'[c:c+3])
Saída de amostra, gerada pelo comando R(30,40,500)
Sem a importação, também posso escrevê-lo como uma linha única (sem ponto e vírgula):
import random
R=(lambda P,I,E,T:lambda w,h,n:E(w,h,I(w,h,n,lambda z,c,d,t:sum((((z,c),)*t*T(0,1)or m((z[0]+a,z[1]+b),c,d+1,T(0,d)>1)for a,b in((0,1),(1,0),(-1,0),(0,-1))),()))))(range,lambda w,h,n,m:dict(sum((m((T(0,w),T(0,h)),T(0,19),0,0)for _ in P(n)),())),lambda w,h,M:"P3 %s %s 255 "%(w,h)+' '.join(' '.join(`(x&1)*255+(x&2)*96`for x in map(int,'0001121110100202212200'[c:c+3]))for c in(M[z]if z in M else 6for z in((x,y)for y in P(h)for x in P(w)))),random.randint)
mas é ridiculamente lento (e quase 100 caracteres a mais) ... embora eu não tenha muita certeza do porquê (e não tenha muita vontade de descobrir).