Наскільки добре ви знаєте сайт? Давай дізнаємось.

Це виклик копів та грабіжників . Розбійнича нитка.

Як поліцейський, вам потрібно:

1. Знайдіть на цьому веб-сайті невидалене незакрите виклик, щоб відповісти. У виклику не можуть бути такі теги: поліцейські-грабіжники , популярність-змагання , коди-тролінг , непокірний , зайнятий бобр , король гірки , поради , ланцюжок відповідей . У виклику повинні бути обмеження щодо дійсного виводу.
2. Напишіть дійсну заявку на виклик вільною мовою, яку ви знайдете у Вікіпедії чи esolangs.org чи на тритонічній лінії . Подання не повинно бути конкурентоспроможним, лише дійсним. РЕДАКТИРУВАННЯ. Записування публікацій заборонено
3. Опублікуйте подання тут, зберігаючи виклик в таємниці. Ви повинні опублікувати всю публікацію, а також мову (та версію, якщо це застосовується).

Через тиждень, якщо ніхто не знайшов виклик, на який ви відповідаєте, ви можете опублікувати виклик, на який відповідає ваше повідомлення, і в цей момент ваше подання надійне . Варто N балів, де N - кількість оновлених результатів на виклик (станом на 2016-11-17 ) (Вищий - кращий)

Щоб зламати ваш виклик, грабіжникам потрібно знайти будь-яку проблему, для якої подання є дійсним.

Примітки:

• Якщо для виклику потрібен вихід X, а ви виводите XYабо YXде Yє щось, крім пробілу, подання не є дійсним для цього виклику.
• Виклик, що перевищує 2016-11-17, заборонений.
• Мови, новіші за прихований виклик, дозволені.
• Я залишаю за собою право заборонити певні виклики, якщо вони широко застосовуються (можуть бути застосовані до більшості всіх заяв).
• Дякую Даніелю за початкову ідею!

Невикористані матеріали:

<script>site = 'meta.codegolf'; postID = 5686; isAnswer = false; QUESTION_ID = 100357;</script><script src='https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js'></script><script>jQuery(function(){var u='https://api.stackexchange.com/2.2/';if(isAnswer)u+='answers/'+postID+'?order=asc&sort=creation&site='+site+'&filter=!GeEyUcJFJeRCD';else u+='questions/'+postID+'?order=asc&sort=creation&site='+site+'&filter=!GeEyUcJFJO6t)';jQuery.get(u,function(b){function d(s){return jQuery('<textarea>').html(s).text()};function r(l){return new RegExp('<pre class="snippet-code-'+l+'\\b[^>]*><code>([\\s\\S]*?)</code></pre>')};b=b.items[0].body;var j=r('js').exec(b),c=r('css').exec(b),h=r('html').exec(b);if(c!==null)jQuery('head').append(jQuery('<style>').text(d(c[1])));if (h!==null)jQuery('body').append(d(h[1]));if(j!==null)jQuery('body').append(jQuery('<script>').text(d(j[1])))})})</script>

Піп , 9 байт ( безпечно , 15 балів)

(q`\w+`1)

Що це робити, слід легко зрозуміти, але питання полягає в тому, чому ... ( TIO )

Завдання було Що мова? Мета: розібрати назву мови програмування з заголовка відповідей PPCG. Наприклад:

Input: <h1>JavaScript, 13 chars / 32 bytes</h1>
Desired Output: JavaScript

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

Perl - Зламаний DLosc

Дамо легкий варіант для людей, які не належать до езолангу

Бігайте з -nl

say $_ ~~ reverse y-"({[]})"-")}][{("-r;;r-")}][{("-"({[]})"-y esrever ~~ _$ yas

Завдання: Зручна перевірка паліндрому

Код виходить з ладу після друку правдивості, але згідно з цим мета-повідомленням, якщо він видає правильний вихід перед тим, як він вийде з ладу, і будь-які помилки виводяться в STDERR, це правильне рішення.

