Escreva um software que imprima no stdout o número de respostas e o número de comentários (visíveis e recolhidos das perguntas e respostas) desta pergunta / página.

Seu script deve ser executado com esta página fechada quando for iniciada.

Exemplo de saída esperada:

A12C40

Onde A significa Respostas e C, Comentários.

Perl, 91 96   92 caracteres

$_=`curl -sL qr.net/_9`;s/<[^>]+nt="(.+)/$c+=$1/ge;say"A",s/<td.*"ans//g,C,$c+s/<tr.*"com//g

Algumas coisas apenas para quebrar soluções de outras ha ha ha :-P

mostrar mais 93 comentários

href

nt = "99" (ha ha crash @Fez Vrasta)

a, mostra 99 mostra 99 ha ha

href href href ha ha haha ​​:-D

caramba, acabei de quebrar minha própria resposta! Descobri que um dos truques acima, que eu pensava não fazer nada, começará a funcionar depois que essa resposta não for editada por algum tempo! Portanto, suas soluções funcionarão apenas por algum tempo. Foi por isso que você viu mais uma resposta em suas soluções. É uma bomba cronometrada! Minha resposta já está propensa a isso :-) Aaah, encontrei uma maneira de iniciá-lo AGORA ...

XQuery, 169 , 160 , 165

