ใครที่มีดวงดาวมากที่สุดในวงที่สิบเก้า?


16

หมายเหตุ: ความท้าทายนี้เกี่ยวข้องกับการดาวน์โหลดและการลอดผ่านหน้าเว็บ HTML หากภาษาของคุณไม่สามารถจัดการกับสิ่งนี้ได้คุณอาจไม่ต้องการมีส่วนร่วมในการท้าทายนี้

บทนำ

มีการพูดคุยกันเสมอในการพูดคุยสิบเก้าไบต์เกี่ยวกับผู้ที่เป็นผู้นำทางกราบขวา ดังนั้นให้ช่วยทุกคนออกและนับจำนวนดาวทั้งหมดต่อผู้ใช้ในการแชท

ท้าทาย

กำหนดจำนวนเต็มบวกNซึ่งมากกว่าศูนย์ให้คำนวณผู้นำของสตาร์บอร์ดของNข้อความที่ติดดาวล่าสุดในการแชท ข้อความเหล่านี้สามารถดูได้ที่นี่ คำแนะนำ: แต่ละหน้ามี 50 ข้อความที่ติดดาว เอาท์พุทจะเป็นรายการของด้านบน 5 ผู้ใช้โดยจำนวนของข้อความที่ติดดาว โบนัส-15%จากจำนวนไบต์ของคุณจะได้รับหากคุณสามารถแสดงชื่อผู้ใช้ของผู้ใช้เหล่านั้นได้ แต่จะไม่มีการลงโทษหากคุณเพียงแค่แสดงหมายเลขประจำตัวผู้ใช้ โปรดทราบว่ามีการดูหมิ่นข้อความที่ติดดาว หากคุณอ่อนไหวต่อภาษาประเภทนี้ให้ดูหน้านี้ด้วยความระมัดระวัง

ตัวอย่าง (รูปภาพเป็นกราบขวาปัจจุบันขณะที่เขียนความท้าทายนี้):

ป้อนคำอธิบายรูปภาพที่นี่

  • (RED) อินพุต: 5เอาต์พุต (พร้อมโบนัส):[Geobits Sp3000 PhiNotPi Seadrus]
  • (สีน้ำเงิน) อินพุต: 10เอาต์พุต (ไม่รวมโบนัส):[51024 17335 24697 116494 129255]
  • (GREEN) อินพุต: 14เอาต์พุต (ไม่รวมโบนัส):[51024 116494 141697 17335 24697]

สิ่งพิเศษ:

ความสัมพันธ์ใน 5 อันดับแรกจะเรียงลำดับตามต่ำสุดไปสูงสุดรหัสผู้ใช้จำนวน หากมีผู้ใช้น้อยกว่าห้ารายให้ส่งกระดานผู้นำพร้อมช่องว่างที่ท้าย อินพุตและเอาต์พุตสามารถอยู่ในรูปแบบใดก็ได้ ไม่จำเป็นต้องโอนเป็นทุน หากการป้อนข้อมูลมีค่ามากกว่า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>


3
ขอบคุณ ฉันอยากรู้อยากเห็นเกี่ยวกับเรื่องนี้มาระยะหนึ่งแล้วและไม่ต้องการที่จะเขียนบางสิ่งเพื่อค้นหา ตอนนี้คนอื่น ๆ จะทำเพื่อฉัน :)
Geobits

11
ก่อนที่ทุกคนถามว่าการแชทไม่มี API อย่างเป็นทางการ
Alex A.

URL ต้องนับเป็นจำนวนไบต์หรือไม่ เพิ่งสังเกตเห็นว่า TeaScript / JavaScript จะมีปัญหากับการแบ่งปันทรัพยากรข้ามแหล่ง
Downgoat

1
@ Vɪʜᴀɴมันยากที่จะตัดสินว่าตัวละครตัวไหนที่จะลบซึ่งเป็นส่วนหนึ่งของ url คุณคิดว่าการอนุญาตให้ทุกคนลบ 70 ตัวอักษร (ประมาณความยาวของ URL) จะช่วยแก้ปัญหานี้ได้หรือไม่?
GamrCorps

1
ฉันเคยถูกทำให้เป็นอมตะในอดีตที่ผ่านมานี้: D
Conor O'Brien

คำตอบ:


11
  • ฉันเสียใจที่ช้า แต่อ่านข้อความที่ติดดาวในขณะที่การเขียนโค้ดนั้นเฮฮาและเจือจางนี่อาจทำให้ฉันอารมณ์เสียไปหนึ่งเดือน

  • แก้ไข:ใช่ฉันพบว่าปัญหา id และ tie ที่ซ้ำกันได้รับการแก้ไขอย่างสอดคล้องกัน เคล็ดลับคือรหัสเก่าจัดเรียงรหัสผู้ใช้โดยลดจำนวนดาวดังนั้นฉันจึงบิดโปรแกรมของฉันในลักษณะที่เรียงลำดับผู้ใช้ตาม 99-n ° _stars; เนื่องจาก 99 นั้นใหญ่กว่ายอดดาราระดับสูงสุด (หวังว่า - ฉันคิดเอาเอง) เรียงลำดับผลลัพธ์โดยการเพิ่มจำนวนดาวที่ฆ่านกทั้งสองด้วยหินก้อนเดียว

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

หากมีการเชื่อมโยงกันระหว่างผลลัพธ์รหัสของฉันไม่ได้รับการตำหนิ!


1
เหตุใดจึงมีสองalex-as ในผลลัพธ์
feersum

แก้ไข @feersum แล้ว
Abr001am
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.