Hexagony , 548 байт, Cracked

69;{108;\_1$;;;/0;108\56;19|1^\6/15\;72_$23371<};;!;6;33|;;015><;;7;@3?;43+1586;2_3219><11;;'_8;;;2_|3;81|2<|8517;327}1_23;1;4$%;_4{5.1;1332_3;029&;'_};;1..527;2'..35;5212_>97;$;2/0;-;3_2;/233;08.._\901;0/13'}92...>/>/57\53;633;4'22;/|~>;441;45;;$161;371;3/;3.7026;`208;1<}>27;140;217;11.0;/2;692;<01/2;301;18;31/;10;/3;44<1914/111;{98;38;;;13/4;<;3;1;;/;112;<.$13032;..27;1;222/1;0<6..1;0;'..933721389/9<6;.;3;37..;;875;*;;0[1;287]59..902;;2;12;1;59;;3#..4;;1=249$345249;...;012}021#>/;44>114/4201;;;3>0;>;24;3/;;116._4>337;237/$5_>1{32;102;255;'_

Спробуйте в Інтернеті!

Perl, безпечно , 18 балів

Редагувати : я змінив кінець коду (див. Історію редагування), щоб обробити кращий регістр (виклик нічого не говорить про це, і автор не відповів на запитання про нього, але принаймні цей код обробляє його) . Але алгоритм і логіка коду залишаються однаковими.

perl -n0E '/.*/;s/(^0|A)(.{@{+}})?0/A$2A/s||s/0(.{@{+}})?A/A$1A/s?redo:say/A$/+0'

Цей код не затуманений (просто гольф). (Це означає, що -n0Eнеобов’язково).

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

Завдання: Чи можна вирішити лабіринт? .

Цей код знайде кожну досяжну клітинку лабіринту (і позначимо їх а A): якщо клітина торкається клітини, позначеної символом a A, вона є доступною, і ми також її позначаємо A; і робимо це знову ( redo). Це робиться завдяки двом регулярним виразам: s/(^0|A)(.{@{+}})?0/A$2A/sперевіряє, чи пробіл знаходиться праворуч або внизу A, а s/0(.{@{+}})?A/A$1A/sперевіряється, чи пробіл знаходиться зліва чи вгорі A. Зрештою, якщо останній осередок містить Aце були досяжні, інакше це не (це те, що say/A$/+0чеки, а +0тут , щоб переконатися , що результат буде 0або 1замість порожнього рядка і 1).
Зверніть увагу, що це /.*/буде відповідати цілому рядку, таким чином налаштовуючи@+до індексу кінця першого рядка, який буває розміром рядка, які дозволяють використовувати, щоб використовувати, .{@{+}}щоб відповідати рівно стільки символів, скільки їх є на рядку. ( @{+}еквівалентно @+, але в регулярному вираженні можна використовувати лише попередній)

Щоб запустити його:

$ perl -n0E '/.*/;s/(^0|A)(.{@{+}})?0/A$2A/s||s/0(.{@{+}})?A/A$1A/s?redo:say 1-/0$/' <<< "0000001
0000010
1111011
0000000"
1

(і якщо ви заміните 1111011рядок на 1111111, це вже не вирішується, а вихід буде 0замість 1)

Perl, 56 байт, безпечний (14 балів)

undef$/;print+(<>^<>)=~y/\x81-\xff\x00-\x80/\x01-\xff/dr

Проблема полягала в цьому , вимагаючи створити алгоритм, що відрізняється; вам потрібно мати можливість вводити два файли та виводити diff, або вводити файл, а також diff та виводити інший файл. Оцінка цього виклику є викликом коду , що робить найменшого переможця; однак цей виклик не вимагає, щоб відповідь була конкурентоспроможною, просто відповідала специфікаціям, тому я написав різну програму в гольф-способі, яка просто використовує XOR для об'єднання входів (мається на увазі, що та сама програма працює для різних і невідмінний).

