Jouons à la roulette russe!

Normalement, ce serait une course pour écrire le programme MOD 6 le plus court, mais ce n'est pas très réaliste, car les chances de gagner diminuent à chaque clic. Voici les règles:

1. Émulez un vrai six tireurs :
   • Une seule balle est placée dans l'une des six chambres, et le canon est tourné une fois, seulement avant de jouer.
   • Le risque de perdre sur la n ième essai est 1/6.
   • La chance de perdre après n essais est de 1 / (6-n)
   • Vous êtes assuré de perdre en 6 essais au maximum.
2. Perdant:
   • Afficher le texte *BANG!*
   • Arrêtez le programme.
3. Gagnant:
   • "Gagner" signifie que l'arme ne tire pas, mais la balle est une chambre plus proche du marteau.
   • Afficher le texte *click*
   • Présentez un "déclencheur" à l'utilisateur, ainsi que la possibilité de terminer le programme (par exemple "ctrl + c", voir ci-dessous).
4. Spécifique au programme:
   • Tirer sur la gâchette est une forme d'entrée utilisateur, y compris le premier essai. (Cela peut être une frappe, un clic de souris, peu importe; les invites de texte ne sont pas nécessaires.)
   • Une seule instance du programme est autorisée jusqu'à ce qu'elle soit terminée. (L'exécution d'une nouvelle instance du programme revient à donner au baril une bonne rotation, c'est-à-dire que la probabilité de perdre au prochain clic est réinitialisée à 1/6.)

Le code le plus court gagne!

Classement

<style>body { text-align: left !important} #answer-list { padding: 10px; width: 290px; float: left; } #language-list { padding: 10px; width: 290px; float: left; } table thead { font-weight: bold; } table td { padding: 5px; }</style><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="language-list"> <h2>Shortest Solution 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> <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> <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><script>var QUESTION_ID = 66763; var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe"; var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk"; var OVERRIDE_USER = 38512; var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page; function answersUrl(index) { return "https://api.stackexchange.com/2.2/questions/" + QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER; } function commentUrl(index, answers) { return "https://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER; } function getAnswers() { jQuery.ajax({ url: answersUrl(answer_page++), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { answers.push.apply(answers, data.items); answers_hash = []; answer_ids = []; data.items.forEach(function(a) { a.comments = []; var id = +a.share_link.match(/\d+/); answer_ids.push(id); answers_hash[id] = a; }); if (!data.has_more) more_answers = false; comment_page = 1; getComments(); } }); } function getComments() { jQuery.ajax({ url: commentUrl(comment_page++, answer_ids), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { data.items.forEach(function(c) { if (c.owner.user_id === OVERRIDE_USER) answers_hash[c.post_id].comments.push(c); }); if (data.has_more) getComments(); else if (more_answers) getAnswers(); else process(); } }); } getAnswers(); var SCORE_REG = /<h\d>\s*([^\n,<]*(?:<(?:[^\n>]*>[^\n<]*<\/[^\n>]*>)[^\n,<]*)*),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/; var OVERRIDE_REG = /^Override\s*header:\s*/i; function getAuthorName(a) { return a.owner.display_name; } function process() { var valid = []; answers.forEach(function(a) { var body = a.body; a.comments.forEach(function(c) { if(OVERRIDE_REG.test(c.body)) body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>'; }); var match = body.match(SCORE_REG); if (match) valid.push({ user: getAuthorName(a), size: +match[2], language: match[1], link: a.share_link, }); else console.log(body); }); valid.sort(function (a, b) { var aB = a.size, bB = b.size; return aB - bB }); var languages = {}; var place = 1; var lastSize = null; var lastPlace = 1; valid.forEach(function (a) { if (a.size != lastSize) lastPlace = place; lastSize = a.size; ++place; var answer = jQuery("#answer-template").html(); answer = answer.replace("{{PLACE}}", lastPlace + ".") .replace("{{NAME}}", a.user) .replace("{{LANGUAGE}}", a.language) .replace("{{SIZE}}", a.size) .replace("{{LINK}}", a.link); answer = jQuery(answer); jQuery("#answers").append(answer); var lang = a.language; lang = jQuery('<a>'+lang+'</a>').text(); languages[lang] = languages[lang] || {lang: a.language, lang_raw: lang.toLowerCase(), user: a.user, size: a.size, link: a.link}; }); var langs = []; for (var lang in languages) if (languages.hasOwnProperty(lang)) langs.push(languages[lang]); langs.sort(function (a, b) { if (a.lang_raw > b.lang_raw) return 1; if (a.lang_raw < b.lang_raw) return -1; return 0; }); for (var i = 0; i < langs.length; ++i) { var language = jQuery("#language-template").html(); var lang = langs[i]; language = language.replace("{{LANGUAGE}}", lang.lang) .replace("{{NAME}}", lang.user) .replace("{{SIZE}}", lang.size) .replace("{{LINK}}", lang.link); language = jQuery(language); jQuery("#languages").append(language); } }</script>

Pyth, 23 octets

VO6"*click*" w;"*BANG!*

Vraiment simple. Un nombre aléatoire d'itérations de 0 à 5 affiche le clic et demande une ligne d'entrée, suivie d'un coup à la fin.

Rubis, 51 octets

[*['*click*']*rand(6),'*BANG!*'].map{|x|gets;$><<x}

Ungolfed:

[
  *(                        # Unwrap the following array into the outer one
    ['*click*'] * rand(6)   # An array of 0-5 clicks, see Array#*
  ),
  '*BANG!*'                 # The End
].map do |x| # Shortest way to iterate I was able to find
  gets       # Await input
  $> << x    # Shove the output string to `stdout`
end          # Return value is an array of several (0-5) `stdout`s. Who cares.

ou

(['*click*']*rand(6)<<'*BANG!*').map{|x|gets;$><<x}

Ungolfing est parti pour les lecteurs. Pas si difficile

• Encore une fois, bravo à Martin, cette fois pour un tour avec $><<comme putsremplaçant.
• N'affiche pas de nouvelles lignes, mais cela n'était pas obligatoire.
• Le plus court, le plus simple. L'essentiel du comportement requis consiste à effectuer 0 à 5 clics, puis à tirer. Pour cela, les sorties sont accumulées à l'intérieur du tableau.
• 2 octets supplémentaires peuvent être rasés si les sorties comme "*click*"sont correctes (ce qui est requis est imprimé à la fin), en remplaçant $><<par p . Je ne savais pas si cela respecterait toujours les règles.

68 64 octets

(une autre approche)

[*0..5].shuffle.find{|x|gets;x<1||puts('*click*')};puts'*BANG!*'

• Félicitations à Martin Büttner pour -4 octets supplémentaires.

Je n'ai pas beaucoup réfléchi à l'algorithme (il peut être encore plus compact, mais pas si clair), mais j'aime vraiment le modèle qu'il contient:

• Un tableau émule un baril avec ses éléments constituant le contenu des chambres. Comme un seul élément est une balle, la faire tourner et la mélanger sont équivalentes.
• 0est une balle. D'autres chiffres ne le sont pas.
• findtrouve une première valeur de retour pour laquelle le bloc n'est ni falseni nil.
• ||-expression est implicitement renvoyée par le bloc. C'est un court-circuit: il retourne son premier opérande (sauf si c'est nilou false) ou un second (sinon). Il renvoie donc true(si x<1ou, plus clair mais plus long x == 0) ou la valeur de retour de puts, tandis que ...
• putsrevient toujours nil. Oui.
• getsdemande une entrée. Il Entersuffit de frapper .
• Ctrl+ Ctermine le programme

