Viết chương trình xuất nội dung của <code>...</code>khối HTML đầu tiên của câu trả lời cho câu hỏi này ngay phía trên bạn khi các câu trả lời được sắp xếp theo phiếu bầu. Đầu ra Top!nếu bạn là câu trả lời hàng đầu.

Bỏ qua các câu trả lời có phiếu bầu tiêu cực hoặc không có <code>...</code>thẻ. Nguồn chương trình của bạn phải xuất hiện trong <code>...</code>khối đầu tiên trong bài viết của bạn. Các khối này được tạo tự động khi bạn use backtickshoặc

indent things with 4 spaces.

Đây là môn đánh gôn, câu trả lời có ít nhân vật nhất sẽ thắng.

Quy tắc bổ sung (Cập nhật)

• Trả lời bằng bất kỳ ngôn ngữ lập trình nào bạn muốn nhưng nếu bạn trả lời nhiều lần, hãy sử dụng các ngôn ngữ khác nhau.
• Bạn có thể không cứng mã đầu ra của bạn. Khả năng chạy chính xác của chương trình của bạn không nên phụ thuộc vào số phiếu bầu hoặc vào câu trả lời ở trên. Nếu phân phối phiếu thay đổi mạnh mẽ, chương trình của bạn vẫn sẽ xuất chính xác mã của câu trả lời ở trên.
• Bạn có thể khó mã hóa chương trình của mình để tự tìm kiếm trên trang này (để tìm mức cao nhất tiếp theo) thông qua một số thuộc tính duy nhất của câu trả lời của bạn, chẳng hạn như tên người dùng của bạn (nếu bạn chỉ có một câu trả lời) hoặc liên kết trực tiếp của câu trả lời.
• Nếu hai câu trả lời có số phiếu bằng nhau, bạn vẫn nên sử dụng câu trả lời ngay trên câu trả lời của mình (mà tôi tin rằng đây sẽ là câu trả lời mới nhất).
• Bạn có thể có nhiều <code>...</code>khối trong câu trả lời của mình nhưng khối đầu tiên phải chứa nguồn chương trình của bạn.

Javascript + jQuery (92 86 64 ký tự)

Để kiểm tra, mở Công cụ Dev trên này trang (thường là F12), và chạy mã của tôi!

Javscript này cần được chạy bằng bàn điều khiển từ trang này (và chỉ trang này).

alert($("code",$("#answer-34767").prev().prev()).html()||"Top!")

Rất ngắn, nó thậm chí không cần một thanh cuộn!

Về cơ bản, nó tìm thấy câu trả lời của tôi bằng ID, và sau đó có hai nút phía trước (bỏ qua liên kết neo). Nếu điều đó không tồn tại, tôi phải ở trên đỉnh. Sau đó, nó đào xuống codephần tử đầu tiên và lấy nó .innerHTML.

Điều tuyệt vời là SE sử dụng jQuery theo mặc định, vì vậy tôi có được lợi thế đó mà không cần cố gắng.

PHP 666 611 593 588 580 Ký tự

Chỉnh sửa: Được sử dụng url thậm chí nhỏ hơn so với trước đây từ tinyurl.

Chỉnh sửa: Sau khi nhận xét về câu trả lời khác, tôi đã sử dụng int chứ không phải boolean. Cũng cần phải sửa một lỗi đã trở nên rõ ràng nhưng đã được sửa ngay bây giờ.

Đây là mã của tôi

<?
$a=34727;$b=new DOMDocument();$b->loadHTMLFile("http://turl.no/t2u");$c=$b->saveHTML();$d=$e=1;$f='data-answerid="';$g=strpos($c,$f);$h=substr($c,0,$g);$c=substr($c,($g+15));while($d==1){$g=strpos($c,'"');$i=substr($c,0,$g);if($i==$a){$j=$h;$k=$e;}$g=strpos($c,'vote-count-post ">');$c=substr($c,($g+18));$g=strpos($c,'<');$l=substr($c,0,$g);$g=strpos($c,'data-answerid="');if($g){++$e;++$e;$h=substr($c,0,$g);$c=substr($c,($g+15));}else{$d=2;}}if($k==1){echo 'Top!';}else{$g=strpos($j,'><code>');$m=strpos($j,'</code></pre>');$n=$m-$g-7;$o=substr($j,($g+7),$n);echo nl2br($o);}

Tôi chắc chắn rằng điều này có thể được cải thiện bằng cách sử dụng DOMXPath và các nút. Tuy nhiên tôi khá hài lòng với nó. Tôi không thể quyết định phải làm gì trong trường hợp của tôi là câu trả lời duy nhất nhưng với những điểm đã bị bỏ qua. Tuy nhiên, một câu trả lời khác đã được đăng lên để không còn là vấn đề nữa.