Найважче - це відтворення довжини оригінальних файлів. Вхід вказаний як ASCII, що представляє собою семи бітний набір символів, що дозволяє мені використовувати восьмий біт для відстеження довжини файлу. Коли ми відрізняємося, ми встановлюємо високий біт кожного байта, використовуючи y///інструкцію (яка дещо замутніша, ніж битовая арифметика). Якщо не відрізняється (визнається через те, що на вході вже встановлено високий біт), ми видаляємо NUL з виводу. (Я щойно зрозумів, що це не вдасться, якщо вхід містив байти NUL; проте, завдання визначено з точки зору тестового акумулятора, і, на щастя, я не думаю, що в батареї є байти NUL. Якщо вони є, то ця програма була б невірною, і її потрібно було б дискваліфікувати; проблема з копами та грабіжниками полягає в тому, що ніхто інший не має достатньо інформації, щоб вказати на легко виправлені недоліки у вашій відповіді!)

Октава, 15 балів! БЕЗПЕЧНИЙ

@(x,y)find((v=((z=cumsum(x.^2))(y:end)-[0,z(1:end-y)]))==max(v),1)-1

Спробуйте його онлайн тут .

Пояснення:

Код приймає рядок введення, xщо містить одиниці і нулі, 10010110110101і ціле число y.

Щоб знайти ковзне середнє значення послідовності в MATLAB / Octave, ви можете виконати:

z = cumsum(x);
movmean = z(y:end) - [0 z(1:end-y)];

Оскільки нас цікавить лише розташування максимальних, а не фактичних значень, нам не потрібно дбати про перетворення рядка в числа. (x.^2)квадрати всі значення ASCII 48,49для 0,1. Це необхідно, оскільки Octave не може використовувати cumsumбезпосередньо символи. cumsum(+x)було б на два байти коротше, але виявило б, що xце рядок.

Це насправді досить добре гольф (за винятком .^2замість цього +). Звичайно, згортання було б простішим.

MATL . Тріснув

&:"@FYAYm7>vs

Спробуйте в Інтернеті!

Я вказав вхід і вихід, навіть якщо це не потрібно. Оскільки це все-таки в історії редагування: програма вводить два числа і виводить одне число.

C #, 590 байт, тріщинами

(I,N)=>{string R="",p="`1234567890-=",P="~!@#$%^&*()_+",q="qwertyuiop[]\\",Q="QWERTYUIOP{}|",a="asdfghjkl;\'",A="ASDFGHJKL:\"",z="zxcvbnm,./",Z="ZXCVBNM<>?";foreach(var c in I){var f=c+"";if(p.Contains(f))R+=p[(p.IndexOf(c)+N)%13];else if(P.Contains(f))R+=P[(P.IndexOf(c)+N)%13];else if(q.Contains(f))R+=q[(q.IndexOf(c)+N)%13];else if(Q.Contains(f))R+=Q[(Q.IndexOf(c)+N)%13];else if(a.Contains(f))R+=a[(a.IndexOf(c)+N)%11];else if(A.Contains(f))R+=A[(A.IndexOf(c)+N)%11];else if(z.Contains(f))R+=z[(z.IndexOf(c)+N)%10];else if(Z.Contains(f))R+=Z[(Z.IndexOf(c)+N)%10];else R+=c;}return R;};

Напевно, досить проста, також досить довга програма, _,

05AB1E , 27 байт, потрісканий!

Для цього подання також потрібно введення, щоб воно працювало. Не повинно бути занадто важким, щоб зламати.

ávyl•B;£¡´•54B•2ît•‡y.li(}O

Пояснення (для виклику):