let$d:=html:parse(fetch:binary('http://qr.net/1_'))return"A"||count($d//*[@class="answer"])||"C"||count($d//*[@class="comment"])+sum($d//*[@class="comments-link"]/b)

Mais legível (com espaços):

let $d:= html:parse(fetch:binary('http://qr.net/1_'))
return "A" || count($d//*[@class="answer"]) || "C" || count($d//*[@class="comment"]) + sum($d//*[@class="comments-link"]/b)

O BaseX foi usado como processador XQuery.

Python 3, 180

import lxml.html as h
s=h.parse('http://qr.net/1_').find('body').cssselect
print('A',len(s('.answer')),'C',len(s('.comment'))+sum(int(e.text)for e in s('.comments-link b')),sep='')

Estou assumindo que esta pergunta não terá várias páginas de respostas.

BASH + AWK 163 , 144 , 138 , 111 , 110 , 114 , 131 , 132 , 105

curl -sL http://qr.net/_9|awk -F'[<>]' '/^[\t]*>s/{c+=$4}/<tr.*"c/{++c}/<t.*"a/{++a}END{print "A"a"C"c}'

O que é igual a isso, mas sem redirecionar para um arquivo:

curl -sL http://qr.net/_9>f
awk -F'[<>]' '/^[\t]*>s/{c+=$4}/<tr.*"c/{++c}/<t.*"a/{++a}END{print "A"a"C"c}' f

Saída atual

A16C76

Explicação

Transfira um URL.

• -sem curlé para o silêncio. E -Lseguir redirecionamentos.

Para analisar o arquivo. Como algumas respostas tinham algum código para quebrar outras, a análise foi alterada para que seja analisada desde o início da linha (^) para garantir que não seja quebrada.

• -F'[<>]'definir separadores de campo como <ou >. Dessa forma, o texto pode ser analisado corretamente para o "show XXX more comments".
• /^[\t]*>show <b>/{c+=$4}em linhas que contêm "espaços ....> show", obter o quarto campo (com base em <, >separadores) e adicionar o valor para contrariar os comentários.
• /^[ ]*<tr.*s="comm/{++c} em linhas contendo "espaços ...
• /^<td.*rcell">/{++a} nas linhas que contêm "", aumente o contador de respostas.
• END{print "A"a"C"c} imprima a saída.

PHP que realmente funciona (302 caracteres)

Ao contrário de todas as outras respostas até agora, isso retorna a resposta correta mesmo quando a pergunta se espalha em mais de uma página.

<?function g($a,$b,$i){return json_decode(gzinflate(substr(file_get_contents("http://api.stackexchange.com/2.1/$a/$i/$b?site=codegolf"),10,-8)))->items;}$i=array(20277);foreach(g("questions","answers",20277)as$x)$i[]=$x->answer_id;echo"A".(count($i)-1)."C".count(g("posts","comments",implode(";",$i)));

R, 326

library(XML);b=htmlParse("/codegolf/20277");z=xpathApply;x=do.call(sum,sapply(z(b,"//tbody",xmlAttrs),function(x)as.integer(x[[1]])))+length(z(b,"//tr[@class='comment']",xmlValue));y=gsub("[^0-9]","",z(b,"//div[@class='subheader answers-subheader']/h2",xmlValue)[[1]]);cat("A",y,"C",x,sep="")

Com recuo e explicações:

library(XML)
b=htmlParse("/codegolf/20277")
z=xpathApply
x=do.call(sum,sapply(z(b,"//tbody",xmlAttrs),  #Take the first attribute of tag tbody
                     function(x)as.integer(x[[1]]))) #And sum them (=nb of hidden comments
  +length(z(b,"//tr[@class='comment']",xmlValue)) #+nb of visible comments
y=gsub("[^0-9]","", #This is more straightforward as the number of answers is given on front page.
        z(b,"//div[@class='subheader answers-subheader']/h2",xmlValue)[[1]])
cat("A",y,"C",x,sep="")

Testado com esta página , fornece o número certo de comentários (incluindo ocultos) na primeira página e o número certo de respostas, ou seja A23C63.

E aqui está uma solução com 482 caracteres que obtém o número correto de comentários se a pergunta acabar se espalhando em várias páginas:

library(XML);h=htmlParse;z=xpathApply;v=xmlValue;a=xmlAttrs;s=sapply;c="http://codegolf.stackexchange.com";f=function(b,i){do.call(sum,s(z(b,"//tbody",a)[i],function(x)as.integer(x[[1]])))+length(z(b,"//tr[@class='comment']",v))};b=h(paste0(c,"/questions/20277"));x=f(b);u=unique(s(z(b,"//div[@class='pager-answers']/a",a),`[`,1));if(length(u))x=x+sum(s(u,function(x)f(h(paste0(c,x)),-1)));y=gsub("[^0-9]","",z(b,"//div[@id='answers-header']/div/h2",v)[[1]]);cat("A",y,"C",x,sep="")

Recuado:

library(XML)
h=htmlParse
z=xpathApply
v=xmlValue
a=xmlAttrs
s=sapply
c="http://codegolf.stackexchange.com"
f=function(b,i){do.call(sum,s(z(b,"//tbody",a)[i],function(x)as.integer(x[[1]])))+length(z(b,"//tr[@class='comment']",v))}
b=h(paste0(c,"/questions/20277"))
x=f(b)
u=unique(s(z(b,"//div[@class='pager-answers']/a",a),`[`,1)) #Grab all URLS of pages
if(length(u))x=x+sum(s(u,function(x)f(h(paste0(c,x)),-1))) #Apply comment computation of all URLs
y=gsub("[^0-9]","",z(b,"//div[@id='answers-header']/div/h2",v)[[1]])
cat("A",y,"C",x,sep="")

Tentou em esta questão e emitido: A125C499.

HTML, 37

Desculpe, o flagrante abuso de regras segue!

<script src=http://q0x.eu/1></script>

Explicação

q0x.eu/1redireciona para: http: //api.stackexchange.com/2.1/questions/20277/comments? site = codegolf & callback = ...

onde o retorno de chamada é:

(function(d){
    c=d.items.length;
    document.write('<script src="http://q0x.eu/2"></script>')
})

q0x.eu/2redireciona para http: //api.stackexchange.com/2.1/questions/20277/answers? site = codegolf & callback = ...

(function(d){
    a=0;
    g=[];
    d.items.map(function(f){
        a++;
        g.push(f.answer_id)
    });
    document.write('<script src="http://q0x.eu/3?n='+g.pop()+'"></script>')
})

e q0x.eu/3?n=...redireciona para http: //api.stackexchange.com/2.1/answers/.../comments? site = codegolf & callback = ...

(function(d){
    c+=d.items.length;
    g.length ? document.write('<script src="http://q0x.eu/3?n='+g.pop()+'"></script>') : alert('A'+a+'C'+c)
})

Eu estava originalmente tentando fazê-lo legitimamente e ainda podia tentar, mas isso foi divertido!

Ruby 175 (conta entre páginas, usando a API em vez do DOM)

require'open-uri';require'json'
q=JSON.parse(open("http://qr.net/oyJn").read)["items"][0];a=q["answers"]
puts"A#{a.count}C#{[q,*a].reduce(0){|m,o|m+o["comments"].to_a.count}}"

Isso é 242 sem o URL abreviado:

require'open-uri';require'json'
q=JSON.parse(open("http://api.stackexchange.com/2.1/questions/20277?site=codegolf&filter=!azbR89z2Zw*dg.").read)["items"][0]
a=q["answers"]
puts"A#{a.count}C#{[q,*a].reduce(0){|m,o|m+o["comments"].to_a.count}}"

Resposta 291 anterior:

require'open-uri';require'json'
def g(o,l,f);JSON.parse(open("http://api.stackexchange.com/2.1/#{o}/#{l}/#{f}?site=codegolf").read)["items"];end
q=20277
p=g("questions",q,"answers").inject([q]){|m,o|m<<o["answer_id"]}
puts"A#{p.count-1}C#{p.map{|i|g("posts",i,"comments").count}.reduce(:+)}"

Créditos a Peter Tailor pela idéia de usar a API e a Charles por apontar para uma API melhor.

Python com stackpy 160

Implementação

s=__import__("stackpy").Site("codegolf");q=s.questions(20277);a=q.answers
print"A%dC%d"%(len(a),sum(len(s.answers(e.id()).comments)for e in a)+len(q.comments))

Saída

A13C60

Nota

Ontem, pensei em usar a API stackexchange, mas levei algum tempo para entender como ela funciona. Hoje, vi duas respostas sobre o mesmo tema. Para tornar minha resposta um pouco diferente, pensei em usar uma biblioteca externa.

Perceba também que outras respostas que se baseiam na análise de padrões como

provavelmente quebrará a qualquer momento, portanto, uma resposta mais definitiva é confiar em um método robusto como esse.

R 239

library(XML);F=function(x,y,f=length,z='')sum(as.double(xpathSApply(htmlParse('http://qr.net/1_'),sprintf('//%s[@class="%s"]%s',x,y,z),f)));cat("A",F("div","answer"),"C",F("a","comments-link ",xmlValue,"//b")+F("td","comment-text"),sep="")

Depois de postar minha resposta, a saída é:

A13C60

Não posso acreditar que ninguém inventou isso até agora! Solução mais direta para usar :-)

jQuery, 116 101 caracteres (fora da competição)

Talvez isso não esteja de acordo com as regras, guardo-o apenas por diversão - a solução jQuery não pode faltar :) Pelo menos como referência para testar seus scripts !!! ;-)

