Zagrajmy w rosyjską ruletkę!

Zwykle byłby to wyścig, aby napisać najkrótszy program MOD 6, ale nie jest to zbyt realistyczne, ponieważ szansa na wygraną maleje z każdym kliknięciem. Oto zasady:

1. Emuluj prawdziwego sześciostrzałowca :
   • Pojedyncza kula jest umieszczana w jednej z sześciu komór, a lufa jest obracana raz, tylko przed rozpoczęciem gry.
   • Prawdopodobieństwo utraty na n -tego spróbować jest 1/6.
   • Szansa na przegraną po n próbach wynosi 1 / (6-n)
   • Masz gwarancję, że przegrasz co najwyżej 6 prób.
2. Przegrywający:
   • Wyświetl tekst *BANG!*
   • Zakończ program.
3. Zwycięski:
   • „Wygrana” oznacza, że ​​broń nie strzela, ale kula znajduje się o jedną komorę bliżej młota.
   • Wyświetl tekst *click*
   • Przedstaw „wyzwalacz” użytkownikowi wraz z możliwością zakończenia programu (np. „Ctrl + c”, patrz poniżej).
4. Program specyficzny:
   • Pociągnięcie za spust jest formą wprowadzania danych przez użytkownika, w tym pierwszą próbą. (Może to być naciśnięcie klawisza, kliknięcie myszą, cokolwiek; monity tekstowe nie są wymagane).
   • Tylko jedna instancja programu jest dozwolona, ​​dopóki nie zostanie zakończona. (Uruchomienie nowej instancji programu przypomina dobre obracanie lufy, tzn. Prawdopodobieństwo utraty następnego kliknięcia jest resetowane do 1/6.)

Najkrótszy kod wygrywa!

Tabela liderów

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

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

Naprawdę proste. Losowa liczba iteracji 0–5 wyświetla kliknięcie i żądanie linii wprowadzania, a następnie huk na końcu.

Rubinowy, 51 bajtów

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

Nie golfowany:

