Написати програму або функцію, яка "реагує" на задане ціле число n (введення через параметр функції / args / stdin)

Програма не дбає про негативні числа, любить парні, не любить непарні числа і побоюється число 13.

Він повинен виводити наступне:

якщо n <0:

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

якщо n% 2 == 0 і n> -1:

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

якщо n% 2 == 1 і n> -1 і n! = 13:

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

якщо n == 13:

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

Виграє найкоротше рішення в байтах.

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*

Спробуйте це на веб-сайті http://cjam.aditsu.net/

Пояснення на високому рівні:

S24*aB*робить матрицю, повну пробілів, для обличчя без ребер
li_D=3{_0<2{_2%}?}?\;:Xчитає число і перетворює його в 0 (парні), 1 (непарні), 2 (негативні) або 3 (13), зберігаючи його в X,
X"^^<>__":s"(O)"a2*+2/=~вибирає види очей (2 рядки)
{S*_@+_,C\-S*2*+@@++}:F- функція F приймає 2 рядки (скажімо S1, S2) і число (скажімо N) і складає 24-знакову рядок, що містить N пробілів, S2, інші пробіли, пробіли S1, N
2 (eyes) 6X3=- (F)~tставить лінію очей у матрицю,
7'o5*_7F:Mtставить загальна лінія рота в матриці, а також зберігає її в M,
X3={5Mt6'o_7Ft}*якщо X дорівнює 3, вона знову ставить M в матрицю, на 2 рядки вище, і розміщує сторони рота між ними,
X2<{X2*6+'o_5Ft}*якщо X дорівнює 0 або 1, вона ставить кути рота в відповідне положення
{" |"\+'|+}%додає вертикальні краї, а пробіл зліва в кожній лінії
S'-26*+aa2*\*додає горизонтальні краї,
_3=1>"()"\*3\tдодає вушка
N* додає роздільники нових рядків

Рубі, 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}

Це визначає функцію, яку слід називати подібною f[13]. Я впевнений , що є багато можливостей для покращення, схоже , що Ventero допомогли мені зробити тут .

В основному я спочатку будую грубі рамки і прикріплюю вуха, а також рот. Потім я розміщую очі залежно від кількості. Під час роботи над персонажами, які потрібно поставити на очі, я також дбаю про різні роти, тому мені не доведеться знову перевіряти тип номера. Нарешті, мені потрібно зафіксувати праве око для непарних чисел, оскільки код вище ставить однакову рядок в обидва ока.

C # - 349 байт

Звичайно, вигравати не якісь нагороди, а інший спосіб робити речі.

Гольф:

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

Менше гольфу:

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

Пітон 2 - 255

Не дуже короткий, але я все-таки опублікую його:

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

Я сумую за призначенням елементів для рядків у Python! :( Тоді можна почати з матриці символів і просто змінити очі і рот.

Пітон 2, 257

Не переможець, а альтернативний підхід, досить близько! Я маю надію, що зможу вичавити з неї ще кілька символів. Побудовує всі рядки по частинах, використовуючи загальні підрядки, щоб дійсно видавити байти.

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