Napisz program, który wypisuje zawartość pierwszego <code>...</code>bloku HTML odpowiedzi na to pytanie, który jest tuż nad twoim, gdy odpowiedzi są sortowane według głosów. Wyjdź, Top!jeśli jesteś najlepszą odpowiedzią.

Zignoruj ​​odpowiedzi, które mają negatywne głosy lub nie zawierają <code>...</code>tagów. Źródło twojego programu musi pojawić się w pierwszym <code>...</code>bloku postu. Te bloki są tworzone automatycznie, gdy Ty use backtickslub

indent things with 4 spaces.

To jest golf golfowy, wygrywa odpowiedź z najmniejszą liczbą postaci.

Dodatkowe zasady (zaktualizowane)

• Odpowiedz w dowolnym języku programowania, ale jeśli odpowiadasz wielokrotnie, użyj różnych języków.
• Nie możesz na stałe kodować swoich wyników. Zdolność do prawidłowego działania programu nie powinna zależeć od liczby głosów ani od powyższej odpowiedzi. Jeśli rozkład głosów zmienił się drastycznie, twój program powinien nadal poprawnie wypisywać kod odpowiedzi powyżej.
• Państwo może ciężko kod program do wyszukiwania sobie na tej stronie (tak aby znaleźć następny najwyższy) poprzez jakiś unikalny własności odpowiedź, takich jak nazwa użytkownika (jeśli masz tylko jedną odpowiedź) lub odpowiedzieć na bezpośredni link.
• Jeśli dwie odpowiedzi mają równe głosy, nadal powinieneś użyć tej tuż nad twoją (która, jak sądzę, będzie najnowsza).
• W <code>...</code>odpowiedzi może znajdować się wiele bloków, ale pierwszy musi zawierać źródło programu.

JavaScript + jQuery (92 86 64 znaków)

Aby przetestować, otwórz Narzędzia deweloperskie na tej stronie (zazwyczaj F12) i uruchom mój kod!

Ten skrypt Javscript należy uruchomić za pomocą konsoli z tej strony (i tylko tej strony).

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

Tak krótko, że nawet nie potrzebuje paska przewijania!

Zasadniczo znajduje moją odpowiedź według identyfikatora, a następnie przesuwa się o dwa węzły do ​​przodu (pomijając link kotwiczący). Jeśli to nie istnieje, muszę być na szczycie. Następnie kopie w dół do pierwszego codeelementu i otrzymuje go .innerHTML.

Zaletą jest to, że SE domyślnie korzysta z jQuery, więc czerpię tę przewagę, nawet nie próbując.

PHP 666 611 593 588 580 znaków

Edycja: Używany nawet mniejszy adres URL niż wcześniej z tinyurl.

Edycja: Po komentarzu do innej odpowiedzi użyłem int, a nie boolean. Potrzebny również do poprawienia błędu, który stał się widoczny, ale teraz naprawiony.

Oto mój kod

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

Jestem pewien, że można to poprawić za pomocą DOMXPath i węzłów. Jednak jestem z tego bardzo zadowolony. Nie mogłem zdecydować, co zrobić w przypadku mojej, to jedyna odpowiedź, ale z tak ignorowanymi punktami -ve. Jednak opublikowano kolejną odpowiedź, więc nie ma już problemu.

Użyłem również tinyurl, aby skrócić adres URL, oszczędzając wiele znaków.

Mam nadzieję, że to lubisz,

Paweł.

PS To nie będzie działać w codepad, więc nie może pokazać skrzypce.

Edycja: zapisano jeszcze 5 z modyfikowanymi tagami php

Możesz zobaczyć, jak działa tutaj w domenie, z której obecnie nie korzystam (więc nie tylko próbuję podstępnego linku). Nie jest to jednak stały link, ale jest obecnie dostępny.

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

Niegolfowany (cóż, z nowymi liniami i wiodącą białą spacją)

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)

Nadal będę próbował zgolić niektóre postacie, ale to zadziała :)

Edycja: zamiast
skracać to wydłużyłem: P Zapomniałem dodać ignorowanie odpowiedzi, gdy ma ujemną liczbę głosów lub nie ma bloków kodu.

Właśnie aktualizuję wersję bez gry w golfa podczas edycji.
Dzięki @manatwork za sugerowane zmiany, które usunęły 8 znaków.

Wersja golfowa:

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.

Wersja bez golfa:

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]

To mój pierwszy codegolf, więc mam nadzieję, że to wystarczy!

Edycja: Dzięki za wskazówki! Teraz wygląda trochę bardziej golfowo.

Mathematica - 159

Pierwszy raz parsuję w Mathematica

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

Rubin 283 + 17 = 300

Udaje się to bez względu na to, ile głosów otrzyma ta odpowiedź, i nie ważne, czy jest druga (lub piętnasta) strona odpowiedzi, czy nie. Korzysta z interfejsu API danych.

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

musi być uruchamiany z ruby -rnet/http -rjson(stąd +17)

bez golfa:

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

Dziennik zmian

300 usuniętych parenów w wyrażeniu regularnym symbolu

302 wstępne zatwierdzenie

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

Edycja: skracacz URL lrn tworzy najkrótszy URL :)

RegEx dopasowuje kotwicę przed każdą odpowiedzią (wraz z identyfikatorem odpowiedzi) i zawartością wewnątrz pierwszego <code>znacznika. UFlag uruchamia Utryb ngreedy i smakijaż flaga .pasuje nowe linie (bardzo garść). Nie martwię się, jeśli to pasuje do czegoś innego, ponieważ odpowiedzi są unikane, więc nikt nie może wstawić <literału w źródle strony.

Po otrzymaniu wszystkich odpowiedzi $m[2]i ich identyfikatorów $m[1], po prostu używam, echoaby wydrukować odpowiedź nad moją, gdy jest $m[2][array_search(34786,$m[1])-1], lub „Top!”, Jeśli moja odpowiedź w końcu będzie pierwsza :)

Podoba mi się fakt, że w PHP operator trójskładnikowy może być używany jako operator zwarciowy ?:

Delphi, 461 bajtów , 553 bajtów

Teraz obsługuje także wiele stron!

Gra w golfa:

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.

(nieznacznie) Nie golfowany:

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.

Jak uruchomić:

app.exe > output.txt

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

Nadal trwają prace, nie zrobiłem nic dotyczącego wielu stron (ani nikogo innego?)

Dostałem upuszczenie 200 znaków, wycinając wiele dodatkowych domen, po co szukać obiektów, kiedy mogę po prostu znaleźć ich pozycję?

To także mój pierwszy golf w golfa! Cieszę się, że zrobiłem to w latach dwudziestych i używam metod Dom. Dzięki komentarzom ogoliłem jeszcze 4 postacie.

Chciałem zrobić coś takiego jak jquery / jscript w odniesieniu do przechodzenia przez dom i nadal pracuję nad tym, aby to schudnąć. Może uda mi się znaleźć „asi” jako moją nazwę użytkownika?

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;

Sformatowany:

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

Twoje zdrowie

Python 3, 197 191 bajtów

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

Reguły nie mówią, że nie mogę korzystać z API i że nie mogę używać skracacza adresów URL.

https://tinyurl.com/hdemk76rozwija się https://api.stackexchange.com/2.2/questions/34705/answers?order=desc&sort=votes&site=codegolf&filter=withbody&pagesize=100 Działa to tylko wtedy, gdy znajduje się w 100 najlepszych odpowiedziach posortowanych według głosów.