JavaScript, 64 octets

for(i=6;i<7&&prompt();)alert(new Date%i--?"*click*":i="*BANG!*")

Explication

Pour tirer sur la gâchette, entrez n'importe quel texte dans l'invite. N'entrez rien ou cliquez sur Annuler pour terminer.

for(
  i=6;             // i = number of chambers
  i<7              // i equals "*BANG!*" (not less than 7) if we lost
    &&prompt();    // see if we should do another shot
)
  alert(           // alert the result
    new Date%i--   // use the current time in milliseconds as a random number, this is safe
                   //     to use because the gap between shots is greater than i (max 6ms)
      ?"*click*"   // on win pass "*click*" to alert
      :i="*BANG!*" // on lose alert "*BANG!*" and set i to not less than 7
  )

Lua, 82 75 octets

Assez long, mais il y a beaucoup de verbeux dans lua.

for a=math.random(6),1,-1 do io.read()print(a>1 and"*click*"or"*BANG!*")end

LabVIEW, 46 primitives LabVIEW

Crée un tableau de 0 et un 1, a une boucle pour attendre les clics et sort la chaîne. Il indique initialement que BANG parce que j'ai oublié de réinitialiser l'indicateur avant de le démarrer.

Notez également que c'est un gif, si si ne joue pas / charge pour vous, veuillez rouvrir la page.

