Escreva um programa ou função que "reaja" a um número inteiro n (entrada via parâmetro de função / args / stdin)

O programa não se importa com números negativos, gosta de pares, não gosta de números ímpares e teme o número 13.

Ele deve gerar o seguinte:

se n <0:

 --------------------------
 |                        |
 |                        |
(|      _          _      |)
 |                        |
 |                        |
 |                        |
 |                        |
 |       oooooooooo       |
 |                        |
 |                        |
 |                        |
 --------------------------

se n% 2 == 0 en> -1:

 --------------------------
 |                        |
 |                        |
(|      ^          ^      |)
 |                        |
 |                        |
 |                        |
 |     o            o     |
 |       oooooooooo       |
 |                        |
 |                        |
 |                        |
 --------------------------

se n% 2 == 1 en> -1 en! = 13:

 --------------------------
 |                        |
 |                        |
(|      >          <      |)
 |                        |
 |                        |
 |                        |
 |                        |
 |       oooooooooo       |
 |     o            o     |
 |                        |
 |                        |
 --------------------------

se n == 13:

 --------------------------
 |                        |
 |                        |
(|     (O)        (O)     |)
 |                        |
 |                        |
 |       oooooooooo       |
 |       o        o       |
 |       oooooooooo       |
 |                        |
 |                        |
 |                        |
 --------------------------

A solução mais curta em bytes vence.

CJam - 169

S24*aB*2li_D=3{_0<2{_2%}?}?\;:X"^^<>__":s"(O)"a2*+2/=~6X3=-{S*_@+_,C\-S*2*+@@++}:F~t7'o5*_7F:MtX3={5Mt6'o_7Ft}*X2<{X2*6+'o_5Ft}*{" |"\+'|+}%S'-26*+aa2*\*_3=1>"()"\*3\tN*

Experimente em http://cjam.aditsu.net/

Explicação de alto nível:

