Давайте играть в русскую рулетку!

Обычно это будет гонка за написание самой короткой программы MOD 6, но это не очень реалистично, так как вероятность выигрыша уменьшается с каждым кликом. Вот правила:

1. Эмулируйте настоящий шестизарядник :
   • Одна пуля помещается в одну из шести камер, и ствол вращается один раз, только перед игрой.
   • Шанс проиграть с n- й попытки составляет 1/6.
   • Вероятность проигрыша после n попыток равна 1 / (6-n)
   • Вы гарантированно проиграете максимум за 6 попыток.
2. Потеря:
   • Показать текст *BANG!*
   • Завершить программу.
3. Выигрыш:
   • «Победа» означает, что пистолет не стреляет, но пуля на одну камеру ближе к молотку.
   • Показать текст *click*
   • Предоставьте пользователю «триггер» вместе с возможностью завершить программу (например, «ctrl + c», см. Ниже).
4. Специфическая программа:
   • Нажатие на триггер - это некоторая форма пользовательского ввода, включая первую попытку. (Это может быть нажатие клавиши, щелчок мыши, что угодно; текстовые подсказки не требуются.)
   • Только один экземпляр программы разрешен, пока он не будет завершен. (Запуск нового экземпляра программы сродни хорошему вращению ствола, то есть вероятность проигрыша при следующем щелчке сбрасывается до 1/6.)

Самый короткий код выигрывает!

Leaderboard

<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 байта

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

Действительно просто. Случайное число итераций 0 - 5 отображает щелчок и запрашивает строку ввода, за которой следует удар в конце.

Рубин, 51 байт

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

или

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

Разгул оставлен для читателей. Не так сложно

• Опять же, слава Мартину, на этот раз для подвоха $><<в качестве putsзамены.
• Не выводит символы новой строки, но это не требуется.
• Чем короче, тем проще. Суть требуемого поведения заключается в том, чтобы сделать 0-5 кликов, а затем выстрелить. Для этого выходы накапливаются внутри массива.
• Еще 2 байта можно сбрить, если с выводами вроде "*click*"все в порядке (то, что требуется, напечатано в конце), заменив $><<на p . Я не был уверен, будет ли это все еще следовать правилам.

68 64 байта

(другой подход)

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

• Слава Мартину Бюттнеру за -4 лишних байта.

Я не особо задумывался над алгоритмом (он может быть еще более компактным, но не очень понятным), но мне действительно нравится модель внутри него:

• Массив эмулирует бочку с элементами, являющимися содержимым камер. Поскольку только один элемент является пулей, вращение и перетасовывание эквивалентны.
• 0это пуля Других номеров нет.
• findнаходит первое возвращаемое значение, для которого блок не является falseни nil.
• ||-выражение неявно возвращается из блока. Это короткое замыкание: оно возвращает свой первый операнд (если это не nilили false) или второй (иначе). Таким образом, он либо возвращает true(если x<1или, четче, но длиннее x == 0), либо возвращает значение puts, в то время как ...
• putsвсегда возвращается nil. Ага.
• getsзапрашивает ввод. EnterДостаточно просто ударить .
• Ctrl+ Cзавершает программу

JavaScript, 64 байта

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

объяснение

Чтобы нажать на триггер, введите любой текст в подсказку. Ничего не вводите или нажмите «Отмена», чтобы прекратить.

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
  )

Луа, 82 75 байт

Довольно долго, но в Луа много подробностей.

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

LabVIEW, 46 примитивов LabVIEW

Создает массив из 0 и 1, имеет цикл для ожидания щелчков и выводит строку. Первоначально написано BANG, потому что я забыл сбросить индикатор перед его запуском.

Также обратите внимание, что это GIF-файл, если он не воспроизводится / загружается для вас, пожалуйста, откройте страницу.

Pyth, 31 30 28 байт

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

Почти наверняка можно улучшить. Введите любое число, чтобы нажать триггер, пустой ввод, чтобы завершить досрочно (с ошибкой).

Объяснение:

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

Серьезно, 27 25 байт

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

Нет онлайн-ссылки, потому что нет способа сделать подсказку с вводом по каналу. Программа может быть CTRL-C'd в любой момент курица из прекратить.

Объяснение:

"*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 байта

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

Требуется -Fопция командной строки, считается три. Спусковой крючок нажимается нажатием Enter.