á                             # Keep all the letters of the input string
 vy                           # For each letter...
   l                          #   Convert to lowercase
    •B;£¡´•54B                #   String that turns into 'pnbrqk'
              •2ît•           #   Compressed int: 133591
                   ‡          #   Transliterates the following:
                                    p -> 1
                                    n -> 3
                                    b -> 3
                                    r -> 5
                                    q -> 9
                                    k -> 1
                    y.li }    #   If the current letter is lowercase...
                        (     #     Negate that number
                          O   # Sum up the result

Використовує кодування CP-1252 . Спробуйте в Інтернеті!

아희 (Aheui) , 0 байт, тріщини

Спробуйте тут! (Програма вже набрана для вас: p)

Пітон, 935 байт

def oo000 ( num ) :
 return - ~ num
def ii ( num ) :
 return - ( oo000 ( oo000 ( ~ num ) ) )
def oOOo ( num1 , num2 ) :
 while num2 > 0 :
  num1 = oo000 ( num1 )
  num2 = ii ( num2 )
 return num1
 if 59 - 59: Oo0Ooo . OO0OO0O0O0 * iiiIIii1IIi . iII111iiiii11 % I1IiiI
def IIi1IiiiI1Ii ( num1 , num2 ) :
 I11i11Ii = num2
 oO00oOo = 0
 while I11i11Ii > 0 :
  oO00oOo = oOOo ( oO00oOo , num1 )
  I11i11Ii = ii ( I11i11Ii )
  if 92 - 92: O0O / oo000i1iIi11iIIi1 % Iii1IIIiiI + iI - Oo / o0O
 return oO00oOo
def hgj ( num1 , num2 ) :
 I11i11Ii = num2
 oO00oOo = 1
 while I11i11Ii > 0 :
  oO00oOo = IIi1IiiiI1Ii ( oO00oOo , num1 )
  I11i11Ii = ii ( I11i11Ii )
  if 48 - 48: iII111i % IiII + I1Ii111 / ooOoO0o * o00O0oo
 return oO00oOo
def O0oOO0o0 ( num1 , num2 ) :
 return oOOo ( num1 , - num2 )
 if 9 - 9: o0o - OOO0o0o
 if 40 - 40: II / oo00 * Iii1IIIiiI * o0o . ooOoO0o
print(hgj ( 9 , 9999 ))
# dd678faae9ac167bc83abf78e5cb2f3f0688d3a3

Вибачте, що я використовував обфускатор, але це не заборонено і простіше. (І у мене не було всього цього часу, щоб це зробити сам ...)

Ruby ( розтрісканий DLosc )

p n = gets.to_i
p n = n*(3*n-1)/2 until n % 7 == 0

MATL . Безпечно , 93 бали

dP7EGn:q^1J2/h)ts_hX=Gs[BE]Wd=~>~GBz*

Спробуйте в Інтернеті!

Пояснення

Викликом був екологічний слід вихідного коду .

Код обчислює вагу Хеммінга (кількість одиниць) у двійковому зображенні кодів ASCII вхідного рядка; за винятком того, що рядок testвиводиться 0(замість ваги Хеммінга, яка є 17).

Спеціальний кожух цього рядка трохи затуманений. Програма спочатку обчислює масив послідовних відмінностей кодів ASCII вхідних даних і повертає їх назад. За testце дає [1 14 -15].

Потім обчислюється масив, утворений першими nпотужностями 14, ( [1 14 196 ...]), де nвводиться довжина; і перші floor(n/2)значення зберігаються. Так що для введення testце дає [1 14]. Заперечена сума додається до цього масиву, який дає [1 14 -15]для введення test. Це перевіряється на рівність із зворотним масивом послідовних відмінностей, який раніше був отриманий.

З іншого боку, суму ASCII кодів вхідних таблиць обчислюють та порівнюють із 448, генерується як (послідовна) різниця елементів масиву [2^6 2^9](де ^позначається потужність).

Вхід test- це єдиний рядок із зворотними послідовними відмінностями форми [1 14 -15]та суми 448. Відмінності []або [1](для коротших рядків інойт) не сумісні із загальною сумою 448. Відмінності [1 14 196]або більше не можна досягти символами ASCII.