Pyth, 31 30 28 octets

FN.S6 EI!N"*BANG!*"B"*click*

Peut presque certainement être amélioré. Entrez un nombre quelconque pour tirer sur la gâchette, une entrée vide pour terminer plus tôt (avec une erreur).

Explication:

FN                               for N in...
  .S6                            shuffle(range(6))...
      E                          get a line of input
       I!N                       if N is falsy (i.e. 0)
          "*BANG!*"              implicit output
                   B             break
                    "*click*     else, print click

Sérieusement, 27 25 octets

"*BANG!*"6J"*click*"nW,X.

Pas de lien en ligne car il n'y a aucun moyen de faire une invite avec une entrée canalisée. Le programme peut être CTRL-C'D à tout moment de poulet fin.

Explication:

"*BANG!*"6J"*click*"nW,X.
"*BANG!*"                  push "*BANG!*"
         6J                push a random integer in [0,6) (n)
           "*click*"n      push "*click*" n times
                     W     while loop (implicitly closed at EOF):
                      ,X.    get input and discard, pop and print top of stack

PHP, 52 octets

*<?=$n=&rand(0,6-$argi)?click:"BANG!*";$n||@\n?>*

Nécessite l' -Foption de ligne de commande, comptée comme trois. La gâchette est tirée en appuyant sur Enter.

Parce que -Fcourt littéralement le script à nouveau pour chaque entrée (enfant , je vous pas), dieet autres ne se terminera pas en fait, donc nous sortir par erreur d'exécution supprimée à la place, @\n.

Exemple d'utilisation

$ php -F primo-roulette.php

*click*
*click*
*BANG!*
$

Perl 5, 43 octets

Courez avec perl -p. Variante de balle stable - c'est-à-dire que la position de la balle n'est décidée qu'une seule fois au tout début.

$i//=0|rand 6;$_=$i--?'*click*':die'*BANG*'

C, 110 74 72 octets

Merci à Dennis de se débarrasser des inclusions et de beaucoup moins d'octets.

main(r){for(r=time(0)%6;getchar(),r--;)puts("*click*");puts("*BANG!*");}

main(r)
{
    for(r=time(0)%6;getchar(),r--;)
        puts("*click*");
    puts("*BANG!*");
}

Candy , 36 octets

