Tulis sebuah program yang mengeluarkan isi dari <code>...</code>blok HTML pertama dari jawaban untuk pertanyaan ini yang tepat di atas Anda ketika jawaban diurutkan berdasarkan suara. Keluarkan Top!jika Anda adalah jawaban teratas.

Abaikan jawaban yang memiliki suara negatif atau tanpa <code>...</code>tag. Sumber program Anda harus muncul di <code>...</code>blok pertama di posting Anda. Blok ini dibuat secara otomatis ketika Anda use backticksatau

indent things with 4 spaces.

Ini kode-golf, jawabannya dengan karakter paling sedikit menang.

Aturan Tambahan (Diperbarui)

• Jawab dalam bahasa pemrograman yang Anda inginkan tetapi jika Anda menjawab beberapa kali gunakan bahasa yang berbeda.
• Anda mungkin tidak menyulitkan output Anda. Kemampuan program Anda untuk berjalan dengan benar tidak harus bergantung pada penghitungan suara atau pada apa jawaban di atas. Jika distribusi suara berubah secara drastis, program Anda masih harus menampilkan dengan benar kode jawaban di atasnya.
• Anda dapat membuat kode program Anda untuk mencari sendiri di halaman ini (sehingga dapat menemukan yang tertinggi berikutnya) melalui beberapa properti unik dari jawaban Anda, seperti nama pengguna Anda (jika Anda hanya memiliki satu jawaban) atau tautan langsung jawaban itu.
• Jika dua jawaban memiliki suara yang sama Anda masih harus menggunakan yang tepat di atas Anda (yang saya percaya akan menjadi yang terbaru).
• Anda mungkin memiliki beberapa <code>...</code>blok dalam jawaban Anda tetapi yang pertama harus mengandung sumber program Anda.

Javascript + jQuery (92 86 64 char)

Untuk mengujinya, buka Dev Tools di halaman ini (biasanya F12), dan jalankan kode saya!

Javscript ini perlu dijalankan menggunakan konsol dari halaman ini (dan hanya halaman ini).

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

Begitu singkatnya, bahkan tidak memerlukan scrollbar!

Pada dasarnya, ia menemukan jawaban saya dengan ID, dan kemudian mendapat dua node di depan (melewatkan tautan jangkar). Jika itu tidak ada, saya harus di atas. Kemudian menggali ke yang pertamacode elemen dan mendapatkannya .innerHTML.

Yang menyenangkan adalah bahwa SE menggunakan jQuery secara default, jadi saya mendapatkan keuntungan itu tanpa mencoba.

PHP 666 611 593 588 580 Karakter

Sunting: Digunakan url yang bahkan lebih kecil dari sebelumnya dari tinyurl.

Sunting: Mengikuti komentar pada jawaban lain saya menggunakan int daripada boolean. Juga diperlukan untuk memperbaiki kesalahan yang menjadi jelas tetapi diperbaiki sekarang.

Ini kode saya

<?
$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);}

Saya yakin ini dapat ditingkatkan menggunakan DOMXPath dan node. Namun saya cukup senang dengan itu. Saya tidak bisa memutuskan apa yang harus dilakukan dalam kasus saya adalah satu-satunya jawaban tetapi dengan -ve poin begitu diabaikan Namun jawaban lain telah diposting jadi tidak masalah lagi.

Saya juga menggunakan tinyurl untuk mempersingkat url, menghemat banyak karakter.

Saya harap Anda menyukainya,

Paul.

PS Ini tidak akan berjalan di codepad jadi tidak bisa menunjukkan biola.

Sunting: disimpan 5 lagi dengan tag php sedang diubah

Anda dapat melihatnya berfungsi di sini di domain yang saat ini tidak saya gunakan (jadi saya tidak hanya mencoba tautan yang licik). Namun ini bukan tautan permanen tetapi saat ini tersedia.

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

Tidak digabungkan (dengan baris baru dan spasi putih terkemuka)

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)

Saya masih akan mencoba untuk memangkas beberapa karakter tetapi akan melakukan pekerjaan :)

Sunting: alih-alih membuatnya lebih pendek, saya membuatnya lebih lama: P
Saya lupa menambahkan pengabaian jawaban ketika memiliki jumlah suara negatif atau tidak ada blok kode.

Saya hanya memperbarui versi un-golfed saat mengedit.
Terima kasih kepada @manatwork untuk pengeditan yang disarankan yang menghilangkan 8 karakter.

Versi golf:

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.

Versi tidak disatukan:

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.

Python - 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]

Ini codegolf pertamaku, jadi kuharap ini golf-y!

Sunting: Terima kasih atas tipsnya! Ini terlihat agak lebih golf sekarang.

Mathematica - 159

Pertama kali melakukan parsing di Mathematica

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

Ruby 283 + 17 = 300

Ini berhasil terlepas dari seberapa sedikit suara yang diperoleh jawaban ini dan tidak masalah apakah ada halaman jawaban kedua (atau kelima belas) atau tidak. Ini menggunakan API data.

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

harus dijalankan dengan ruby -rnet/http -rjson(maka +17)

ungolfed:

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

Changelog

300 parens yang dihapus dalam simbol regex

302 komit awal

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!';

Sunting: pemendek URL lrn menghasilkan URL terpendek :)

RegEx cocok dengan jangkar sebelum setiap jawaban (bersama dengan ID jawaban) dan konten di dalam <code>tag pertama . ItuU bendera memicu Umodus ngreedy dan sbendera make .cocok baris baru (sangat segelintir). Saya tidak khawatir jika ini cocok dengan sesuatu yang lain karena jawabannya lolos, sehingga tidak ada yang dapat memasukkan <literal ke sumber halaman.

Setelah saya mendapatkan semua jawabannya $m[2] dan ID mereka $m[1], saya hanya gunakan echountuk mencetak jawaban di atas milik saya, seperti di $m[2][array_search(34786,$m[1])-1], atau "Top!", Jika jawaban saya akhirnya menjadi yang pertama :)

Saya suka fakta bahwa dalam PHP operator ternary dapat digunakan sebagai operator hubung singkat ?:

Delphi, 461 byte , 553 byte

Sekarang menangani beberapa halaman juga!

Golf:

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.

(sedikit) Tidak Disatukan:

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.

Cara menjalankan:

app.exe > output.txt

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

Masih dalam proses, saya belum melakukan apa-apa mengenai banyak halaman (juga tidak ada orang lain?)

Saya mendapatkan drop 200 karakter dengan memotong banyak dom tambahan, mengapa mencari objek ketika saya bisa menemukan posisi mereka?

Ini juga golf kode pertama saya! Saya senang melakukannya di tahun 200-an dan menggunakan metode dom. Berkat komentar, saya baru mencukur 4 karakter lagi.

Saya ingin melakukan sesuatu seperti jquery / jscript dalam hal melintasi dom, dan saya masih bekerja untuk melangsingkan ini. Mungkin saya bisa lolos dengan mencari "asi" sebagai nama pengguna saya?

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;

Diformat:

    <?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;
?>

Bersulang

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

Aturan tidak mengatakan bahwa saya tidak bisa menggunakan API dan saya tidak bisa menggunakan pemendek url.

https://tinyurl.com/hdemk76Perluas ke https://api.stackexchange.com/2.2/questions/34705/answers?order=desc&sort=votes&site=codegolf&filter=withbody&pagesize=100 Ini hanya berfungsi jika ada di 100 jawaban teratas yang diurutkan berdasarkan suara.