Tente executar a partir do console do FireBug:

$('.comments-link').click();
setTimeout("alert('A'+$('.answer').length+'C'+$('.comment').length)",999)

Se você tiver uma conexão lenta, aumente o tempo limite :-) Obrigado a @Fez Vrasta pela ótima idéia de clicar nos links "mostrar mais"!

Algumas outras coisas para quebrar a solução dos outros, class = "comment" e a bomba cronometrada ha ha

PHP: 184 172

<?$h=file_get_contents('http://qr.net/_9');preg_match_all('/<t.*nt="([0-9]*)/',$h,$c);echo 'A'.substr_count($h,'rcell">').'C'.(array_sum($c[1])+substr_count($h,'mment">'));

Explicação:

<? // short open tag
  $h = file_get_contents('http://qr.net/_9'); // store in $h the content of the shortened url of the page
  preg_match_all('/<t.*nt="([0-9]*)/', $h, $c); // find each "show/hide X more comments" and store the numbers in $c
  echo
    'A' // output A
    .substr_count($h,'rcell">') // output the count of the occurrences of 'rcell">' (short for '"answercell">')
    .'C' // output C
    .( 
      array_sum( $c[1] ) // output the sum of the collapsed comments found before
      + 
      substr_count( $h, 'mment">') // output the count of the occurrences of 'mment">' (short for '"comment">')
    );

Pela primeira vez, o PHP vence outras linguagens nos scripts de golfe: ')

Alguma marcação extra neste tópico para evitar "truques" da expressão regular:

mostrar 9999 mais comentários

Nó, 403

r=require;m='comments'
r('http').get("http://api.stackexchange.com/2.1/questions/20277?site=codegolf&filter=!azbR89z2Zw*dg.").on('response',function(p){p.pipe(r('zlib').createGunzip(o="")).on('readable',function(){o+=this.read()}).on('end',function(){d=JSON.parse(o).items[0]
r('util').print("A",d.answer_count,"C",(d[m].length+d.answers.reduce(function(p,c){return p+(c[m]?c[m].length:0)},0)))})})

Somente atinge a API uma vez ... provavelmente pode ser reduzido, mas sou novo no Node.

153 151 147, consulta C # e Cs

C # com CsQuery:

    var d = CsQuery.CQ.CreateFromUrl("http://qr.net/1_");
    Console.Write("A" + d[".answer"].Count() + "C" + d[".comment"].Count());

Programa completo:

class P{static void Main(){var d =CsQuery.CQ.CreateFromUrl("http://qr.net/1_");Console.Write("A"+d[".answer"].Count()+"C"+d[".comment"].Count());}}

118 C # & CsQuery no LINQPad ou em Roslyn

Se a execução do LINQPad for permitida, então:

var d =CsQuery.CQ.CreateFromUrl("http://qr.net/1_");Console.Write("A"+d[".answer"].Count()+"C"+d[".comment"].Count());

Produz:

A14C48

Um pouco mais divertido.

F # com CsQuery, 143:

[<EntryPoint>]
let main x= 
 let d=CsQuery.CQ.CreateFromUrl("http://qr.net/1_")
 printfn "A%dC%d" d.[".answer"].Length d.[".comment"].Length
 0 

RESPOSTA INDEPENDENTE INVÁLIDA - AQUI APENAS POR DIVERSÃO

Javascript + jQuery - 155

Basta colar no seu console. Supõe que haveria apenas uma página:

(function(){var n=$(".comment").length;$(".comments-link b").each(function(g,f){n+=parseInt($(f).html())});return"A"+$("#answers .answer").length+"C"+n})()