Environ la moitié du programme est le texte à imprimer :(

:6H_(=b"*click*"(;):=)"*BANG!*\n"(;)

forme longue:

getc
digit6 rand range0  # build a range from 0 .. rand#
while
  popA              # these are the *click* instances  
  stack2
  "*click*"
  while
    printChr
  endwhile
  getc
  popA
endwhile
"*BANG!*\n"         # out of luck
while
  printChr
endwhile

Python 3, 95 octets

Aussi ma première tentative de golf, également en Python 3. Je jure que Bruce et moi ne sommes pas la même personne.

from random import*
for a in range(randint(0,5)):input();print("*click*")
input();print("*bang*")

Ungolfed:

from random import*
for a in range(randint(0,5)):
    input()
    print("*click*")
input()
print("*bang*")

Générez un nombre aléatoire entre 0 et 5 inclus, imprimez le clic autant de fois, puis imprimez le bang . Appuyez sur entrée / retour pour tirer sur la gâchette.

PlatyPar , 26 25 octets

6#?;wT"*click*"O;"*BANG!*

Explication:

6#?;                        ## random integer [0,6)
    w           ;           ## while stack.last
     T                      ## stack.last--
      "*click*"O            ## alert "*click*"
                 "*BANG!*   ## alert "*BANG!*"

Essayez-le en ligne !

Emacs Lisp, 94 89 octets

(set'b(%(random)6))(dotimes(a(+ b 1))(read-string"")(message(if(eq a b)"BANG""*click*")))

Ungolfed:

(set 'b (% (random) 6))
(dotimes (a (+ b 1))
  (read-string"")
  (message (if (eq a b) "BANG" "*click*")))

R, 86 80 77 octets

Comme d'habitude, R a des fonctionnalités impressionnantes pour coder le golf mais des noms de fonction looooooong.

sapply(sample(0:5),function(n){!n&&{cat('*BANG!*');q()};readline('*click*')})

Python 2, 108 104 102 100 98 bytes

Ma première tentative de golf:

from random import*
a=[1]+[0]*5
shuffle(a)
for i in a:input();print("*click*","*BANG!*")[i];" "[i]

Je devrais peut-être ajouter que le programme ne se termine pas correctement lorsque vous perdez, il lève juste une exception (ce qui entraîne la résiliation):

Traceback (most recent call last):
  File "russian_roulette.py", line 4, in <module>
    for i in a:input();print("*click*","*BANG!*")[i];" "[i]
IndexError: string index out of range

Perl 5, 40 octets

<>,print"*$_*"for(click)x rand 5,'BANG!'

Exécuter sans options de ligne de commande, le déclencheur est tiré en appuyant sur Enter.

Python, 81 octets

import time
for i in["*click*"]*(int(time.time())%6)+["*BANG!*"]:input();print(i)

inspiré des solutions Ruby (51) et Python

Lisp commun, 109

(do(g(b(nthcdr(random 6)#1='(t()()()()() . #1#))))(g)(read-char)(princ(if(setf g(pop b))"*BANG!*""*click*")))

Pas très compétitif, mais j'aime les listes circulaires:

(do (;; auxiliary variable x
     x
     ;; initialize infinite barrel, rotate randomly
     (b (nthcdr (random 6) #1='(t()()()()() . #1#))))

    ;; we end the loop when x is T (a bullet is fired)
    (x)

  ;; press enter to shoot
  (read-char)

  ;; pop from b, which makes b advance down the list. The popped value
  ;; goes into x and is used to select the appropriate string for
  ;; printing.
  (princ
   (if (setf x(pop b))
       "*BANG!*"
       "*click*")))

Perl 5, 43 octets

42 octets + -poption de ligne de commande. Appuyez simplement enterpour déclencher.

$_=0|rand 7-$.<++$i?die"*BANG!*":"*click*"

Merci à Dom Hastings pour son aide! La réponse d'origine était 67 octets:

$i++;$a=$i>=int(rand(6));print$_=$a?'*BANG!*':'*click*';last if($a)

MATL , 41 octets

6Yr`j?t@=?'*BANG!*'DT.}'*click*'DT]}T.]]x

Pour tirer sur le déclencheur, saisissez une chaîne non vide (telle que 'try').

Pour terminer, entrez une chaîne vide

Exemples

Dans ce cas, la gâchette a été actionnée une fois et ... pas de chance:

>> matl
 > 6Yr`j?t@=?'*BANG!*'DT.}'*click*'DT]}T.]]x
 > 
> try
*BANG!*

Dans ce cas, l'utilisateur s'est arrêté (notez la dernière entrée vide) après deux tirages chanceux:

>> matl
 > 6Yr`j?t@=?'*BANG!*'DT.}'*click*'DT]}T.]]x
 > 
> try
*click*
> try
*click*
> 

Explication

6Yr                  % random avlue from 1 to 6    
`                    % do...while  
  j                  % input string
  ?                  % if nonempty
    t                % duplicate the orignal random value
    @                % loop iteration index  
    =                % are the equal?
    ?                % if so             
      '*BANG!*'D     % display string
      T.             % unconditional break                                     
    }                % else
      '*click*'D     % display string
      T              % true value, to go on with do...while loop
    ]                % end if               
  }                  % else                                                    
    T.               % unconditional break
  ]                  % end                                                     
]                    % end                                                     
x                    % delete original random value