Код перевіряє, чи результат тесту на першу умову (послідовні відмінності) не менший заперечений результат другої умови (загальна сума). Це дає 0тоді і лише в тому випадку, якщо обидва умови були виконані. Нарешті, це множиться на кількість одиниць у двійковому поданні ASCII-кодів вхідних даних.

CJam ( безпечно , 21 бал)

{W+W%~1{1$)}{)a1${\(+W%{1$1$-2=>}{+}w}{\;}?)_@*\+~}w+}

Це анонімний блок (функція).

Python 3, ~ 2000 байт, (безпечно: 23 бали)

Оригінальна програма

exec("\n))o0000o000o<)]))]00000o000o[0o0o0o0o0o0o0o0o0o(00000000000000o0o(000000000000000o0o ni oooo0oooo rof)))0o0o0o0o0o0o0o0o0o(00000000000000o0o(000000000000000o0o ni 00oo00oo00oo00oo00oo rof]oooo0oooo[]00oo00oo00oo00oo00oo[0o0o0o0o0o0o0o0o0o(000ooo000ooo000o[ +]0o0o0o0o0o0o0o0o0o ni 00oo00oo00oo00oo00oo rof)00oo00oo00oo00oo00oo(000ooo000ooo000o[ni ooo000ooo000o rof)ooo000ooo000o(o0o0o0o0o-o0000o000o(000ooo000ooo000o(00o00o00o(tnirp\n)00000o000o,00000o000o(tresni.o0o0o0o0o0o0o0o0o0o:))00000000000000o0o=yek,0o0o0o0o0o0o0o0o0o(xam(00000000000000o0o<)o0o0o0o0o0o0o0o0o0o(00000000000000o0o elihw \n:)]00000o000o[]o0oooo,0o0o0o0o0o0o0o0o0o[( ni o0o0o0o0o0o0o0o0o0o rof\n;'=01NgwiNgwSNbBibpBybw8GMwAzbw8GM'b,]0o0o0o0o00oo ni ooooo0o00oo rof]]::0oooooo0oooo[))ooooo0o00oo(0oooooo(o0oooo ni ooo000ooo000o rof)ooo000ooo000o(00o00o00o[[=ooooo00oo,0o0o0o0o0o0o0o0o0o\n)'=kSZsBXd0BCLn5WayR3cgwCdulGK'b(0o0o.)(0o0ooo0o00ooo.o000oo esle o0000o000o fi o0000o000o+o0000o000o=0oooooo0oooo;)000000000000000o0o(o00oo00o=000000000000000o0o;)))(edoced.)o0o(0oo000o(000000o(o000oo,))(]o0000o000o[]edoced.)'==QbhRHa'b(0oo000o,'oo0o0o00o'[(oo0o0oo=o0o0o0o0o,oo0o0o0oo\n;)00000000000000o0o(o00oo00o,))(edoced.)'vJHZ'b(0oo000o(o00oo00o,)'bin'(o00oo00o=00000000000000o0o,0oooooo,o0oooo;))0000o0o0o(000000o(o000oo:0000o0o0o adbmal = o00oo00o ;)))(0o0oo00o(0oooooo(0o0oo0oo=0o0o0o0o00oo\n00000000000001**o0000o000o=o0000o000o;))(edoced.)'=cSbhRHanwCd1BnbpxyXfRncvBXbp91Xs4WavpmLnAyJ'b(0oo000o(o000oo=o0oo0oo00o,0o0oo00o,o0oo0oo,0o0oo0oo;edoced46b.)000oo0o(oo0o0oo=0oo000o\n;'==QYsxGKb92bwADMvVCN8EDIm9mcg8GMvBSauBybw82bwADMvBzbdliKq4SN'b ,))0o0oo00oo(000000o(__tropmi__ :0o0oo00oo adbmal,'base64',]0o0oo00oo[:0o0oo00oo adbmal = oo00oo00oo00oo00oo00oo,oo0o0oo,000oo0o,0oooooo\n;tni,'range','len','==Abh1mYkFGIv9GMwAzb682bwADMvBSYuRGIv9GMvBzbw82buYWYjR3bylWYshybvBDMw8WLxkiKqITJv9GMwAzb'b,lave,0**0000000000000009,0 ,]1-::[0o0ooo0o00o0oo:0o0ooo0o00o0oo adbmal,mus = 00o00o00o,000000000000000o0o,00000000000000o0o,o0o,o000oo,o0000o000o,00000o000o,000000o,000ooo000ooo000o\n"[::-1])

