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

Створіть програму, яка порівнює кількість байтів, яка сама по собі решту, з рештою відповідей на це питання, і повертає "Я відповім номер n".

Правила:

• Кількість байтів у вашій власній відповіді може бути жорстко закодована в коді

• Функція може приймати URL як вхідний або його можна жорстко кодувати. Знаки для URL-адреси не зараховуватимуться до числа байтів, тому використовувати URL-скорочувач не потрібно.

• URL-адреси на відповіді не можуть бути жорстко кодовані

• Оцінка відповідей можна знайти в заголовку (так само, як це робить фрагмент Мартіна).

• Заголовок відповіді повинен мати правильний формат (описаний нижче).

• Якщо можливо запустити програму в Інтернеті, будь ласка, поділіться посиланням на онлайн-компілятор (або фрагмент коду, який можна виконати з відповіді). Якщо це неможливо, будь ласка, покажіть, як викликати функцію, та покажіть вихід із власного компілятора (під час опублікування відповіді. Оновлювати її вам не потрібно, якщо ви, звичайно, не хочете).

• Ви повинні насправді порівняти відповідь з іншими відповідями на це питання. Просто писати сценарій I'm answer number 1.якоюсь мовою не є законним.

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

Заголовок повинен бути відформатований:

# Language Name, N bytes

Закреслити тощо не можна використовувати, тому якщо розмір коду буде змінено, покажіть його жирним текстом під заголовком або вкажіть його іншим чином.

Вихід повинен бути I'm answer number n.там, де число n- це позиція (останній рядок / пробіли в порядку). Отже, вийде найкоротша відповідь: "Я відповідаю на номер 1.", друга - "Я відповідаю на номер 2." тощо.

Це кодовий гольф, тому найкоротша відповідь у байтах виграє.

Perl, 107 байт

use LWP;print"I'm answer number ",1+grep($_<107,LWP::UserAgent->new->get('http://codegolf.stackexchange.com/q/60204')->content=~/<h1>.+, (\d+)/g),'.';

Трохи менше гольфу:

use LWP;
$agent = new LWP::UserAgent();
$response = $agent->get('http://codegolf.stackexchange.com/q/60204');
@answers = $response->content =~ m/<h1>.+, (\d+)/g;
print "I'm answer number ", 1+grep($_<107, @answers), '.';

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

$ perl my_rank.pl
I'm answer number 1.

Python 2, 145 байт

from requests import*
print"I'm answer number %s."%(sorted([int(a["body"].split(",")[1].split()[0])for a in get('http://api.stackexchange.com/2.2/questions/60204/answers?pagesize=99&order=desc&sort=activity&site=codegolf&filter=!SWJ_BpAceOT6L*G2Qa').json()["items"]]).index(145)+1)

Вихід з 2015-10-10 17:30:00 UTC:

I'm answer number 1.

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

AutoIt, 175 байт

(202 байти - 27 для URL)

#include<String.au3>
$0=_StringBetween
$1=1
For $2 In $0(BinaryToString(InetRead("http://q.codegolf.xyz/60204")),'<h1>',' b')
$1+=$0($2,', ','')[0]<175?1:0
Next
ConsoleWrite("I'm answer number "&$1&".")

Вихід з 2015-10-09 17:47:00 UTC:

I'm answer number 1.

JavaScript (ES7), 149 байт

283 байти - 134 для URL-адреси. Я ніколи раніше не використовував HTTP-запити, але ось ...

x=z=>alert(`I'm answer number ${[for(y of z.items)y.body.match(/, (\d+)/)[1]].sort().indexOf("149")+1}.`);document.write('<script src="//api.stackexchange.com/2.2/questions/60204/answers?pagesize=100&order=desc&sort=votes&site=codegolf&filter=!--pn9sqW9y0T&callback=x">\x3C/script>')

Успішно випробувано в Firefox 41.

Спочатку він проглядає заголовки всіх відповідей, щоб знайти їхні підрахунки байтів, потім знаходить першу позицію з підрахунком байтів 243 149. Наразі він налаштований для перевірки лише перших 100 відповідей, і він порушиться, якщо хтось отримає менше 100 байт, але він працює наразі. ;)

Завдяки @GeorgeReith за набагато коротшу техніку. Стара версія з використанням AJAX (243 байти):

x=new XMLHttpRequest,x.onreadystatechange=_=>{if(x.readyState==4&&x.status==200)alert(`I'm answer number ${[for(y of JSON.parse(x.responseText).items)y.body.match(/, (\d+)/)[1]].sort((a,b)=>a-b).indexOf("243")+1}.`)},x.open("GET","//api.stackexchange.com/2.2/questions/60204/answers?pagesize=100&order=desc&sort=votes&site=codegolf&filter=!--pn9sqW9y0T",!0),x.send()

