谁在第十九个字节中拥有最多的星星？

16

注意：此挑战涉及通过HTML网页下载和筛选。如果您的语言无法解决此问题，则您可能不想参加此挑战。

介绍

在第十九字节聊天室中总是有关于谁领导右舷的讨论。因此，让我们帮助所有人，并计算聊天中每个用户的星星总数。

挑战

给定一个N大于零的正整数，请计算N聊天中最后加星标的消息的右舷首长。这些消息可以在这里查看。提示：每页有50条加星标的消息。输出将按已加星标的邮件数量列出前5位用户。的奖金-15％关闭您的字节数将被授予如果你能显示这些用户的用户名，但没有就给予惩罚，如果你简单地显示用户ID编号。请注意，某些已加星标的邮件中有亵渎行为。如果您对这种类型的语言敏感，请谨慎浏览页面。

示例（图片是撰写此挑战时的当前右舷）：

在此处输入图片说明

  • （红色）输入：5输出（附赠）：[Geobits Sp3000 PhiNotPi Seadrus]
  • （蓝色）输入：10输出（无奖金）：[51024 17335 24697 116494 129255]
  • （绿色）输入：14输出（无奖金）：[51024 116494 141697 17335 24697]

多余的东西：

前5名的领带将按用户ID编号从低到高排序。如果少于五个用户，则仅输出排行榜，最后排空。输入和输出可以是任何格式。输出不需要大写。如果输入大于50，则仍必须计算第2页，第3页等上的消息。您可以假设输入将始终在之下2^31，并且也不会太大，以至于1）大于已加星标的消息的数量2）不会使程序崩溃（通过使数组变大，内存不足等）。

这是代码高尔夫球，以字节为单位的最短代码胜出！

排行榜

这是一个堆栈片段，用于按语言生成常规排行榜和获胜者概述。

为了确保您的答案显示出来，请使用以下Markdown模板以标题开头。

## Language Name, N bytes

N您提交的文件大小在哪里。如果您提高了分数，可以将旧分数保留在标题中，方法是将它们打掉。例如：

## Ruby, <s>104</s> <s>101</s> 96 bytes

如果您想在标头中包含多个数字（例如，因为您的分数是两个文件的总和，或者您想单独列出解释器标志罚分），请确保实际分数是标头中的最后一个数字：

## Perl, 43 + 2 (-p flag) = 45 bytes

您还可以将语言名称设置为链接，然后该链接将显示在页首横幅代码段中：

## [><>](http://esolangs.org/wiki/Fish), 121 bytes


var QUESTION_ID=62182,OVERRIDE_USER=36670;function answersUrl(e){return"http://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"http://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;
body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>
展开摘要

code-golf  parsing  internet 
— GamrCorps
source
3
谢谢。我已经对此感到无所适从了一段时间，并且不想打扰写一些东西来找出答案。现在其他人会为我做这件事：）
— Geobits
11
在任何人问之前，聊天都没有官方的API。
— Alex A.
URL是否必须计入字节数？刚刚注意到，TeaScript / JavaScript将在跨域资源共享方面
— 遇到
1
@Vɪʜᴀɴ很难判断要删除哪些字符作为URL的一部分，您是否认为允许所有人删除70个字符（大约为URL的长度）会解决此问题？
— GamrCorps，2015年
1
我在过去不朽：D
— Conor O'Brien

Answers:

11
  • 很抱歉，我很慢，但在编码时却读了加星标的消息却很热闹又漫长，这可能使我的情绪持续了一个月。
  • 编辑：是的，我发现了，领带和重复ID问题都得到了和谐解决。诀窍在于，旧代码按星号降序对用户ID进行排序，因此我扭曲了程序的某些行，使其按照99-n°_stars排序用户；由于99远远大于排名最高的星际帽（我希望如此），因此按增加的星数对结果进行排序会用一颗石头杀死两只鸟，而使用上升的用户ID会降低这颗鸟。

BrownRecluse，没有奖金= 536 红利= 551-15％= 468 b

U=New(URL);P=New(Parser);L=New(Stack);t=New(Stack);v='http://chat.stackexchange.com/rooms/info/240/the-nineteenth-byte?tab=stars&page=';j=input();a=0;for i=1to j\50+1do begin U.Location=v+i;U.get;P.Parse(U.Data);x=New(RegEx);x.Data=U.Data;x.Mask='users/(\d*)/(\S*)".*?"times">(\d*?)<';while(x.Match)and(a<j)do begin L.Push(Format('%3d%9s%s',[99-x.Value[3],x.Value[1],x.Value[2]]));a=a+1;end;end;L.sort;i=0;for each L as y do if(not y.empty)and(not t.find(y.right(y.Length-12)))and(i<5)then begin y.delete(1,12);i=i+1;t.push(y);end;output(t.join(' '));

输入值

60

输出量

mego rainbolt alex-a lembik v

输入值

90

输出量

aditsu mego rainbolt alex-a lembik

笔记

  • 该程序（包括奖金）不支持Unicode字符-对不起Vɪʜᴀɴ！

  • 该程序基于默认功能，即每个页面默认包含近50条已加星标的消息。

  • 清楚地看到前两页中包含60和90条消息，而输出却不同。

  • 如果您没有此编程语言，则此页面为下载页面

  • 如果需要，这是485 b的无奖金计划

    U=New(URL);P=New(Parser);L=New(Stack);t=New(Stack);v='http://chat.stackexchange.com/rooms/info/240/the-nineteenth-byte?tab=stars&page=';j=input();a=0;for i=1to j\50+1do begin U.Location=v+i;U.get;P.Parse(U.Data);x=New(RegEx);x.Data=U.Data;x.Mask='users/(\d*)/(\S*)".*?"times">(\d*?)<';while(x.Match)and(a<j)do begin L.Push(Format('%3d%9s',[99-x.Value[3],x.Value[1]]));a=a+1;end;end;L.sort;i=0;for each L as y do if(not y.empty)and(not t.find(y.right(y.Length-3)))and(i<5)then begin y.delete(1,3);i=i+1;t.push(y);end;output(t.join(' '));

输入值

60

输出量

169713    107051    141888     94625    116494

输入值

90

输出量

50454    169713    107051    141888     94625

如果结果之间存在不连贯性，我的代码就不会怪罪！

— Abr001am
source
1
为什么alex-a输出中有两个s？
— feersum
@feersum已修复。
— 2015年
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.