Lass uns russisches Roulette spielen!

Normalerweise wäre dies ein Rennen, um das kürzeste MOD 6-Programm zu schreiben, aber das ist nicht sehr realistisch, da die Gewinnchance mit jedem Klick abnimmt. Hier sind die Regeln:

1. Emulieren Sie einen echten Sechser :
   • Eine einzelne Kugel wird in eine der sechs Kammern gegeben, und der Lauf wird nur einmal gedreht, bevor gespielt wird.
   • Die Chance, beim n- ten Versuch zu verlieren , ist 1/6.
   • Die Chance nach n Versuchen zu verlieren ist 1 / (6-n)
   • Sie werden garantiert in höchstens 6 Versuchen verlieren.
2. Verlieren:
   • Zeigen Sie den Text an *BANG!*
   • Beenden Sie das Programm.
3. Gewinnen:
   • "Gewinnen" bedeutet, dass die Waffe nicht feuert, aber die Kugel ist eine Kammer näher am Hammer.
   • Zeigen Sie den Text an *click*
   • Präsentieren Sie dem Benutzer einen "Trigger" sowie die Möglichkeit, das Programm zu beenden (z. B. "Strg + C", siehe unten).
4. Programmspezifisch:
   • Das Drücken des Auslösers ist eine Form der Benutzereingabe, einschließlich des ersten Versuchs. (Dies kann ein Tastendruck sein, ein Mausklick, was auch immer; Eingabeaufforderungen sind nicht erforderlich.)
   • Nur eine Instanz des Programms ist zulässig, bis es beendet wird. (Das Ausführen einer neuen Instanz des Programms entspricht einer guten Drehung des Laufs, dh die Wahrscheinlichkeit, beim nächsten Klick zu verlieren, wird auf 1/6 zurückgesetzt.)

Kürzester Code gewinnt!

Bestenliste

<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 Bytes

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

Ganz einfach. Eine zufällige Anzahl von Iterationen von 0 bis 5 zeigt einen Klick an und fordert eine Eingabezeile an, gefolgt von einem Knall am Ende.

Ruby, 51 Bytes

