Le but de ce défi est de créer un programme qui génère la nième lettre de son code source où n est donné en entrée au programme. Comme la plupart des défis de quine, vous n'êtes pas autorisé à lire votre code source en tant que fichier ou à utiliser des fonctions de quine intégrées.

Contribution

Un entier 0 <= n <len (programme).

Production

Le nième caractère (pas l'octet) de votre programme.

Gagnant

Comme la plupart des questions de codegolf, vous remportez le défi en utilisant le plus petit nombre d'octets pour résoudre le défi.

Bonus

-5% Si votre programme prend en charge le style python à indices négatifs (par exemple, -1 serait le dernier caractère de votre programme). S'ils sont utilisés avec le bonus ci-dessous, vos plages doivent prendre en charge les indices négatifs.
-20% Si votre programme prend en charge les plages en entrée (tout format) en plus des exigences ci-dessus.
-25% Si votre programme complète les deux bonus.

Classements

Voici un extrait de pile pour générer à la fois un classement régulier et un aperçu des gagnants par langue.

Pour vous assurer que votre réponse s'affiche, veuillez commencer votre réponse avec un titre, en utilisant le modèle de démarque suivant:

# Language Name, N bytes

où Nest la taille de votre soumission. Si vous améliorez votre score, vous pouvez conserver les anciens scores dans le titre, en les barrant. Par exemple:

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

Si vous souhaitez inclure plusieurs nombres dans votre en-tête (par exemple, parce que votre score est la somme de deux fichiers ou que vous souhaitez répertorier les pénalités de drapeau d'interprète séparément), assurez-vous que le score réel est le dernier numéro de l'en-tête:

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

Vous pouvez également faire du nom de la langue un lien qui apparaîtra ensuite dans l'extrait de classement:

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

(Il se trouve également qu'il s'agit d'un polyglotte CJam et probablement de nombreuses autres langues.)

0

Attend une entrée sur STDIN:

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

Tout chiffre unique fonctionne, bien sûr. Pas exactement le défi le plus intéressant en Pyth.

Javascript ES6, 31 octets

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

Explication

Le cadre standard de quine:

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

[prompt()], qui est l'addon, obtient la valeur à l'index d'entrée de la chaîne quine résultante.

𝔼𝕊𝕄𝕚𝕟, 9 caractères / 19 octets

⟮ɕṡ+ᶈ0)⎖ï

Try it here (Firefox only).

Oui, 19e octet!

0 fonctionne aussi (et c'est beaucoup mieux), mais c'est beaucoup trop trivial à mon goût.

En outre, ℹ ï,⧺ïcela fonctionnerait également, mais les fonctions de quine ne sont pas autorisées.

Explication

Le cadre standard quine est ⟮ɕṡ+ᶈ0.

)⎖ï prend la chaîne quine résultante et obtient le caractère à l'index d'entrée.

Solution bonus, 11,4 caractères / 25,65 octets

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

Try it here (Firefox only).

Celui-ci se qualifie pour le bonus de 5%, mais ne bat toujours pas ma soumission d'origine.

Explication

Celui-ci utilise la pile. ᵖ…ɕṡ+ᶈ0;pousse simplement les caractères individuels de la chaîne de quine vers la pile, et ôᵍïsort directement le caractère à l'index d'entrée (positif ou négatif) dans la pile.

CJam, 12,35 octets

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

Le programme est de 13 octets et se qualifie pour le bonus × 0,95 . Essayez-le en ligne!

Comment ça fonctionne

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

Rubis, 53 * 0,75 = 39,75

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

Génère une chaîne HEREDOC délimitée par un 2sur sa propre ligne, la concatène ( *2), puis ajoute la finale 2via un littéral de caractère. Tranche dedans en utilisant Ruby intégré String#[], qui prend en charge les entiers positifs, les entiers négatifs et les plages (entrée dans le formulaire m..n). $><<est sortie. ( putsnécessiterait un espace supplémentaire ici).

Rubis, 38,25 octets

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

Prend en charge les indices et les plages négatifs. J'ai manifestement repris les deux $><<et le evaltour de l'histocrate, et le tour de quine était celui de quelqu'un d'autre, donc je vais faire cette CW.

Python 2, 46,55 octets

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

Prend en charge les indices négatifs.

Haskell, 122 octets

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

Non 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 octets

C'est assez (très) tard mais je le posterai quand même:

&0g,@