[
  *(                        # 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.

lub

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

Unngolfing zostawił czytelnikom. Nie takie trudne

• Ponownie, podziękowania dla Martina, tym razem za podstęp $><<w putszamian.
• Nie wyświetla nowych linii, ale nie było to wymagane.
• Im krótszy, tym prostszy. Istotą wymaganego zachowania jest zrobienie 0-5 kliknięć, a następnie wystrzelenie. W tym celu dane wyjściowe są gromadzone w tablicy.
• 2 kolejne bajty można zgolić, jeśli takie wyjścia "*click*"są w porządku (to, co jest wymagane, jest wydrukowane na końcu), zastępując $><<je p . Nie byłem pewien, czy nadal będzie to zgodne z zasadami.

68 64 bajtów

(inne podejście)

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

• Wyrazy uznania dla Martina Büttnera za -4 dodatkowe bajty.

Nie zastanawiałem się długo nad algorytmem (może być jeszcze bardziej zwarty, ale nie tak wyraźny), ale naprawdę podoba mi się model w nim:

• Tablica emuluje beczkę, której elementy są zawartością komór. Ponieważ tylko jeden element jest kulą, obracanie go i tasowanie jest równoważne.
• 0jest kulą. Inne liczby nie są.
• findznajduje pierwszą zwracaną wartość, dla której blok nie jest falseani nil.
• ||-wyrażenie jest domyślnie zwracane z bloku. Jest to zwarcie: zwraca pierwszy argument (o ile nie jest to nilani false) lub drugi (inaczej). Zwraca więc true(jeśli x<1lub, wyraźniej, ale dłużej x == 0) lub zwraca wartość puts, podczas gdy ...
• putszawsze wraca nil. Tak.
• getsżąda wprowadzenia danych. EnterWystarczy uderzenie .
• Ctrl+ Ckończy program

JavaScript, 64 bajty

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

Wyjaśnienie

Aby pociągnąć za spust, wpisz dowolny tekst w monicie. Wpisz nic lub kliknij przycisk Anuluj, aby zakończyć.

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 bajtów

Dość długo, ale w lua jest dużo gadatliwości.

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

LabVIEW, 46 LabVIEW Prymitywy

Tworzy tablicę zer i jeden 1, ma pętlę czekającą na kliknięcia i wyświetla ciąg znaków. Początkowo mówi BANG, ponieważ zapomniałem zresetować wskaźnik przed jego uruchomieniem.

Pamiętaj też, że jest to gif, jeśli jeśli nie można go odtworzyć / załadować, otwórz stronę ponownie.

Pyth, 31 30 28 bajtów

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

Niemal na pewno można go poprawić. Wprowadź dowolną liczbę, aby pociągnąć za spust, puste wejście, aby zakończyć wcześniej (z błędem).

Wyjaśnienie:

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

Poważnie, 27 25 bajtów

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

Brak linku online, ponieważ nie ma możliwości zrobienia monitu za pomocą wprowadzania potokowego. Program może być CTRL-C'd w każdej chwili do kurczaka z wypowiedzenia.

Wyjaśnienie:

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

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

Wymaga -Fopcji wiersza poleceń, liczonej jako trzy. Spust jest pociągany przez naciśnięcie Enter.

Ponieważ -Fdosłownie uruchamia skrypt ponownie dla każdego wejścia (nie żartuję), diei tym podobne nie zostaną zakończone, więc zamiast tego wychodzimy z powodu pomijanego błędu wykonania @\n.

Przykładowe użycie

$ php -F primo-roulette.php

*click*
*click*
*BANG!*
$

Perl 5, 43 bajtów

Uruchom z perl -p. Stabilny wariant pocisku - tj. Pozycja pocisku jest ustalana tylko raz na samym początku.

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

C, 110 74 72 bajty

Dzięki Dennisowi za pozbycie się dołączeń i znacznie mniej bajtów.

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!*");
}

Cukierki , 36 bajtów

Około połowa programu to tekst do wydrukowania :(

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

długa forma:

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 bajtów

Również moja pierwsza próba golfa, także w Pythonie 3. Przysięgam, że Bruce i nie jestem tą samą osobą.

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

Nie golfowany:

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

Wygenerować losową liczbę od 0 do 5 włącznie, wydrukować kliknij że wiele razy, a następnie wydrukować huk . Naciśnij enter / return, aby pociągnąć za spust.

PlatyPar , 26 25 bajtów

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

Wyjaśnienie:

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

Wypróbuj online !

Emacs Lisp, 94 89 bajtów

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

Nie golfowany:

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

R, 86 80 77 bajtów

Jak zwykle, R ma niesamowite funkcje do kodowania gry w golfa, ale nazwy funkcji looooooong.

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

Python 2, 108 104 102 100 98 bajtów

Moja pierwsza próba gry w golfa:

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

Może powinienem dodać, że program nie kończy się poprawnie, gdy przegrasz, po prostu zgłasza wyjątek (co powoduje zakończenie):

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 bajtów

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

Uruchom bez opcji wiersza poleceń, spust jest pociągany przez naciśnięcie Enter.

Python, 81 bajtów

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

zainspirowany rozwiązaniami Ruby (51) i Python

Common Lisp, 109

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

Niezbyt konkurencyjny, ale lubię okrągłe listy:

(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 bajtów

42 bajty + -popcja wiersza poleceń. Naciśnij, enteraby uruchomić.

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

Dzięki Dom Hastings za pomoc! Oryginalna odpowiedź miała 67 bajtów:

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

MATL , 41 bajtów

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

Aby pociągnąć za spust, wprowadź niepusty ciąg (np. 'try').

Aby zakończyć, wprowadź pusty ciąg

Przykłady

W tym przypadku spust został pociągnięty raz i ... pech:

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

W tym przypadku użytkownik zatrzymał się (zwróć uwagę na ostatnie puste wejście) po dwóch szczęśliwych pociągnięciach:

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

Wyjaśnienie

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 bajtów

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

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

Naciśnij enter, aby pociągnąć za spust, lub ctrl + c, aby go odłożyć.

Python 2, 88 84 bajtów

To rozwiązanie jest inspirowane już podanymi rozwiązaniami w języku Python 3. Wybrałem python 2, aby usunąć nawias drukowany, mimo że zmienia to zachowanie input ().

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

• Używam modulo czasu jako funkcji losowej (wystarczającej dla rosyjskiej ruletki)
• wejście odtwarzacza powinno być „i”, a następnie Enter (inaczej input () wyrzuci błąd), ta sztuczka polega na tym, że wejście może być „cokolwiek”.

Rubin, 45 + 1 = 46

Nie tak sprytny jak strona D, ale nieco krótszy.

Z flagą wiersza polecenia puruchom

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

Użytkownik może pociągnąć za spust z powrotem i wyjść z klawiszem Control-c. ppowoduje, że program działa w pętli, odczytuje wiersze ze STDIN i wyświetla $_. Za każdym razem, gdy działa, zwiększa się $.. Tak więc przy pierwszym uruchomieniu wybiera losową liczbę całkowitą dodatnią mniejszą niż 6, następnie 5, a następnie 4 itd. Przy pierwszym 0, wyprowadzamy dane ręcznie i kończymy, do tego czasu wyprowadzamy dane niejawnie.

(a teraz zauważam, że już istnieje bardzo podobny Perl. No cóż.)

Perl 5, 69 51 49 bajtów

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

Prawdopodobnie jest więcej możliwości gry w golfa, przyjrzę się temu.

Zmiany:

• Zaoszczędzono 8 bajtów, usuwając $li niektóre średniki, oraz 10 bajtów, zmieniając <STDIN>na<>
• Zaoszczędzono 2 bajty dzięki Olegowi V. Wołkowowi

VBA, 126 bajtów

Wersja golfowa dla minimalnej ilości bajtów

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

Zabawna wersja, która sprawia, że ​​przyciski stają się bardziej przejrzyste w celu zwiększenia akceptacji użytkownika.

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

Trochę zabawy z niestandardowymi formularzami i możesz zrobić fajną grę w VBA.

APL, 39/65 bajtów

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

Dość prosta odpowiedź.

C, 180 bajtów

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

Moja pierwsza próba gry w golfa kodowego, prawdopodobnie jest dużo miejsca na ulepszenia :)

Julia, 71 bajtów

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

Naciśnij, Enteraby zwolnić, lub Ctrl+, Caby wyjść. Ten ostatni kończy się na InterruptException.

Nie golfowany:

# 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 bajty

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