Martin telah membuat cuplikan yang bagus yang dapat digunakan untuk melacak skor untuk jawaban terhadap tantangan. Itu hebat dan semuanya, tetapi bukankah lebih baik jika Anda bisa melacaknya sendiri?

Buat program yang membandingkan jumlah byte itu sendiri dengan sisa jawaban untuk pertanyaan ini, dan mengembalikan "Saya menjawab nomor n".

Aturan:

• Hitungan byte dalam jawaban Anda sendiri dapat dikodekan dalam kode

• Fungsi dapat mengambil url sebagai input, atau dapat di-hardcode. Karakter untuk url tidak akan dihitung ke jumlah byte, jadi tidak perlu menggunakan penyingkat url.

• url-address ke jawaban tidak bisa di-hardcode

• Skor untuk jawaban dapat ditemukan dari tajuk, (seperti halnya cuplikan Martin).

• Header jawaban harus memiliki format yang benar (dijelaskan di bawah).

• Jika memungkinkan untuk menjalankan program secara online, silakan bagikan tautan ke kompiler online (atau cuplikan kode yang dapat dieksekusi dari jawabannya). Jika tidak memungkinkan, tolong tunjukkan cara memanggil fungsi, dan tampilkan output dari kompiler Anda sendiri (pada saat Anda memposting jawabannya. Anda tidak perlu memperbaruinya kecuali jika Anda ingin tentu saja).

• Anda harus benar-benar membandingkan jawaban dengan jawaban lain untuk pertanyaan ini. Cukup menulis skrip I'm answer number 1.dalam beberapa bahasa tidak sah.

• Jika jawaban lain memiliki jumlah byte yang sama dengan jawaban Anda, Anda dapat memilih apakah Anda ingin yang terbaik atau lebih buruk dari mereka.

Header harus diformat:

# Language Name, N bytes

Strike-through dll tidak dapat digunakan, jadi jika ukuran kode diubah, tampilkan dalam huruf tebal di bawah header atau tunjukkan dengan cara lain.

Keluaran harus I'm answer number n., di mana angka nadalah posisi (trailing newline / spasi OK). Jadi, jawaban terpendek akan menghasilkan: "Saya menjawab nomor 1.", jawaban kedua adalah "Saya menjawab nomor 2." dll.

Ini kode golf, jadi jawaban tersingkat dalam byte akan menang.

Perl, 107 byte

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

Sedikit kurang golf:

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), '.';

Contoh Penggunaan

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

Python 2, 145 byte

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)

Output dari 2015-10-10 17:30:00 UTC:

I'm answer number 1.

Saya tidak menghitung URL apa pun untuk skor saya, jika saya harap beri komentar berapa banyak saya harus menambahkannya. Memiliki skor sendiri yang dikodekan di dalamnya, dengan asumsi skor sudah diposkan Akan rusak jika lebih dari 99 jawaban diposting.

Otomatis, 175 byte

(202 byte - 27 untuk 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&".")

Output dari 2015-10-09 17:47:00 UTC:

I'm answer number 1.

JavaScript (ES7), 149 byte

283 byte - 134 untuk URL. Saya belum pernah menggunakan permintaan HTTP sebelumnya, tapi begini ...

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>')

Diuji berhasil di Firefox 41.

Pertama ia melihat melalui header dari semua jawaban untuk menemukan byte-counts mereka, kemudian ia menemukan posisi pertama dengan byte-count 243 149. Saat ini diatur untuk memeriksa hanya 100 jawaban pertama, dan akan pecah jika seseorang mendapat di bawah 100 byte, tetapi berfungsi untuk saat ini. ;)

Terima kasih kepada @GeorgeReith untuk teknik yang jauh lebih pendek. Versi lama menggunakan AJAX (243 byte):

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 byte

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 byte dari 'http://api.stackexchange.com/2.2/questions/60204/answers?pagesize=99&order=desc&sort=votes&site=codegolf&filter=!--pn9sqW9y0T'tidak dihitung

Versi yang diformat dengan string yang tidak dikoleksi:

<?
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)
    ),
    ".";

• Memuat respons JSON (satu kali per jawaban sebenarnya untuk menghemat 5 byte, terima kasih kepada @Blackhole)
• Mengumpulkan badan jawaban di $h
• ganti seluruh teks dengan "1" (benar) jika jumlah byte <= 159, atau "" (salah) sebaliknya
• jumlah hasilnya

Urutan karakter seperti ¶Ø’ßž‘Œˆšß‘Š’šßadalah nama konstan yang valid dalam PHP, tetapi karena konstanta tidak ada diperlakukan sebagai string literal. ~membalikkan mereka, yang ini ke "I'm answer number "(masing-masing menyimpan byte untuk satu tanda kutip)

Pemakaian

php -derror_reporting=0 howareyou.php

Saya jawab nomor 1.

Javascript (ES6), 186 byte

(335 - 149 byte untuk 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 byte

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

Ini harus disimpan ke file adan dijalankan seperti:

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

Saya mengurangi 68 byte untuk http://codegolf.stackexchange.com/questions/60204/how-are-you-doingdan menambahkan 13 ke kode untuk bootstrap awk -v u=dan -f a.

Kurang golf, ini bisa lebih pendek:

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)"."}'

Itu selalu lebih suka dalam ikatan. Hitungan byte masing-masing dikodekan dengan keras.

Versi yang lebih golf memiliki skrip yang memanggil dirinya sendiri dan mengeluarkan nilai keluar melalui sistem. Dalam setiap kasus hanya dihitung lebih rendah dari kenaikan nilai yang dikodekan secara keras r, yang kemudian harus disesuaikan kembali 1jika itu mengarah.

Ini akan gagal menemukan byte dengan benar jika ada spasi putih di antara bytesdan </h1>dan mungkin sejumlah kasus lain yang belum saya pertimbangkan.

Pada Sun Oct 11 05:17:51 UTC 2015, ini memberi:

I'm answer number 3.

GNU Awk, 156 byte

(Terinspirasi oleh n0741337 's solusi AWK .)

Yang ini melakukan semuanya sendiri, tanpa menjalankan perintah eksternal.

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}

Mengharapkan nama host dan jalur sebagai nilai yang terpisah. Mengingat mereka tersedia secara gratis, mudah-mudahan ini tidak melanggar aturan.

Contoh dijalankan:

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