[*['*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.

oder

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

Ungolfing ging für die Leser. Gar nicht so schwer

• Nochmals ein großes Lob an Martin, diesmal für einen Trick mit $><<als putsErsatz.
• Gibt keine Zeilenumbrüche aus, aber das war nicht erforderlich.
• Je kürzer, desto einfacher. Der Kern des erforderlichen Verhaltens besteht darin, 0-5 Klicks auszuführen und dann zu feuern. Zu diesem Zweck werden die Ausgänge innerhalb des Arrays angesammelt.
• 2 weitere Bytes kann abgeschabt werden , wenn Ausgänge mag in "*click*"Ordnung sind (was erforderlich ist , ist am Ende gedruckt), durch Ersatz $><<mit p . Ich war mir nicht sicher, ob dies den Regeln entsprechen würde.

68 64 Bytes

(Ein anderer Ansatz)

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

• Ein großes Lob an Martin Büttner für -4 zusätzliche Bytes.

Ich habe nicht viel über den Algorithmus nachgedacht (er kann möglicherweise noch kompakter sein, aber nicht so klar), aber das Modell darin gefällt mir wirklich gut:

• Ein Array emuliert ein Fass, dessen Elemente der Inhalt der Kammern sind. Da nur ein Element eine Kugel ist, ist es äquivalent, sie zu drehen und zu mischen.
• 0ist eine Kugel. Andere Nummern sind es nicht.
• findfindet einen ersten Rückgabewert, für den der Block weder falsenoch ist nil.
• ||-Ausdruck wird implizit aus dem Block zurückgegeben. Es ist ein Kurzschluss: Es gibt seinen ersten Operanden zurück (es sei denn, es ist niloder false) oder einen zweiten (ansonsten). Also gibt es entweder true(wenn x<1oder, klarer aber länger x == 0) oder den Rückgabewert von puts, während ...
• putskehrt immer zurück nil. Ja.
• getsfordert Eingabe an. Es Enterreicht aus, nur zu schlagen .
• Ctrl+ Cbeendet das Programm

JavaScript, 64 Byte

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

Erläuterung

Um den Abzug zu betätigen, geben Sie einen beliebigen Text in die Eingabeaufforderung ein. Geben Sie nichts ein oder klicken Sie auf Abbrechen, um den Vorgang zu beenden.

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 Bytes

Ziemlich lang, aber in lua steckt viel Verbose.

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

LabVIEW, 46 LabVIEW-Grundelemente

Erstellt ein Array aus 0 und 1, wartet in einer Schleife auf Klicks und gibt den String aus. Es sagt zunächst BANG, weil ich vergessen habe, den Indikator vor dem Starten zurückzusetzen.

Beachten Sie auch, dass dies ein GIF ist. Wenn es nicht für Sie abgespielt / geladen wird, öffnen Sie die Seite erneut.

Pyth, 31 30 28 Bytes

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

Mit ziemlicher Sicherheit kann verbessert werden. Geben Sie eine beliebige Zahl ein, um den Auslöser zu betätigen, und eine leere Zahl, um den Vorgang vorzeitig zu beenden (mit einem Fehler).

Erläuterung:

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

Im Ernst, 27 25 Bytes

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

Keine Online-Verknüpfung, da keine Eingabeaufforderung mit Pipe-Eingaben möglich ist. Das Programm kann CTRL-C'D zu jederzeit sein kneifen beenden.

Erläuterung:

"*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 Bytes

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

Erfordert die -FBefehlszeilenoption, die als drei gezählt wird. Der Abzug wird durch Drücken von betätigt Enter.

Da -Fdas Skript buchstäblich für jede Eingabe erneut ausgeführt wird (ich verstehe Sie nicht) dieund dergleichen nicht tatsächlich beendet wird, beenden wir es stattdessen über einen unterdrückten Laufzeitfehler @\n.

Beispielnutzung

$ php -F primo-roulette.php

*click*
*click*
*BANG!*
$

Perl 5, 43 Bytes

Laufen Sie mit perl -p. Stabile Geschossvariante - dh die Geschossposition wird nur einmal von Anfang an festgelegt.

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

C 110 74 72 Bytes

Vielen Dank an Dennis für das Entfernen der Includes und viel weniger Bytes.

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 Bytes

Ungefähr die Hälfte des Programms besteht aus dem auszudruckenden Text :(

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

lange Form:

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 Bytes

Auch mein erster Golfversuch, ebenfalls in Python 3. Ich schwöre Bruce und ich bin nicht die gleiche Person.

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*")

Generieren Sie eine Zufallszahl zwischen 0 und einschließlich 5, drucken Sie so oft klicken , und drucken Sie dann Knall . Drücken Sie die Eingabetaste, um den Abzug zu betätigen.

PlatyPar , 26 25 Bytes

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

Erläuterung:

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

Probieren Sie es online !

Emacs Lisp, 94 89 Bytes

(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 Bytes

Wie üblich, hat R fantastische Funktionen zum Codieren von Golfspielen, aber looooooong Funktionsnamen.

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

Python 2, 108 104 102 100 98 Bytes

Mein erster Golfversuch:

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

Vielleicht sollte ich hinzufügen, dass das Programm nicht korrekt beendet wird, wenn Sie verlieren, sondern nur eine Ausnahme auslöst (was zur Beendigung führt):

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 Bytes

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

Ohne Befehlszeilenoptionen ausführen, wird der Auslöser durch Drücken von gedrückt Enter.

Python, 81 Bytes

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

inspiriert von den Ruby (51) - und Python-Lösungen

Common Lisp, 109

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

Nicht sehr wettbewerbsfähig, aber ich mag Zirkellisten:

(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 Bytes

42 Bytes + -pBefehlszeilenoption. enterZum Auslösen einfach drücken .

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

Vielen Dank an Dom Hastings für seine Hilfe! Die ursprüngliche Antwort war 67 Bytes:

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

MATL , 41 Bytes

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

Um den Auslöser zu betätigen, geben Sie eine nicht leere Zeichenfolge ein (z. B. 'try' ) .

Geben Sie zum Beenden eine leere Zeichenfolge ein

Beispiele

In diesem Fall wurde der Abzug einmal gedrückt und ... Pech gehabt:

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

In diesem Fall stoppte der Benutzer nach zwei glücklichen Zügen (notiere die letzte leere Eingabe):

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

Erläuterung

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 Bytes

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

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

Drücken Sie die Eingabetaste, um den Abzug zu betätigen, oder Strg + C, um den Abzug zu betätigen.

Python 2, 88 84 Bytes

Diese Lösung ist von den bereits gegebenen Python 3-Lösungen inspiriert. Ich habe Python 2 gewählt, um die Druckerklammer zu entfernen, obwohl dies das Verhalten von input () verändert.

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

• Ich benutze Modulo der Zeit als Zufallsfunktion (gut genug für russisches Roulette)
• Die Spielereingabe sollte "i" und dann "Enter" sein (andernfalls wird durch input () ein Fehler ausgelöst). Dieser Trick beruht auf der Tatsache, dass die Eingabe "was auch immer" sein kann.

Rubin, 45 + 1 = 46

Nicht so schlau wie die D-Seite , aber etwas kürzer.

pFühren Sie mit dem Befehlszeilenflag aus

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

Der Benutzer kann mit Return den Abzug betätigen und mit Control-C gehen. pBewirkt, dass das Programm in einer Schleife abläuft, Zeilen aus STDIN liest und ausgibt $_. Jedes Mal, wenn es ausgeführt wird, wird es inkrementiert$. . Im ersten Durchgang wird also eine zufällige positive Ganzzahl kleiner als 6, dann 5, dann 4 usw. ausgewählt. Bei der ersten 0 geben wir manuell aus und beenden, bis dahin geben wir implizit aus.

(Und jetzt bemerke ich, dass es bereits ein sehr ähnliches Perl gibt. Na ja.)

Perl 5, 69 51 49 Bytes

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

Es gibt wahrscheinlich mehr Golfpotential, ich werde das untersuchen.

Änderungen:

• 8 Bytes durch Entfernen $lund einige Semikolons und 10 Bytes durch Ändern <STDIN>in gespeichert<>
• 2 Bytes dank Oleg V. Volkov gespeichert

VBA, 126 Bytes

Golfversion für minimale Bytes

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

Unterhaltsame Version, die die Schaltflächen klarer macht und die Akzeptanz der Benutzer erhöht.

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

Ein bisschen Spaß mit benutzerdefinierten Formularen und Sie könnten ein hübsches Slick-Spiel in VBA erstellen.

APL, 39/65 Bytes

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

Ziemlich einfache Antwort.

C 180 Bytes

#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--;}}

Mein erster Versuch beim Codegolf, es gibt wahrscheinlich viel Raum für Verbesserungen :)

Julia, 71 Bytes

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

Drücken Sie Enterzum Auslösen oder Ctrl+ Czum Beenden. Letzteres endet mit einem InterruptException.

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 Bytes

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