Tôi cũng đã sử dụng tinyurl để rút ngắn url, tiết kiệm rất nhiều ký tự.

Tôi hy vọng bạn thích nó,

Paul.

PS Điều này sẽ không chạy trong codepad vì vậy không thể hiển thị một câu đố.

Chỉnh sửa: đã lưu thêm 5 thẻ với các thẻ php được thay đổi

Bạn có thể thấy nó hoạt động ở đây trên một tên miền tôi hiện không sử dụng (vì vậy tôi không chỉ đang thử một liên kết lén lút). Đây không phải là một liên kết vĩnh viễn mặc dù hiện đang có sẵn.

Phi tiêu 412 403

import"dart:io";import"dart:convert";main(){new HttpClient().get("pi.vu",0,"BYga").then((v)=>v.close()).then((r)=>r.transform(UTF8.decoder).join()).then((s,[i,c="Top!"])=>new RegExp(r'<div id="answer-(\d+)[^]*?vote-count-post ">(\d+)[^]*?<table class="fw"').allMatches(s).forEach((m)=>m[1]=="34735"?print(c):m[2][0]!='-'&&(i=(s=m[0]).indexOf("<code>"))>0?c=s.substring(i+6,s.indexOf("</code>",i)):0));}

Ungolfed (tốt, với dòng mới và khoảng trắng hàng đầu)

import"dart:io";
import"dart:convert";
main(){
  new HttpClient().get("pi.vu",0,"BYga")
  .then((v)=>v.close())
  .then((r)=>r.transform(UTF8.decoder).join())
  .then((s,[i,c="Top!"])=>
      new RegExp(r'<div id="answer-(\d+)[^]*?vote-count-post ">(\d+)[^]*?<table class="fw"')
      .allMatches(s)
      .forEach((m)=>
          m[1]=="34735"?print(c)
                       :m[2][0]!='-'&&(i=(s=m[0]).indexOf("<code>"))>0
                           ?c=s.substring(i+6,s.indexOf("</code>",i)):0
  ));
}

Delphi (688 873 859 848 840)

Tôi vẫn sẽ cố gắng cạo sạch một số nhân vật nhưng nó sẽ thực hiện công việc :)

Chỉnh sửa: thay vì rút ngắn lại, tôi làm cho nó dài hơn: P
Tôi quên thêm vào việc bỏ qua các câu trả lời khi nó có phiếu bầu tiêu cực hoặc không có khối mã.

Tôi chỉ cập nhật phiên bản không chơi gôn trong khi chỉnh sửa.
Cảm ơn @manatwork cho các chỉnh sửa được đề xuất đã loại bỏ 8 ký tự.

Phiên bản chơi gôn:

uses IdHTTP,Classes,MSHTML;const u='http://codegolf.stackexchange.com/questions/34705/output-the-answer-above-yours/34718#34718';var g:TIdHTTP;m:TMemoryStream;l:TStringList;p,t,r,o:OleVariant;s,i,j:int32;c:boolean;begin L:=TStringList.Create;g:=TIdHTTP.Create(nil);m:=TMemoryStream.Create;g.Get(u,m);m.Position:=0;L.LoadFromStream(m);p:=coHTMLDocument.Create as IHTMLDocument2;p.write(l.Text);for I:=0to p.body.all.length-1do begin c:=0>1;t:=p.body.all.item(i);if(t.classname='answer')and(t.id='answer-34718')then if s=0 then writeln('Top!') else for j:=0to o.all.length-1do begin t:=o.all.item(j);if t.tagname='CODE'then writeln(t.innertext);end else if t.classname='answer'then begin for j:=0to t.all.length-1do begin r:=t.all.item(j);if r.tagname='CODE'then c:=1>0 else if c and(r.class='vote-count-post')and(r.innertext[1]<>'-')then begin o:=t;s:=1;end;end;end;end;end.

Phiên bản bị đánh cắp:

uses
  IdHTTP,Classes,MSHTML;
const
  u='http://codegolf.stackexchange.com/questions/34705/output-the-answer-above-yours/34718';
  a='answer';b='CODE';
var
  g:TIdHTTP;
  m:TMemoryStream;
  l:TStrings;
  p,t,r,o,z:OleVariant;
  s,i,j:int32;
  c:byte;
