El objetivo de este desafío es hacer un programa que genere la enésima letra de su código fuente donde n se proporciona como entrada al programa. Como la mayoría de los desafíos de quine, no puede leer su código fuente como un archivo ni usar ninguna función de quine incorporada.

Entrada

Un entero 0 <= n <len (programa).

Salida

El enésimo carácter (no byte) de su programa.

Victorioso

Como la mayoría de las preguntas de codegolf, ganas el desafío utilizando el menor número de bytes para resolver el desafío.

Bonos

-5% Si su programa admite índices negativos estilo python (por ejemplo, -1 sería el último carácter de su programa). Si se usa con la bonificación a continuación, sus rangos deben admitir índices negativos.
-20% Si su programa admite rangos como entrada (cualquier formato) además de los requisitos anteriores.
-25% Si su programa completa ambos bonos.

Tablas de clasificación

Aquí hay un fragmento de pila para generar una tabla de clasificación regular y una descripción general de los ganadores por idioma.

Para asegurarse de que su respuesta se muestre, comience con un título, usando la siguiente plantilla de Markdown:

# Language Name, N bytes

¿Dónde Nestá el tamaño de su envío? Si mejora su puntaje, puede mantener los puntajes antiguos en el título, tachándolos. Por ejemplo:

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

Si desea incluir varios números en su encabezado (por ejemplo, porque su puntaje es la suma de dos archivos o desea enumerar las penalizaciones de la bandera del intérprete por separado), asegúrese de que el puntaje real sea el último número en el encabezado:

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

También puede hacer que el nombre del idioma sea un enlace que luego aparecerá en el fragmento de la tabla de clasificación:

# [><>](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

(También es un políglota CJam, y probablemente muchos otros idiomas).

0

Espera entrada en STDIN:

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

Cualquier dígito funciona, por supuesto. No es exactamente el desafío más interesante en Pyth.

Javascript ES6, 31 bytes

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

Explicación

El marco estándar de quine:

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

[prompt()], que es el complemento, obtiene el valor en el índice de entrada de la cadena de quine resultante.

𝔼𝕊𝕄𝕚𝕟, 9 caracteres / 19 bytes

⟮ɕṡ+ᶈ0)⎖ï

Try it here (Firefox only).

¡Ay, decimonoveno byte!

0 funciona también (y es mucho mejor), pero es demasiado trivial para mi gusto.

Además, ℹ ï,⧺ïtambién funcionaría, pero las funciones de quine no están permitidas.

Explicación

El marco estándar de quine es ⟮ɕṡ+ᶈ0.

)⎖ï toma la cadena de quine resultante y obtiene el carácter en el índice de entrada.

Solución extra, 11.4 caracteres / 25.65 bytes

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

Try it here (Firefox only).

Este califica para la bonificación del 5%, pero aún no supera mi presentación original.

Explicación

Este usa la pila. ᵖ…ɕṡ+ᶈ0;simplemente empuja los caracteres individuales de la cadena de quine a la pila y ôᵍïgenera directamente el carácter en el índice de entrada (positivo o negativo) en la pila.

CJam, 12.35 bytes

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

El programa tiene 13 bytes de largo y califica para el bono × 0.95 . Pruébalo en línea!

Cómo funciona

{         }      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.

Rubí, 53 * 0.75 = 39.75

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

Genera una cadena HEREDOC delimitada por a 2en su propia línea, la concatena ( *2) y luego agrega la final a 2través de un carácter literal. Se divide en él utilizando Ruby's incorporado String#[], que admite enteros positivos, enteros negativos y rangos (entrada en el formulario m..n). $><<es salida ( putsrequeriría un espacio extra aquí).

Ruby, 38.25 bytes

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

Soporta índices y rangos negativos. Obviamente tomé los dos $><<y el evaltruco del histocrático, y el truco de quine era para empezar por alguien más, así que haré este CW.

Python 2, 46.55 bytes

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

Soporta índices negativos.

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="

Sin golf:

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

Esto es bastante (muy) tarde, pero lo publicaré de todos modos:

&0g,@