Martin đã tạo ra một đoạn trích hay có thể được sử dụng để theo dõi điểm số cho câu trả lời cho các thử thách. Điều đó thật tuyệt vời, nhưng sẽ tốt hơn nếu bạn có thể tự mình theo dõi nó?

Tạo một chương trình so sánh số byte trong chính nó với phần còn lại của câu trả lời cho câu hỏi này và trả về "Tôi trả lời số n".

Quy tắc:

• Số byte trong câu trả lời của riêng bạn có thể được mã hóa cứng trong mã

• Hàm này có thể lấy url làm đầu vào hoặc có thể được mã hóa cứng. Các ký tự cho url sẽ không được tính vào số byte, do đó không cần thiết phải sử dụng công cụ rút ngắn url.

• địa chỉ url để trả lời không thể được mã hóa cứng

• Điểm cho các câu trả lời có thể được tìm thấy từ tiêu đề, (giống như đoạn trích của Martin).

• Tiêu đề câu trả lời phải có định dạng đúng (mô tả bên dưới).

• Nếu có thể chạy chương trình trực tuyến, vui lòng chia sẻ liên kết đến trình biên dịch trực tuyến (hoặc đoạn mã có thể được thực thi từ câu trả lời). Nếu không thể, vui lòng chỉ ra cách gọi hàm và hiển thị đầu ra từ trình biên dịch của riêng bạn (tại thời điểm bạn đăng câu trả lời. Bạn không cần cập nhật nó trừ khi bạn muốn tất nhiên).

• Bạn phải thực sự so sánh câu trả lời với các câu trả lời khác cho câu hỏi này. Đơn giản chỉ cần viết một kịch bản I'm answer number 1.trong một số ngôn ngữ là không hợp pháp.

• Nếu các câu trả lời khác có cùng số byte như của bạn, bạn có thể chọn nếu bạn muốn tốt nhất hoặc tệ hơn trong số chúng.

Tiêu đề phải được định dạng:

# Language Name, N bytes

Vượt qua vv không thể được sử dụng, vì vậy nếu kích thước mã được thay đổi, hãy hiển thị nó bằng văn bản in đậm bên dưới tiêu đề hoặc chỉ ra nó theo một cách khác.

Đầu ra phải là I'm answer number n., trong đó số nlà vị trí (theo dõi dòng mới / dấu cách là OK). Vì vậy, câu trả lời ngắn nhất sẽ xuất ra: "Tôi là câu trả lời số 1.", câu trả lời thứ hai sẽ là "Tôi trả lời số 2." v.v.

Đây là mã golf, vì vậy câu trả lời ngắn nhất tính bằng byte sẽ giành chiến thắng.

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

Hơi ít chơi 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), '.';

Sử dụng mẫu

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

Đầu ra từ 2015-10-10 17:30:00 UTC:

I'm answer number 1.

Tôi đã không đếm bất kỳ URL nào cho điểm của mình, nếu tôi vui lòng nhận xét về số tiền tôi nên thêm vào đó. Có điểm số riêng được mã hóa trong đó, giả sử rằng nó đã được đăng. Sẽ phá vỡ nếu có hơn 99 câu trả lời được đăng.

Tự động, 175 byte

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

Đầu ra từ 2015-10-09 17:47:00 UTC:

I'm answer number 1.

JavaScript (ES7), 149 byte

283 byte - 134 cho URL. Tôi chưa bao giờ sử dụng các yêu cầu HTTP trước đây, nhưng ở đây ...

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

Đã thử nghiệm thành công trong Firefox 41.

Đầu tiên, nó nhìn qua các tiêu đề của tất cả các câu trả lời để tìm số đếm byte của chúng, sau đó nó tìm vị trí đầu tiên với số đếm byte 243 149. Hiện tại nó được thiết lập để chỉ kiểm tra 100 câu trả lời đầu tiên và sẽ phá vỡ nếu ai đó có dưới 100 byte, nhưng nó hoạt động cho bây giờ. ;)

Nhờ vào @GeorgeReith vì kỹ thuật ngắn hơn nhiều. Phiên bản cũ sử dụng 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 từ 'http://api.stackexchange.com/2.2/questions/60204/answers?pagesize=99&order=desc&sort=votes&site=codegolf&filter=!--pn9sqW9y0T' không được tính

Phiên bản được định dạng với các chuỗi không được chỉnh sửa:

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

• Tải phản hồi JSON (thực tế một lần cho mỗi câu trả lời để tiết kiệm 5 byte, nhờ @Blackhole)
• Thu thập các cơ quan trả lời trong $h
• thay thế toàn bộ văn bản bằng "1" (đúng) nếu số byte là <= 159 hoặc "" (sai) nếu không
• tổng hợp kết quả

Các chuỗi ký tự như ¶Ø’ßž‘Œˆšß‘Š’šßlà các tên hằng hợp lệ trong PHP, nhưng vì các hằng số không tồn tại được coi là chuỗi ký tự. ~đảo ngược chúng, cái này thành"I'm answer number " (lưu một byte cho mỗi dấu ngoặc kép)

Sử dụng

php -derror_reporting=0 howareyou.php

Tôi trả lời số 1.

Javascript (ES6), 186 byte

(335 - 149 byte cho 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)}

Điều này nên được lưu vào một tập tin avà chạy như sau:

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

Tôi đang trừ 68 byte cho http://codegolf.stackexchange.com/questions/60204/how-are-you-doingvà thêm 13 vào mã cho bootstrapping awk -v u=và -f a.

Ít chơi gôn hơn, điều này thậm chí có thể ngắn hơn:

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

Nó luôn thích bản thân trong các mối quan hệ. Số lượng byte được mã hóa cứng trong mỗi.

Phiên bản nhiều gôn hơn có kịch bản tự gọi và xuất giá trị thoát qua hệ thống. Trong mỗi trường hợp, chỉ tính thấp hơn mức tăng giá trị được mã hóa cứng r, sau đó phải điều chỉnh lại 1nếu nó dẫn đầu.

Điều này sẽ thất bại trong việc tìm đúng byte nếu có khoảng trắng giữa bytesvà </h1>và có lẽ một số trường hợp khác mà tôi đã không được xem xét.

Như Sun Oct 11 05:17:51 UTC 2015, điều này mang lại:

I'm answer number 3.

GNU Awk, 156 byte

(Lấy cảm hứng từ n0741337 's giải pháp AWK .)

Cái này tự làm tất cả, không cần chạy lệnh bên ngoài.

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}

Yêu cầu tên máy chủ và đường dẫn là các giá trị riêng biệt. Cho rằng chúng có sẵn miễn phí, hy vọng điều này không phá vỡ các quy tắc.

Chạy mẫu:

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