S24*aB*cria uma matriz cheia de espaços, pois a face sem bordas
li_D=3{_0<2{_2%}?}?\;:Xlê o número e o converte em 0 (par), 1 (ímpar), 2 (negativo) ou 3 (13), armazenando-o em X
X"^^<>__":s"(O)"a2*+2/=~seleciona os tipos de olho (2 cordas)
{S*_@+_,C\-S*2*+@@++}:F- função F leva 2 cadeias (digamos S1, S2) e um número (digamos N) e faz com que uma corda 24 no carvão contendo espaços N, S2, outros espaços, S1, N espaços
2 (eyes) 6X3=- (F)~tcoloca a linha de olhos na matriz
7'o5*_7F:Mtcoloca o linha da boca comum na matriz e também a salva em M
X3={5Mt6'o_7Ft}*se X for 3, coloca M novamente na matriz, 2 linhas mais altas e coloca os lados da boca no meio
X2<{X2*6+'o_5Ft}*se X for 0 ou 1, coloca os cantos da boca em a posição apropriada
{" |"\+'|+}%adiciona bordas verticais e um espaço à esquerda em cada linha
S'-26*+aa2*\*adiciona as bordas horizontais
_3=1>"()"\*3\tadiciona as orelhas
N* adiciona separadores de nova linha

Ruby, 241 224

f=->n{s=" #{?-*26}
"
s+=" |#{' '*24}|
"*11+s
s[84]=?(
s[110]+=?)
s[233,12]=m=?O*12
s[91,3]=s[102,3]=n<0?' _ ':n==13?(s[177,12]=m;s[205]=s[216]=?O;'(O)'):(s[203+d=n%2*56]=s[218+d]=?O;" #{n%2<1??^:b=?>} ")
s[103]=?<if b
$><<s}

Isso define uma função a ser chamada como f[13]. Tenho certeza de que há muito espaço para melhorias, semelhante ao que Ventero me ajudou a fazer aqui .

Basicamente, estou construindo a estrutura áspera primeiro e prendo as orelhas e a boca. Então eu coloco os olhos, dependendo do número. Enquanto elabora os personagens para colocar nos olhos, eu também cuido das bocas diferentes para não precisar verificar o tipo de número novamente. Finalmente, preciso corrigir o olho direito para números ímpares, porque o código acima coloca a mesma string nos dois olhos.

C # - 349 bytes

Certamente não vou ganhar nenhum prêmio, mas uma maneira diferente de fazer as coisas.

Golfe:

class P{static void Main(string[]A){int j=64,i,r=0,n=int.Parse(A[0]);for(var f=(n<0?"IDID-TDTD-":n==13?"HDHD(IDIDOJDJD)SDSD(TDTDOUDUD)KIRI JHSJo":n%2<1?"IDID^TDTD^HIHIoUIUIo":"IDID>TDTD<HKHKoUKUKo")+@"JJSJoCBZM BB[M|BA[N-ADAD(\D\D)AA\N AA]N"+"\n";j++<78;)for(i=64;i++<93;System.Console.Write(f[r]))for(r=0;f[r++]>i|f[r++]>j|i>f[r++]|j>f[r++];r++);}}

Menos golfe:

class P
{
    static void Main(string[]A)
    {
        int j=64,i,r=0,n=int.Parse(A[0]); // everything is offset by 65 in this program

        for(
            var f=(n<0?"IDID-TDTD-": // this string describes a set of rectangles (x1,y1,x2,y2,ch)
                n==13?"HDHD(IDIDOJDJD)SDSD(TDTDOUDUD)KIRI JHSJo":
                n%2<1?"IDID^TDTD^HIHIoUIUIo":
                "IDID>TDTD<HKHKoUKUKo"
                )+@"JJSJoCBZM BB[M|BA[N-ADAD(\D\D)AA\N AA]N"+"\n";

            j++<78;) // the loop then prints the rectangles to the screen
            for(i=64;i++<93;System.Console.Write(f[r]))
                for(r=0;f[r++]>i|f[r++]>j|i>f[r++]|j>f[r++];r++);
    }
}

Python 2-255

Não é muito curto, mas vou postá-lo de qualquer maneira:

n=input()
o='o'
S='  '
w=y=7*S
b=' '+'-'*26+'\n'
p=' |%19s     |\n'
E=p%y*2
v=S+o*10+S
u=z=o+6*S+o
A=a='^ '
if n%2:A='< ';a='> ';u=y;w=z
if n<0:A=a='_ ';u=w=y
if n==13:A=a='(O)';u=w=v;v=S+o+S*4+o+S
print b+E+'(|%8s%11s     |)\n'%(a,A)+E+p%u+p%v+p%w+E+b

Eu sinto falta da atribuição de itens para strings em Python! :( Então pode-se começar com a matriz de caracteres e simplesmente modificar olhos e boca.

Python 2, 257

Não é um vencedor, mas uma abordagem alternativa, chegou bem perto! Espero poder extrair mais alguns caracteres dele. Constrói todas as linhas peça por peça, usando substrings comuns para realmente extrair os bytes.

X,Z=R=" |"
Q=X*5
Y=X*7
A=X+"-"*26
B=R+X*24+Z
n=input()
a,b,c,d,e,f,g=((("^>^<o  o "+Q)[n%2::2],"OO  ()o")[n==13],"__"+Q)[n<0]
for F in(A,B,B,"(|"+Q+e+a+f+Y+X+e+b+f+Q+"|)",B,B,R+Y+g*10+Y+Z,R+Q+c+X+g+Y+X+g+X+c+Q+Z,R+Y+"o"*10+Y+Z,R+Q+d+Y+Q+d+Q+Z,B,B,A):print F

CJam, 202

[S'-26*N]:Z[S'|:PS24*PN]:RR'(PS5*qi:XD=X0<-X2%2*+:Y[" ^ "_" > ""(O)"" - "__]=S8*Y[" ^ ""   "" < ""(O)"" - "__]=S5*P')NRRXD=[SPS7*'oA*S7*PN]:QR?Y[[SPS5*'oSC*'oS5*PN]:T_R[SPS7*'oS8*'oS7*PN]RRR]=QY2=TR?RRZ