Потому что -Fбуквально запускает скрипт снова для каждого входа (я не шучу), dieи тому подобное на самом деле не прекращается, поэтому мы выходим через подавленной ошибки во время выполнения вместо @\n.

Образец использования

$ php -F primo-roulette.php

*click*
*click*
*BANG!*
$

Perl 5, 43 байта

Беги с perl -p. Стабильный вариант пули - то есть позиция пули определяется только один раз в самом начале.

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

C 110 74 72 байта

Спасибо Деннису за избавление от включений и намного меньше байтов.

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 байтов

Около половины программы составляет текст для распечатки :(

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

длинная форма:

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 байт

Также моя первая попытка игры в гольф, также в Python 3. Клянусь, Брюс и я не тот человек.

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

Создайте случайное число от 0 до 5 включительно, напечатайте щелчок столько раз, затем напечатайте удар . Нажмите ввод / возврат, чтобы нажать на курок.

PlatyPar , 26 25 байт

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

Объяснение:

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

Попробуйте онлайн !

Emacs Lisp, 94 89 байт

(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 байт

Как обычно, R обладает удивительными возможностями для написания кода для игры в гольф, но не имеет названий функций.

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

Python 2, 108 104 102 100 98 байт

Моя первая попытка игры в гольф:

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

Может быть, я должен добавить, что программа не завершается правильно, когда вы проигрываете, она просто генерирует исключение (что приводит к завершению):

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 байт

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

Запустите без параметров командной строки, триггер нажата нажатием Enter.

Python, 81 байт

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

вдохновлен решениями Ruby (51) и Python

Common Lisp, 109

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

Не очень конкурентоспособный, но мне нравятся круглые списки:

(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 байта

42 байта + -pопция командной строки. Просто нажмите, enterчтобы вызвать.

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

Спасибо Дому Гастингсу за помощь! Оригинальный ответ был 67 байтов:

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

MATL , 41 байт

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

Чтобы нажать на триггер, введите непустую строку (например, 'try').

Для завершения введите пустую строку

Примеры

В этом случае спусковой крючок был нажат один раз и ... невезение

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

В этом случае пользователь остановился (обратите внимание на последний пустой ввод) после двух удачных попыток:

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

объяснение

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 байта

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

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

Нажмите ввод, чтобы нажать на курок, или Ctrl + C, чтобы нажать его.

Python 2, 88 84 байта

Это решение вдохновлено уже предоставленными решениями Python 3. Я выбрал python 2 для удаления круглых скобок при печати, хотя это меняет поведение input ().

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

• Я использую модуль времени как случайную функцию (достаточно для русской рулетки)
• вход игрока должен быть «i», а затем «Enter» (иначе input () выдаст ошибку), этот прием основан на том факте, что ввод может быть «любым».

Рубин, 45 + 1 = 46

Не такой умный, как у D-стороны , но немного короче.

С флагом командной строки pзапустите

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

Пользователь может нажать на курок с возвратом и выйти с помощью control-c. pзаставляет программу работать в цикле, читая строки из STDIN и выводя $_. Каждый раз, когда он работает, он увеличивается $.. Поэтому при первом запуске выбирается случайное положительное целое число меньше 6, затем 5, затем 4 и так далее. На первом 0 мы выводим вручную и выходим, пока не выведем неявно.

(и теперь я замечаю, что уже есть очень похожий Perl. Ну, хорошо.)

Perl 5, 69 51 49 байт

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

Вероятно, есть еще несколько возможностей для игры в гольф, я посмотрю на это.

Изменения:

• Сохранено 8 байтов путем удаления $lи некоторых точек с запятой, и 10 байтов при изменении <STDIN>на<>
• Сохранено 2 байта благодаря Олегу Волкову

VBA, 126 байт

Гольф-версия для минимальных байтов

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

Веселая версия, которая делает кнопки более четкими для повышения восприятия пользователем.

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

Немного веселья с пользовательскими формами, и вы можете сделать красивую игру в VBA.

APL, 39/65 байт

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

Довольно простой ответ.

C, 180 байт

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

Моя первая попытка кода гольф, вероятно, есть много возможностей для улучшения :)

Юлия, 71 байт

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

Нажмите, Enterчтобы стрелять или Ctrl+C чтобы выйти. Последний заканчивается на 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

Луа, 73 байта

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