러시안 룰렛을하자!

일반적으로 이것은 가장 짧은 MOD 6 프로그램을 작성하는 경쟁이지만, 클릭 할 때마다 이길 확률이 줄어들 기 때문에 그리 현실적이지는 않습니다. 규칙은 다음과 같습니다.

1. 실제 6 명 사수를 에뮬레이션하십시오 .
   • 하나의 총알이 6 개의 방 중 하나에 놓이고 배럴은 한 번만 재생됩니다.
   • n 번째 시도 에서 패배 할 확률 은 1/6입니다.
   • n 번 시도 후 잃을 확률 은 1 / (6-n)
   • 최대 6 번의 시도를 잃게됩니다.
2. 지는:
   • 텍스트를 표시 *BANG!*
   • 프로그램을 종료하십시오.
3. 승리:
   • "승리"는 총이 발사되지 않는다는 것을 의미하지만, 총알은 해머에 가까운 한 방입니다.
   • 텍스트를 표시 *click*
   • 프로그램 종료 기능과 함께 "트리거"를 사용자에게 제시하십시오 (예 : "ctrl + c", 아래 참조).
4. 프로그램 별 :
   • 트리거를 당기는 것은 첫 번째 시도를 포함하여 어떤 형태의 사용자 입력입니다. (키 입력, 마우스 클릭 등 텍스트 프롬프트가 필요하지 않음)
   • 프로그램이 종료 될 때까지 하나의 프로그램 인스턴스 만 허용됩니다. (프로그램의 새 인스턴스를 실행하는 것은 배럴에 좋은 스핀을주는 것과 유사합니다. 즉, 다음 클릭에서 잃을 확률이 1/6으로 재설정됩니다.)

최단 코드 승리!

리더 보드

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

언 골프 드 :

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

Ungolfing은 독자들을 위해 떠났습니다. 그렇게 어렵지 않다

• 다시 말하지만, 이번에 $><<는 puts교체품 으로 속임수를 쓸 수있는 마틴에게 도움이됩니다 .
• 개행을 출력하지 않지만 필수는 아닙니다.
• 짧을수록 간단합니다. 필요한 동작의 요지는 0-5 회의 클릭을 수행 한 다음 실행하는 것입니다. 이를 위해 출력은 배열 내부에 누적됩니다.
• "*click*"로 교체 $><<하여 출력이 정상인 경우 (필요한 내용이 인쇄 됨) 2 바이트 를 더 줄일 수 있습니다 p . 이것이 여전히 규칙을 따를 지 확신하지 못했습니다.

68 64 바이트

(또 다른 접근법)

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

• 했네 마틴 있음 Büttner 에 대한 -4 추가 바이트.

나는 알고리즘에 대해 많은 생각을하지 않았지만 (아마도 더 작을 수도 있지만 명확하지는 않을 수도 있음), 그 안에 모델이 정말 좋습니다.

• 배열은 요소가 챔버의 내용 인 배럴을 에뮬레이션합니다. 하나의 요소 만 탄환이므로 회전하고 섞는 것은 같습니다.
• 0총알입니다. 다른 숫자는 그렇지 않습니다.
• find블록도가되는 제 반환 값을 찾아 false나를 nil.
• ||-표현식이 암시 적으로 반환됩니다. 단락입니다 : 첫 번째 피연산자 ( nil또는 아닌 경우 false) 또는 두 번째 피연산자 (그렇지 않은 경우)를 반환합니다. 따라서 true( x<1또는 더 명확하지만 더 긴 경우 x == 0) 또는의 반환 값을 반환 puts하지만 ...
• puts항상을 반환합니다 nil. 네.
• gets입력을 요청합니다. 타격 Enter만으로 충분합니다.
• Ctrl+ C프로그램을 종료

자바 스크립트, 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 becuase i를 시작하기 전에 표시기를 재설정하는 것을 잊었다 고 말합니다.

또한 이것은 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?>*

-F3으로 계산 된 명령 행 옵션이 필요합니다 . 를 누르면 트리거가 당겨집니다 Enter.