Виклик

Це насправді відповідь на мій власний виклик, Прем’єр-Струни . Я вибрав це, оскільки вийде майже все 0, крім кількох входів, які грабіжник навряд чи зможе ввести. Код - простий алгоритм, але сильно затуманений (від руки).

Піп , 13 байт

V$.C(A*a-A9)a

Спробуйте в Інтернеті (введіть аргументи, а не введення).

JavaScript, 533 байти, зламано! від Дейва

_=this;[490837,358155,390922].map(y=function(M,i){return _[[
U=[y+[]][+[]]][+[]][i]]=_[M.toString(2<<2<<2)]});function g(
s){return Function("a","b","c","return "+s)};e=g(u(["","GQ9\
ZygiYTwyPzE6YSpk","C0tYSki","SkoYSkvZChhLWIpL2QoYikg"].join(
"K")));h=g("A=a,B=b,g('A(a,B(a))')");j=g("a/b");L=g("Z=a,Y=\
b,g('Z(a,Y)')");k=L(j,T=2);F=g(u("KScpKWIsYShFLCliLGEoQyhEJ\
yhnLGM9RSxiPUQsYT1D").split("").reverse().join(""));RESULT=F
(h(e,k),j,g("_[U[10]+[![]+[]][+[]][++[+[]][+[]]]+[!+[]+[]][\
+[]][+[]]+17..toString(2<<2<<2)].pow(T,a)"));

Не моє улюблене моє затуманення, але це якось акуратно. Телефонувати як RESULT(inputs).

Я можу присвоїти +50 балів, якщо ви детально поясните, що робить мій код разом із вашим тріском. (Вони не повинні бути разом, тому сміливо FGITW, якщо це відповідає вашим примхам.)

Пайк, 3458 байт, SAFE , оцінка 99

wB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddnwB"["R";7m"ddddddddddddddddddddddddddwE"["R";7m"ddddddddddddddddddddddddddw?"["R";7m"ddddddddddddddddddddddddddsQI30>Q%)

Спробуйте тут!

Є кілька (30) 0x1bбайтів, які, здається, були з'їдені SE.

Октава, 40 балів. БЕЗПЕЧНИЙ

Трохи заплутана відповідь на досить популярний виклик.

y=find((x=mod(input('')*2,32))>12);sign(sum(x.*[1-y:nnz(x+8)-y]))

Я рекомендую протестувати це на октаві онлайн . Ідеон не такий хороший, коли мова йде про STDIN.

Це було завданням симулятора важелів 2015 року. Введіть форму '123^32. Вихід буде -1 0 1для лівого важкого, врівноваженого та правого важкого в такому порядку.

Це виглядає так, коли він повністю гольфується :

s=mod(input(''),16);i=find(s>9);s*[1-i:numel(s)-i]'*inf

Це виводить -Inf, NaN, Infдля L, B, R відповідно.

Haskell, SAFE

m f=map(f<$>)
g=reverse.("":)
f s|(f:c:s)<-m fromEnum.g.words$s,
    (f:c:s)<-init.unwords.g.m(\s->toEnum$if c!!0==s||s==sum(-32:c)then(last$f)else s)$s=init$s