Perl 6 ,  58    53 octets

for ^6 .pick(*) {get;say <*BANG!* *click*>[?$_];!$_&&last} # 58 bytes

$ perl6 -pe '$///=^6 .pick;$_=$/--??"*click*"!!say("BANG!")&&last' # 52+1= 53 bytes

Appuyez sur Entrée pour tirer sur la gâchette, ou sur Ctrl + C pour la poser.

Python 2, 88 84 octets

Cette solution est inspirée des solutions python 3 déjà données. J'ai choisi python 2 pour supprimer la parenthèse d'impression même si cela change le comportement de input ().

import time
for i in[0]*int(time.time()%6)+[1]:input();print("*click*","*BANG!*")[i]

• J'utilise le modulo du temps comme une fonction aléatoire (assez bon pour la roulette russe)
• l'entrée du lecteur doit être "i" puis Enter (sinon input () générera une erreur), cette astuce repose sur le fait que l'entrée peut être "n'importe quoi".

Rubis, 45 + 1 = 46

Pas aussi intelligent que le côté D mais légèrement plus court.

Avec l'indicateur de ligne de commande p, exécutez

rand(7-$.)<1?(puts'*BANG*';exit):$_='*click*'

L'utilisateur peut appuyer sur la gâchette avec retour et repartir avec control-c. pentraîne l'exécution du programme en boucle, la lecture des lignes depuis STDIN et la sortie $_. Chaque fois qu'il s'exécute, il s'incrémente $.. Ainsi, lors de la première exécution, il choisit un entier positif aléatoire inférieur à 6, puis 5, puis 4, etc. Sur le premier 0, nous sortons manuellement et quittons, jusque-là nous sortons implicitement.

(et maintenant je remarque qu'il y a déjà un Perl très similaire. Oh bien.)

Perl 5, 69 51 49 octets

map{<>;print"*click*"}1..rand 6;<>;print"*BANG!*"

Il y a probablement un peu plus de potentiel pour le golf, je vais y réfléchir.

Changements:

• 8 octets enregistrés en supprimant $lcertains points-virgules et 10 octets en passant <STDIN>à<>
• Enregistré 2 octets grâce à Oleg V. Volkov

VBA, 126 octets

Version Golf pour octets minimaux

Sub S()
r=Int(5*Rnd())
e:
a=MsgBox("")
If a=1 Then: If i=r Then MsgBox "*BANG!*" Else: MsgBox "*click*": i=i+1: GoTo e
End Sub

Version amusante qui rend les boutons plus clairs pour une meilleure acceptation des utilisateurs.

Sub RR()
r = Int(5 * Rnd())
e:
a = MsgBox("Are you Feeling Lucky?", 4)
If a=6 Then: If i=r Then MsgBox "*BANG!*", 16 Else: MsgBox "*click*", 48: i=i+1: GoTo e
End Sub

Du plaisir avec les formulaires personnalisés et vous pourriez faire un joli jeu Slick en VBA.

APL, 39/65 octets

{⍞⊢↑⍵:⍞←'*BANG*'⋄∇1↓⍵⊣⍞←'*click*'}6=6?6

Réponse assez simple.

C, 180 octets

#include<stdio.h>
#include<stdlib.h>
#include<time.h>
int main(){srand(time(NULL));int r,i=6;while(i!=1){getchar();r=rand()%i;if(r){puts("CLICK");}else{puts("BANG");exit(0);}i--;}}

Ma première tentative de golf de code, il y a probablement beaucoup de place pour l'amélioration :)

Julia, 71 octets

b=rand(1:6);while b>0 readline();print(b>1?"*click*":"*BANG!*");b-=1end

Appuyez sur Enterpour tirer ou sur Ctrl+ Cpour quitter. Ce dernier se termine par unInterruptException .

Ungolfed:

# Set an initial bullet location
b = rand(1:6)

while b > 0
    # Read user input
    readline()

    # Check the location
    if b > 1
        print("*click*")
    else
        print("*BANG!*")
    end

    b -= 1
end

Lua, 73 octets

q=io.read q()for i=2,math.random(6)do print"*click*"q()end print"*BANG!*"