-F문자 그대로 모든 입력에 대해 스크립트를 다시 실행 하기 때문에 (나는 당신이 아닙니다) die실제로는 종료되지 않으므로 대신 런타임 오류 억제를 통해 종료합니다.@\n .

샘플 사용법

$ php -F primo-roulette.php

*click*
*click*
*BANG!*
$

펄 5, 43 바이트

로 실행하십시오 perl -p. 안정적인 총알 변형-즉 총알 위치는 처음에 한 번만 결정됩니다.

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

C, 110 74 72 바이트

포함을 없애고 바이트를 줄인 Dennis에게 감사합니다.

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

사탕 , 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

파이썬 3, 95 바이트

또한 첫 번째 골프 시도, Python 3에서도. Bruce를 맹세하고 나는 같은 사람이 아닙니다.

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

언 골프 드 :

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

0에서 5 사이의 난수를 생성하고 여러 번 클릭 하여 인쇄 한 다음 bang 을 인쇄하십시오 . Enter / Return을 눌러 트리거를 당깁니다.

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

온라인으로 사용해보십시오 !

이맥스 리스프, 94 89 바이트

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

언 골프 드 :

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

R, 86 80 77 바이트

평소처럼 R에는 골프를 코딩하는 기능이 있지만 기능 이름은 looooooong입니다.

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

파이썬 (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

펄 5, 40 바이트

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

명령 행 옵션없이 실행하면을 눌러 트리거를 가져옵니다 Enter.

파이썬, 81 바이트

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

Ruby (51) 및 Python 솔루션에서 영감을 얻음

커먼 리스프, 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*")))

펄 5, 43 바이트

42 바이트 + -p명령 행 옵션. 누르면 enter트리거됩니다.

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

그의 도움을 주신 Dom Hastings에게 감사드립니다! 원래 답변은 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

펄 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

Enter 키를 눌러 트리거를 당기거나 ctrl + c를 눌러 내려 놓습니다.

파이썬 2, 88 84 바이트

이 솔루션은 이미 제공된 Python 3 솔루션에서 영감을 얻었습니다. input ()의 동작이 바뀌더라도 인쇄 괄호를 제거하기 위해 python 2를 선택했습니다.

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

• 나는 시간의 모듈로를 임의의 함수로 사용하고 있습니다 (러시아 룰렛에 충분합니다)
• 플레이어 입력은 "i"여야하고 Enter (그렇지 않으면 input ()은 오류를 발생시킵니다) 여야합니다.이 방법은 입력이 "무엇이든"될 수 있다는 사실에 의존합니다.

루비, 45 + 1 = 46

D면 만큼 영리하지는 않습니다.'s but slightly shorter.

명령 행 플래그 p로 다음을 실행하십시오.

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

사용자는 트리거를 리턴으로 당기고 control-c를 그대로 둘 수 있습니다. p프로그램이 루프에서 실행되어 STDIN에서 행을 읽고 출력 $_합니다. 실행될 때마다 증가합니다$.. So on the first run, it chooses a random positive integer less than 6, then 5, then 4, and so on. On the first 0, we output manually and exit, until then we output implicitly.

(이제 이미 비슷한 Perl이 있다는 것을 알았습니다.

Perl 5, 69 51 49 bytes

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

There is probably some more golfing potential, I will look into this.

Changes:

• Saved 8 bytes by removing $l and some semicolons, and 10 bytes by changing <STDIN> to <>
• Saved 2 bytes thanks to Oleg V. Volkov

VBA, 126 bytes

Golf Version for Minimal 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

Fun Version that Makes The Buttons more Clear for Increased User Acceptance.

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

Some Fun with Custom Forms and You could make a pretty Slick Game in VBA.

APL, 39/65 bytes

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

Pretty straightforward answer.

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

My first attempt at code golf, there's probably a lot of room for improvement :)

Julia, 71 bytes

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

Press Enter to fire or Ctrl+C to quit. The latter ends with an 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!*"