Спробуйте це на Ideone . "Використання":

Prelude> f "Programming Puzzles & Code Golf"
"rogramming Puzzles "

У виклику String Shenanigans одному надається рядок і два знаки, а потім слід замінювати кожне виникнення першого знака другим. Однак вхід - це один рядок, що містить фактичний рядок у лапках та два пробіли між символами:

Prelude> f "\"Hello, World!\" l r"
"Herro, Worrd!"

TeX, 240 байт, SAFE , оцінка 129

\let\N\newcount\let\I\ifnum\let\A\advance\let\E\else\N\a\N\b\N\c\def\D#1:#2:#3:{\I#1>#2\A#1by-#2\D#1:#2:#3:\E\I#1=#2 #3=1\E#3=0\fi\fi}\def\P#1:#2:{\I#1>#2\a=#1\D\a:#2:\c:\I\c=0\b=#2\A\b by1\P#1:\the\b:\E N\fi\E\I#1=1 N\E Y\fi\fi}\P1:2:\end

Збережіть як jeopardy.tex, потім запустіть pdftex jeopardy.texі відкрийте jeopardy.pdf.

Результат: PDF з текстом N(та номером сторінки 1).

Пітон 3, потрісканий!

Писати це було весело, хоч зрештою його було легко складно :)

Z,O=__import__('time').strftime,401*5;from base64 import*;Q,I=(Z('%Y')),(O/401)*2;_=int(Q);D,P=(O,-~_),int(Q[~1:]);Q,I=(6+(P-eval(b64decode(b'KHN1bShbeCU0PDEgZm9yIHggaW4gcmFuZ2UobWluKEQpLG1heChEKSldKSk=').decode()+'*-1'*(O>_)))/10,'3'+repr(((P-10)*3)+10));print(Q,I)

Піт - потрісканий Мальтісеном

Якщо це допомагає, Pyth не був жодною з відповідей на прихований виклик.

u=.+G.*A

Спробуй!

C #, 91 байт

_=>{int b=0,w=0;for(;1>w||0<*(_-1);b+=++w**_++<<(9*w));return b%(3<w?903302656:41458688);};

Математика, 161 байт

Which[LetterQ@#,If[UpperCaseQ@#,ToUpperCase,#&][FromLetterNumber~Array~LetterNumber@#],DigitQ@#,Array[IntegerString,FromDigits@#+1,0],True,#]&/@Characters@#<>""&

BrainFuck - 140 байт, потрісканий daHugLenny

,>,>,>-[>+<-----]>---[<+>-]<[<<<->>>->+<]>[<<<->>>->+<]>[<<<->>>-]<<<[>+<-]<[>>++++++++++<<-]<[>>>>++++++++++[<++++++++++>-]<<<<-]>>>[>.+<-]

Спробуйте тут!

C ++ 14, тріщинами

#include<vector>

auto h(auto i){return 0;}
auto h(auto i, auto x, auto...p){
 return x+(i-1?h(i-1,p...):0);
}

auto g(auto v){return v;}
auto g(auto v,auto x, auto...p){
 v.push_back(h(x,x,p...));
 return g(v,p...);
}

auto f(auto...p){
 return g(std::vector<int>{},p...);
}

Бере різноманітну кількість параметрів і повертає a vector<int>.

Використання:

int main() {
 auto v = f(4,7,3,4,5);
 for (auto i:v) std::cout << i << ", ";
 std::cout << std::endl;
}

Математика, 34 байти, тріщинами

±1={±0={}};±n_:=Array[±#&,n,0]

Названа функція ( ±).

Рубін, 50 байт

count = 0; 400.times do count +=1; end; puts count

вихід: 400

Python 2.7, 45 байт

import numpy;lambda a,n,t:numpy.arange(a,t,n)

Підказка (а може і ні): "риба вживає нуме".

2016.11.23 - другий натяк: "Не залишайте нічого плаваючого навколо!"