begin
  L:=TStringList.Create;
  g:=TIdHTTP.Create(nil);
  m:=TMemoryStream.Create;
  g.Get(u,m);
  m.Position:=0;
  L.LoadFromStream(m);
  p:=coHTMLDocument.Create as IHTMLDocument2;
  p.write(l.Text);
  z:=p.body.all;
  for I:=0to z.length-1do
  begin
    c:=0;
    t:=z.item(i);
    if(t.classname=a)and(t.id='answer-34718')then
      if s=0 then
        write('Top!')
      else
        for j:=0to o.all.length-1do
        begin
          t:=o.all.item(j);
          if t.tagname=b then
            write(t.innertext)
        end
    else if t.classname=a then
      for j:=0to t.all.length-1do
      begin
        r:=t.all.item(j);
        if r.tagname=b then
          c:=1
        else if(c=1)and(r.class='vote-count-post')and(r.innertext[1]<>'-')then
        begin
          o:=t;
          s:=1;
        end;
      end;
  end;
end.

Con trăn - 280

import os, sys, cgi
os.system('wget http://codegolf.stackexchange.com/questions/34705/output-the-answer-above-yours.html -q -O a')
b=[ x[:-2] for x in open('a').read().split('code>') if x[-1]=='/']
for i, m in enumerate(b):
    if m == cgi.escape(open(sys.argv[0]).read()):
        print b[i-1]

Đây là codegolf đầu tiên của tôi, vì vậy tôi hy vọng đây là golf-y đủ!

Chỉnh sửa: Cảm ơn những lời khuyên! Bây giờ nó trông hơi golf hơn.

Toán học - 159

Lần đầu tiên thực hiện phân tích cú pháp trong Mathematica

FirstCase[
 Cases[Import["http://bit.do/JGta1","XMLObject"],
 {__,a_,_,_,_,XMLElement[_, {_, "id""answer-34780",__},_],__}a,∞], 
 XMLElement["code",_,{c_}]c,"Top!",∞]

Ruby 283 + 17 = 300

Điều này thành công bất kể có bao nhiêu phiếu mà câu trả lời này nhận được và không có vấn đề nếu có trang thứ hai (hoặc thứ mười lăm) câu trả lời hay không. Nó sử dụng API dữ liệu.

d=34849
JSON.parse(Net::HTTP.get(URI("http://api.stackexchange.com/2.2/questions/34705/answers?site=codegolf&filter=8G3Ng9T*")))['items'].map{|a|abort$1.gsub(/&.+?;/){|g|g[?a]??&:g[?g]??>:?<}if !d&&a['score']>=0&&/<code>(.*?)<\/code>/m=~a['body']
d=p if a['answer_id']==d}
$><<'Top!'

phải được chạy với ruby -rnet/http -rjson(do đó +17)

vô dụng:

d = 34849 # this answer id
i = JSON.parse(Net::HTTP.get(URI("http://api.stackexchange.com/2.2/questions/34705/answers?site=codegolf&filter=8G3Ng9T*")))['items'] # stackexchange api answers for this question
i.map{ |a|
  # if we've already hit this answer, the score's above 0 and there's code...
  if !d && a['score']>=0 && /<code>(.*?)<\/code>/m=~a['body'] then
    # abort with html-unescaped code
    abort $1.gsub(/&.+?;/){ |g|
      # this turns &amp;, &gt; and &lt; into &, > and <, respectively
      g[?a] ? ?& : g[?g] ? ?> : ?<       
    }
  end
  # if we are at our answer, set d = nil
  if a['answer_id']==d then 
    d = p 
  end
}
# no abort. puts 'Top!'
$><<'Top!'

Thay đổi

300 parens bị loại bỏ trong biểu tượng regex

302 cam kết ban đầu

PHP 135

<?
preg_match_all('@(\d+?)"></a.*de>(.*)</c@Us',join('
',file('http://pi.vu/BYga')),$m);echo$m[2][array_search(34786,$m[1])-1]?:'Top!';

Chỉnh sửa: Công cụ rút ngắn URL của lrn tạo ra URL ngắn nhất :)

RegEx khớp với neo trước mỗi câu trả lời (cùng với ID câu trả lời) và nội dung bên trong <code>thẻ đầu tiên . Các Ucờ kích hoạt Uchế độ ngreedy và slàm cờ .phù hợp với dòng mới (rất ít). Tôi không lo lắng nếu điều này phù hợp với một cái gì đó khác khi các câu trả lời được thoát, vì vậy không ai có thể chèn <nghĩa đen vào nguồn của trang.

Sau khi tôi nhận được tất cả các câu trả lời $m[2]và ID của họ $m[1], tôi chỉ sử dụng echođể in câu trả lời ở trên $m[2][array_search(34786,$m[1])-1], hoặc là "Trên cùng", nếu câu trả lời của tôi cuối cùng được đưa ra :)

Tôi thích thực tế là trong PHP, toán tử ternary có thể được sử dụng như một toán tử ngắn mạch ?:

Delphi, 461 byte , 553 byte