PHP, 158 159 164 байти

I'm answer number <?for(;$h[]=json_decode(fread(gzopen('http://api.stackexchange.com/2.2/questions/60204/answers?pagesize=99&order=desc&sort=votes&site=codegolf&filter=!--pn9sqW9y0T',r),1e4),1)[items][+$i++][body];);echo array_sum(preg_filter(~„ÑÕß×£›ÔÖ߆‹šŒÃЗÎÑÕ‚Œš,~ÛÎÃÎÊÇ,$h)),~Ñ;

127 байт від 'http://api.stackexchange.com/2.2/questions/60204/answers?pagesize=99&order=desc&sort=votes&site=codegolf&filter=!--pn9sqW9y0T'не рахується

Відформатована версія з рядками, що не мають вольфів:

<?
for(;
    $h[]=json_decode(
        fread(
            gzopen(
                'http://api.stackexchange.com/2.2/questions/60204/answers?pagesize=99&order=desc&sort=votes&site=codegolf&filter=!--pn9sqW9y0T',r
            ), 1e4
        ), 1
    )[items][+$i++][body];
);
echo"I'm answer number ",
    array_sum(
        preg_filter('{.* (\d+) bytes</h1.*}se','$1<159', $h)
    ),
    ".";

• Завантажує відповідь JSON (один раз за кожну відповідь, щоб зберегти 5 байт, завдяки @Blackhole)
• Збирає органи відповідей у $h
• замінює весь текст на "1" (вірно), якщо кількість байтів <= 159, або "" (помилково) в іншому випадку
• підсумовує результати

Такі послідовності символів як ¶Ø’ßž‘Œˆšß‘Š’šßдійсні постійні імена в PHP, але через те, що константи не існують, трактуються як літеральні рядки. ~перетворює їх, цей до "I'm answer number "(збереження байта для одного лапки)

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

php -derror_reporting=0 howareyou.php

Я відповідаю на номер 1.

Javascript (ES6), 186 байт

(335 - 149 байт для URL-адреси)

a=d=>alert(`I'm answer number ${d.items.map(q=>(y=[q.body.match(/, (\d+)/)[1],(x=q.owner.user_id==11182)])&&x?z=y:y).sort().indexOf(z)+1}.`)
document.write(`<script src="https://api.stackexchange.com/questions/60204/answers?pagesize=100&order=desc&sort=activity&site=codegolf&filter=!)Q2B_A19OPkd2j8JforD00f5&callback=a">\x3C/script>`)

Awk, 153 байти

BEGIN{if(u){print"I\047m answer number "system("curl -s "u"|awk -f a")".";exit}FS="1>.*,|es<\/h"}NF==3{r+=($2+0)<153?1:0}END{exit(r<1?1:r)}

Це слід зберегти у файл aта запустити так:

awk -v u=http://codegolf.stackexchange.com/questions/60204/how-are-you-doing -f a

Я віднімаю 68 байт для http://codegolf.stackexchange.com/questions/60204/how-are-you-doingі додаю 13 до коду для завантаження awk -v u=та -f a.

Менше гольфу, це може бути і коротше:

curl -s http://codegolf.stackexchange.com/questions/60204/how-are-you-doing | awk -F"1>.*,|es<\/h" 'NF==3{r+=(0+$2)<103?1:0}END{print"I\047m answer number "(r<1?1:0)"."}'

Завжди воліє себе у зв’язках. Кожен байт важко закодований у кожному.

Більш гофрована версія має сценарій виклику себе і виведення значення виходу через систему. У кожному випадку кількість зараховується лише нижче, ніж твердо закодоване значенняr , яке потім має бути відрегульоване1 якщо воно веде.

Це не вдасться правильно знайти байти, якщо між ними є пробіл bytes і </h1>і , можливо , ряд інших випадків , я не врахував.

Станом на Sun Oct 11 05:17:51 UTC 2015це, це дає:

I'm answer number 3.

GNU Awk, 156 байт

(Натхненний n0741337 's розчином Awk .)

Цей робить все сам, не виконуючи зовнішньої команди.

BEGIN{d="/inet/tcp/0/"h"/80"
print"GET "p" HTTP/1.1\nHost:"h"\n"|&d
while(d|&getline)n+=match($0,/1>.*, ([0-9]+)/,m)&&m[1]<156
print"I'm answer number",n+1}

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

Проба зразка:

bash-4.3$ awk -v h=codegolf.stackexchange.com -v p=/questions/60204/how-are-you-doing -f number.awk 
I'm answer number 4