Escriba un programa que muestre el contenido del primer <code>...</code>bloque HTML de la respuesta a esta pregunta que está justo arriba del suyo cuando las respuestas se ordenan por votos. Salida Top!si eres la respuesta principal.

Ignora las respuestas que tengan votos negativos o que no tengan <code>...</code>etiquetas. La fuente de su programa debe aparecer en el primer <code>...</code>bloque de su publicación. Estos bloques se crean automáticamente cuando usted use backtickso

indent things with 4 spaces.

Este es el código de golf, la respuesta con la menor cantidad de caracteres gana.

Reglas adicionales (actualizadas)

• Responda en cualquier lenguaje de programación que desee, pero si responde varias veces, use diferentes idiomas.
• Es posible que no codifique su salida. La capacidad de su programa para ejecutarse correctamente no debe depender de su conteo de votos o de cuál sea la respuesta anterior. Si la distribución de votos cambió drásticamente, su programa aún debería generar correctamente el código de la respuesta que se encuentra arriba.
• Usted puede codificar su programa para buscar por sí mismo en esta página (con el fin de encontrar la siguiente más alta) a través de alguna propiedad única de su respuesta, tal como su nombre de usuario (si sólo tiene una respuesta) o un enlace directo de la respuesta.
• Si dos respuestas tienen los mismos votos, aún debe usar la que está justo arriba de la suya (que creo que será la más nueva).
• Puede tener varios <code>...</code>bloques en su respuesta, pero el primero debe contener la fuente de su programa.

Javascript + jQuery (92 86 64 char)

Para probar, abra Dev Tools en esta página (generalmente F12) y ejecute mi código.

Este Javscript debe ejecutarse utilizando la consola desde esta página (y solo esta página).

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

¡Tan breve que ni siquiera necesita una barra de desplazamiento!

Básicamente, encuentra mi respuesta por ID y luego obtiene dos nodos por delante (omitiendo el enlace de anclaje). Si eso no existe, debo estar en la cima. Luego cava hasta el primer codeelemento y lo obtiene .innerHTML.

Lo bueno es que SE usa jQuery por defecto, así que obtengo esa ventaja sin siquiera intentarlo.

PHP 666 611 593 588 580 Caracteres

Editar: se usó una URL aún más pequeña que anteriormente de tinyurl.

Editar: Después del comentario en otra respuesta, utilicé int en lugar de boolean. También necesitaba corregir un error que se hizo evidente pero solucionado ahora.

Aqui esta mi codigo

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

Estoy seguro de que esto se puede mejorar usando DOMXPath y nodos. Sin embargo, estoy bastante satisfecho con eso. No pude decidir qué hacer en el caso mío es la única respuesta, pero con -ve puntos tan ignorados. Sin embargo, se publicó otra respuesta, así que ya no es un problema.

También usé tinyurl para acortar la url, ahorrando muchos caracteres.

Espero que te guste,

Pablo.

PD: Esto no se ejecutará en el teclado, por lo que no puede mostrar un violín.

Editar: ahorró 5 más con las etiquetas php siendo alteradas

Puede verlo trabajando aquí en un dominio que no uso actualmente (por lo que no solo estoy probando un enlace furtivo). Sin embargo, este no es un enlace permanente, pero actualmente está disponible.

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

Sin golf (bueno, con nuevas líneas y espacios en blanco)

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

Delphi688 873 859 848 840)

Todavía intentaré eliminar algunos caracteres pero hará el trabajo :)

Editar: en lugar de acortarlo, lo hice más largo: P
Olvidé agregar el ignorar las respuestas cuando tiene un conteo de votos negativo o no hay bloques de código.

Solo estoy actualizando la versión sin golf mientras edito.
Gracias a @manatwork por las ediciones sugeridas que eliminaron 8 caracteres.

Versión de 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ón sin golf:

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]

Este es mi primer codegolf, ¡así que espero que sea suficiente para jugar al golf!

Editar: ¡Gracias por los consejos! Ahora se ve un poco más golfista.

Mathematica - 159

Primera vez haciendo análisis en Mathematica

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

Rubí 283 + 17 = 300

Esto tiene éxito independientemente de los pocos votos que obtenga esta respuesta y no importa si hay una segunda (o decimoquinta) página de respuestas o no. Utiliza la API de datos.

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

debe ejecutarse con ruby -rnet/http -rjson(de ahí el +17)

sin golf:

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

Registro de cambios

300 parens eliminados en regex de símbolo

302 confirmación inicial

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

Editar: el acortador de URL de lrn produce la URL más corta :)

El RegEx coincide con el ancla antes de cada respuesta (junto con el ID de la respuesta) y el contenido dentro de la primera <code>etiqueta. La Ubandera activa el Umodo ngreedy y la sbandera hace .coincidir nuevas líneas (muy pocas). No me preocupa si esto coincide con otra cosa ya que las respuestas se escapan, por lo que nadie puede insertar el <literal en la fuente de la página.

Después de obtener todas las respuestas $m[2]y sus ID $m[1], solo uso echoimprimir la respuesta sobre la mía, como está $m[2][array_search(34786,$m[1])-1], o "¡Arriba!", Si mi respuesta finalmente es la primera :)

Me gusta el hecho de que en PHP el operador ternario puede usarse como operador de cortocircuito ?:

Delphi 461 bytes , 553 bytes

¡Ahora también maneja varias páginas!

Golfizado:

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.

(ligeramente) Sin golfista:

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.

Como correr:

app.exe > output.txt

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

Todavía un trabajo en progreso, no he hecho nada con respecto a varias páginas (¿ni nadie más lo ha hecho?

Obtuve la caída de 200 caracteres cortando un montón de dom extra, ¿por qué buscar objetos cuando puedo encontrar su posición?

Este es también mi primer código de golf! Estoy feliz de haberlo hecho en los años 200 y usar métodos dom. Gracias a los comentarios, me limité a 4 personajes más.

Quería hacer algo como jquery / jscript con respecto a atravesar el dom, y todavía estoy trabajando para adelgazar. ¿Tal vez podría salirse con la búsqueda de "asi" como mi nombre de usuario?

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;

Formateado:

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

Salud

Python 3, 197191 bytes

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

Las reglas no dicen que no puedo usar la API y que no puedo usar un acortador de URL.

https://tinyurl.com/hdemk76se expande a https://api.stackexchange.com/2.2/questions/34705/answers?order=desc&sort=votes&site=codegolf&filter=withbody&pagesize=100 Esto solo funciona si está entre las 100 mejores respuestas ordenadas por votos.