Bây giờ xử lý nhiều trang quá!

Chơi gôn

uses IdHTTP,RegularExpressions;var T,S,O:String;K,V,C:Int32;begin repeat Inc(C);Str(C,S);S:=TIdHTTP.Create.Get('http://codegolf.stackexchange.com/questions/34705/output-the-answer-above-yours?page='+S);T:=T+S;until Pos('<span class="page-numbers next',S)=0;O:='Top!';for T in TRegEx.Split(T,'<a name="') do begin S:=T;Val(Copy(S,1,Pos('"',S)-1),K,C);if C=1then Continue;Delete(S,1,Pos('post ">',S)+6);Val(Copy(S,1,Pos('<',S)-1),V,C);C:=Pos('<code>',S);if(C=0)or(V<0)then Continue;if K=34844then Break;O:=Copy(S,C+6,Pos('</code>',S)-C-6);end;Write(O)end.

(hơi) Ungolfed:

uses
  IdHTTP,RegularExpressions;
var
  T,S,O:String;
  K,V,C:Int32;
begin
  // download all pages in thread and concat them
  repeat
    Inc(C);
    Str(C,S);
    S:=TIdHTTP.Create.Get('http://codegolf.stackexchange.com/questions/34705/output-the-answer-above-yours?page='+S);
    T:=T+S;
  until Pos('<span class="page-numbers next',S)=0;
  O:='Top!'; // initialize code string to 'Top!'
  for T in TRegEx.Split(T,'<a name="') do begin
    S:=T;
    Val(Copy(S,1,Pos('"',S)-1),K,C); // try to extract user id
    if C=1then Continue; // if failed, continue loop
    Delete(S,1,Pos('post ">',S)+6); // prepare S for next parse
    Val(Copy(S,1,Pos('<',S)-1),V,C); // try to extract vote count
    C:=Pos('<code>',S); // check if <code> tag exists
    if(C=0)or(V<0)then Continue; // make sure vote count is positive and <code> tag exists
    if K=34844then Break; // if its our answer, break the loop
    O:=Copy(S,C+6,Pos('</code>',S)-C-6); // get string in <code> tag
  end;
  Write(O); // write <code> string
end.

Cách chạy:

app.exe > output.txt

PHP - 412 - 422 - 416 - 252 - 248:

Vẫn đang trong quá trình hoàn thành, tôi chưa làm gì liên quan đến nhiều trang (cũng không có ai khác?)

Tôi đã giảm 200 ký tự bằng cách cắt ra rất nhiều dom, tại sao tìm kiếm đồ vật khi tôi chỉ có thể tìm thấy vị trí của chúng?

Đây cũng là mã golf đầu tiên của tôi! Tôi rất vui vì đã thực hiện nó trong những năm 200 và sử dụng các phương pháp dom. Nhờ bình luận, tôi mới cạo được thêm 4 nhân vật.

Tôi muốn làm một cái gì đó như jquery / jscript liên quan đến việc vượt qua dom, và vẫn đang làm việc để giảm bớt điều này. Có lẽ tôi có thể thoát khỏi việc tìm kiếm "asi" như tên người dùng của mình?

Golf:

<? $d=new DOMDocument;$d->loadHTMLFile("http://bit.do/JGta");$x=new DOMXPath($d);$r=$x->query("//*[@class='answer']");$a=-1;while($f=$r->item(++$a))if(strpos($f->nodeValue,"Asitaka"))echo$x->query(".//pre//code",$r->item($a-1))->item(0)->nodeValue;

Định dạng:

    <?php
$d = new DOMDocument();
$d->loadHTMLFile("http://bit.do/JGta");
$x = new DOMXPath($d);
$r = $x->query("//*[@class='answer']");
$a = -1;
while($f = $r->item(++$a))
        if ( stripos($f->nodeValue, "Asitaka")!= 0)
            echo $x->query(".//pre//code",$r->item($a-1))->item(0)->nodeValue;
?>

Chúc mừng

Python 3, 197 191 byte

import urllib.request as u,gzip,json;p='Top!'
for r in json.loads(gzip.decompress(u.urlopen("http://bit.ly/2hN8TKV").read()).decode())["items"]:
 if r['answer_id']==82837:exit(p)
 p=r['body']

Các quy tắc không nói rằng tôi không thể sử dụng API và tôi không thể sử dụng công cụ rút ngắn url.

https://tinyurl.com/hdemk76mở rộng thành https://api.stackexchange.com/2.2/questions/34705/answers?order=desc&sort=votes&site=codegolf&filter=withbody&pagesize=100 Điều này chỉ hoạt động nếu nó nằm trong 100 câu trả lời hàng đầu được sắp xếp theo phiếu bầu.