19 번째 바이트에서 가장 많은 별을 가진 사람은 누구입니까?


16

참고 :이 과제는 HTML 웹 페이지를 통한 다운로드 및 선별과 관련이 있습니다. 당신의 언어가 이것을 처리 할 수 ​​없다면 당신은이 도전에 참여하고 싶지 않을 것입니다.

소개

누가 19 번째 바이트 채팅에서 누가 우현을 이끄는 지에 대한 토론이 있습니다 . 따라서 채팅에서 모든 사용자를 도와 사용자 당 총 별 수를 계산할 수 있습니다.

도전

N0보다 큰 양의 정수 가 주어지면 N채팅에서 마지막으로 별표 표시된 메시지의 별표 리더를 계산합니다 . 이 메시지는 여기에서 볼 수 있습니다 . 힌트 : 각 페이지에는 별표가 표시된 50 개의 메시지가 있습니다. 별표 표시된 메일 따라 상위 5 명의 사용자 목록이 출력됩니다 . 해당 사용자의 사용자 이름을 표시 할 수있는 경우 바이트 수 -15 % 의 보너스 가 부여되지만 사용자 ID 번호 만 표시하면 벌금이 부과되지 않습니다. 별표 표시된 일부 메일에는 욕설이 있습니다. 이 유형의 언어에 민감하면주의해서 페이지를보십시오.

예 (이 도전 과제를 작성한 현재 이미지는 현재 우현입니다) :

여기에 이미지 설명을 입력하십시오

  • (적색) 입력 : 5출력 (보너스 포함) :[Geobits Sp3000 PhiNotPi Seadrus]
  • (파란색) 입력 : 10출력 (보너스 제외) :[51024 17335 24697 116494 129255]
  • (녹색) 입력 : 14출력 (보너스 제외) :[51024 116494 141697 17335 24697]

추가 사항 :

상위 5 개의 동점은 가장 낮은 사용자 ID 번호 에서 가장 높은 사용자 ID 번호 로 정렬됩니다 . 사용자가 5 명 미만인 경우 끝에 빈 슬롯이 있는 리더 보드를 출력하십시오 . 입력 및 출력은 모든 형식이 될 수 있습니다. 결과는 대문자로 입력 할 필요가 없습니다. 입력이보다 큰 경우 50에도 2, 3 페이지의 메시지를 계속 세어야합니다. 입력이 항상 아래 2^31에 있고 너무 크지 않은 것으로 가정하여 1) 별표 표시된 메시지의 수보다 큽니다. 그리고 2)는 프로그램을 중단시키지 않습니다 (배열을 크게하거나 메모리를 부족하게하는 등).

이것은 바이트 단위의 , 가장 짧은 코드입니다.


리더 보드

다음은 일반 리더 보드와 언어 별 수상자 개요를 생성하는 스택 스 니펫입니다.

답변이 표시되도록하려면 다음 마크 다운 템플릿을 사용하여 헤드 라인으로 답변을 시작하십시오.

## 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 / 자바 스크립트 크로스 원산지 자원 공유에 문제가있을 것이라는 점을주의
Downgoat

1
@ Vɪʜᴀɴ URL의 일부인 제거 할 문자를 판단하기가 어렵습니다. 모든 사람이 70 자 (대략 URL 길이)를 제거하도록 허용하면이 문제에 도움이 될 것이라고 생각하십니까?
GamrCorps

1
나는이 과거에 불멸의
Conor O'Brien

답변:


11
  • 나는 느리게 유감스럽게 생각했지만 코딩이 너무 재미 있고 팽창하는 동안 별표 표시된 메시지를 읽는 것은 한 달 동안 내 기분을 유지할 수있었습니다.

  • 편집 : 예, 넥타이 및 중복 ID 문제가 조화롭게 해결되었습니다. 트릭은 이전 코드가 별표 수를 내림차순으로 정렬하여 사용자 ID를 정렬하므로 99-n ° _stars에 따라 사용자를 정렬하는 방식으로 프로그램의 일부 줄을 비 틀었습니다. 99가 최고 인기 스타 캡보다 훨씬 크기 때문에 (필자는-가정) 별 수를 늘려 결과를 정렬하면 하나의 돌로 두 마리의 새를 죽이고, 사용자 ID로 올라가는 별을 내립니다.

브라운 리클 루즈 ,보너스없이 = 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

노트

  • 이 프로그램 (보너스 포함)은 유니 코드 문자를 지원하지 않습니다. 죄송합니다. Vɪʜᴀɴ!

  • 이 프로그램은 각 페이지에 기본적으로 거의 50 개의 별표 표시된 메시지가 포함되어있는 표준 기능을 기반으로 작동합니다.

  • 출력이 다르지만 처음 두 페이지에 60 및 90 개의 메시지가 포함되어 있는지 확인하십시오.

  • 이다 그것은 당신의 소유가 아닌 경우이 프로그래밍 언어의 다운로드 페이지

  • 필요한 경우, 이것의 bonusless 프로그램 (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-a출력에 왜 두 개가 있습니까?
feersum

@feersum 수정되었습니다.
Abr001am
당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.