Das Ziel dieser Herausforderung ist es, ein Programm zu erstellen, das den n-ten Buchstaben seines Quellcodes ausgibt, wobei n als Eingabe für das Programm angegeben wird. Wie bei den meisten Quine-Herausforderungen ist es Ihnen nicht gestattet, Ihren Quellcode als Datei zu lesen oder integrierte Quine-Funktionen zu verwenden.

Eingang

Eine ganze Zahl 0 <= n <len (Programm).

Ausgabe

Das n-te Zeichen (nicht Byte) Ihres Programms.

Gewinnen

Wie die meisten Codegolf-Fragen gewinnen Sie die Herausforderung, indem Sie die Herausforderung mit der geringsten Anzahl von Bytes lösen.

Boni

-5% Wenn Ihr Programm negative Indizes unterstützt, verwenden Sie den Python-Stil (z. B. -1 ist das letzte Zeichen Ihres Programms). Bei Verwendung mit dem folgenden Bonus müssen Ihre Bereiche negative Indizes unterstützen.
-20% Wenn Ihr Programm zusätzlich zu den oben genannten Anforderungen Bereiche als Eingabe (beliebiges Format) unterstützt.
-25% Wenn Ihr Programm beide Boni erfüllt.

Bestenlisten

Hier ist ein Stack-Snippet, um sowohl eine reguläre Rangliste als auch eine Übersicht der Gewinner nach Sprache zu generieren.

Um sicherzustellen, dass Ihre Antwort angezeigt wird, beginnen Sie Ihre Antwort mit einer Überschrift. Verwenden Sie dazu die folgende Markdown-Vorlage:

# Language Name, N bytes

Wo Nist die Größe Ihres Beitrags? Wenn Sie Ihren Score zu verbessern, Sie können alte Rechnungen in der Überschrift halten, indem man sich durch das Anschlagen. Zum Beispiel:

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

Wenn Sie mehrere Zahlen in Ihre Kopfzeile aufnehmen möchten (z. B. weil Ihre Punktzahl die Summe von zwei Dateien ist oder wenn Sie die Strafen für Interpreter-Flags separat auflisten möchten), stellen Sie sicher, dass die tatsächliche Punktzahl die letzte Zahl in der Kopfzeile ist:

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

Sie können den Namen der Sprache auch als Link festlegen, der dann im Leaderboard-Snippet angezeigt wird:

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

var QUESTION_ID=70727,OVERRIDE_USER=32700;function answersUrl(e){return"https://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"https://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>

Pyth, 0,75

(Zufällig ist es auch ein CJam-Polyglot und wahrscheinlich viele andere Sprachen.)

0

Erwartet Eingabe auf STDIN:

llama@llama:~$ echo 0..0 | pyth -c '0'
0

Natürlich funktioniert jede einzelne Ziffer. Nicht gerade die interessanteste Herausforderung in Pyth.

Javascript ES6, 31 Bytes

$=_=>`$=${$};$()`[prompt()];$()

Erläuterung

Das Standard-Quine-Framework:

$=_=>`$=${$};$()`;$()

[prompt()]Das Addon ruft den Wert am Eingabeindex des resultierenden Quine-Strings ab.

𝔼𝕊𝕄𝕚𝕟 9 Zeichen / 19 Byte

⟮ɕṡ+ᶈ0)⎖ï

Try it here (Firefox only).

Ja, 19. Byte!

0 funktioniert auch (und ist viel besser), aber es ist viel zu trivial für meinen Geschmack.

Darüber hinaus ℹ ï,⧺ïwürde auch funktionieren, aber quine Funktionen sind nicht zulässig.

Erläuterung

Das Standard-Quine-Framework ist ⟮ɕṡ+ᶈ0.

)⎖ï Nimmt die resultierende Quine-Zeichenfolge und ruft das Zeichen am Eingabeindex ab.

Bonuslösung, 11,4 Zeichen / 25,65 Byte

⟮ᵖ…ɕṡ+ᶈ0;ôᵍï

Try it here (Firefox only).

Dieser qualifiziert sich für den 5% -Bonus, übertrifft aber immer noch nicht meine ursprüngliche Einreichung.

Erläuterung

Dieser nutzt den Stapel. ᵖ…ɕṡ+ᶈ0;Drückt einfach die einzelnen Zeichen des Quine-Strings auf den Stapel und ôᵍïgibt das Zeichen direkt am Eingabeindex (positiv oder negativ) im Stapel aus.

CJam, 12,35 Bytes

{s"_~"+ri=}_~

Das Programm ist 13 Byte lang und qualifiziert sich für den Bonus × 0,95 . Probieren Sie es online!

Wie es funktioniert

{         }      Define a code block.
           _~    Push a copy and execute the copy.
 s               Cast the original code block to string.
  "_~"+          Append "_~".
       ri        Read an integer from STDIN.
         =       Retrieve the character at that index.

Rubin, 53 × 0,75 = 39,75

$><<(<<2*2+?2)[eval gets]
$><<(<<2*2+?2)[eval gets]
2

Erzeugt einen HEREDOC-String, der durch eine 2eigene Zeile begrenzt ist, verkettet ihn ( *2) und fügt ihn im Finale 2über ein Zeichenliteral hinzu . Verwenden Sie Ruby's Built-In String#[], das positive Ganzzahlen, negative Ganzzahlen und Bereiche unterstützt (Eingabe in das Formular m..n). $><<ausgegeben wird. ( putswürde hier zusätzlichen Platz benötigen).

Ruby, 38,25 Bytes

a="a=%p;$><<(a%%a)[eval gets]";$><<(a%a)[eval gets]

Unterstützt negative Indizes und Bereiche. Ich habe beide $><<und den evalTrick des Histokraten unverblümt aufgegriffen, und der Quine-Trick war von Anfang an der Trick eines anderen, also mache ich diesen CW.

Python 2, 46,55 Bytes

a="a=%r;print(a%%a)[input()]";print(a%a)[input()]

Unterstützt negative Indizes.

Haskell, 122 Bytes

main=getLine>>= \i->putChar$(!!(read i))$p++show p where p="main=getLine>>= \\i->putChar$(!!(read i))$p++show p where p="

Ungolfed:

main=getLine>>= \i->putChar$(!!(read i))$p++show p
 where p="main=getLine>>= \\i->putChar$(!!(read i))$p++show p\n where p="

Befunge 93, 5 Bytes

Das ist ziemlich (sehr) spät, aber ich werde es trotzdem posten:

&0g,@