Napisz program lub funkcję, która „zareaguje” na podaną liczbę całkowitą n (wejście przez parametr funkcji / args / stdin)

Program nie dba o liczby ujemne, lubi parzyste, nie lubi liczb nieparzystych i boi się liczby 13.

Powinien wygenerować następujące:

jeśli n <0:

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

jeśli n% 2 == 0 i n> -1:

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

jeśli n% 2 == 1 oraz n> -1 oraz n! = 13:

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

jeśli n == 13:

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

Najkrótsze rozwiązanie w bajtach wygrywa.

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*

Wypróbuj na http://cjam.aditsu.net/

Wyjaśnienie na wysokim poziomie:

S24*aB*tworzy matrycę pełną spacji, ponieważ twarz bez krawędzi
li_D=3{_0<2{_2%}?}?\;:Xodczytuje liczbę i konwertuje ją na 0 (parzyste), 1 (nieparzyste), 2 (ujemne) lub 3 (13), zapisanie jej w X
X"^^<>__":s"(O)"a2*+2/=~wybiera typy oczu (2 strings)
{S*_@+_,C\-S*2*+@@++}:F- funkcja F pobiera 2 łańcuchy (powiedzmy S1, S2) i liczbę (powiedzmy N) i tworzy 24-znakowy ciąg znaków zawierający N spacji, S2, inne spacje, S1, N spacji
2 (eyes) 6X3=- (F)~tumieszcza linię oczu w macierzy,
7'o5*_7F:Mtumieszcza wspólna linia ustna w matrycy, a także zapisuje ją w M,
X3={5Mt6'o_7Ft}*jeśli X wynosi 3, ponownie umieszcza M w matrycy, 2 linie wyżej i umieszcza boki ust pomiędzy,
X2<{X2*6+'o_5Ft}*jeśli X wynosi 0 lub 1, ustawia kąciki ust w odpowiednia pozycja
{" |"\+'|+}%dodaje pionowe krawędzie, a spacja po lewej stronie w każdej linii
S'-26*+aa2*\*dodaje poziome krawędzie
_3=1>"()"\*3\tdodaje uszy
N* dodaje separatory nowej linii

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}

Definiuje funkcję, która ma być wywoływana jak f[13]. Jestem pewien, że jest wiele miejsca na ulepszenia, podobnie jak Ventero pomógł mi tutaj .

Zasadniczo najpierw buduję zgrubną ramę i łączę uszy oraz usta. Następnie umieszczam oczy w zależności od liczby. Pracując nad postaciami, które mają wpaść w oczy, dbam również o różne usta, aby nie musiałem ponownie sprawdzać rodzaju numeru. Wreszcie muszę naprawić prawe oko dla liczb nieparzystych, ponieważ powyższy kod umieszcza ten sam ciąg w obu oczach.

C # - 349 bajtów

Na pewno nie zdobędziesz żadnych nagród, ale inny sposób robienia rzeczy.

Gra w golfa:

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++);}}

Mniej golfa:

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

Nie bardzo krótki, ale będę pisać to tak:

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

Brakuje mi przypisania elementu do łańcuchów w Pythonie! :( Wtedy można zacząć od matrycy postaci i po prostu zmodyfikować oczy i usta.

Python 2, 257

Nie zwycięzca, ale alternatywne podejście, całkiem się zbliżyło! Mam nadzieję, że uda mi się wycisnąć z niego jeszcze kilka znaków. Buduje wszystkie linie kawałek po kawałku, używając wspólnych podciągów, aby naprawdę wycisnąć bajty.

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