Hãy chơi Roulette Nga!

Thông thường, đây sẽ là một cuộc đua để viết chương trình MOD 6 ngắn nhất, nhưng điều đó không thực tế lắm, vì cơ hội chiến thắng giảm dần sau mỗi lần nhấp. Đây là các quy tắc:

1. Giả lập một game bắn súng sáu thực sự :
   • Một viên đạn được đặt vào một trong sáu khoang và nòng súng được quay một lần, chỉ trước khi chơi.
   • Cơ hội thua trong lần thử thứ n là 1/6.
   • Cơ hội thua sau n lần thử là 1 / (6-n)
   • Bạn được đảm bảo để thua, nhiều nhất là 6 lần thử.
2. Mất:
   • Hiển thị văn bản *BANG!*
   • Chấm dứt chương trình.
3. Chiến thắng:
   • "Chiến thắng" có nghĩa là súng không bắn, nhưng viên đạn là một khoang gần búa hơn.
   • Hiển thị văn bản *click*
   • Trình bày "trình kích hoạt" cho người dùng, cùng với khả năng chấm dứt chương trình (ví dụ: "ctrl + c", xem bên dưới).
4. Chương trình cụ thể:
   • Kéo cò là một số dạng đầu vào của người dùng, bao gồm cả lần thử đầu tiên. (Đây có thể là một tổ hợp phím, nhấp chuột, bất cứ điều gì; không cần phải nhắc văn bản.)
   • Chỉ một trường hợp của chương trình được cho phép cho đến khi nó bị chấm dứt. (Chạy một phiên bản mới của chương trình gần giống như giúp thùng quay tốt, tức là xác suất thua trong lần nhấp tiếp theo được đặt lại thành 1/6.)

Mã ngắn nhất sẽ thắng!

Bảng xếp hạng

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

Bình thường, 23 byte

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

Thực sự đơn giản. Một số lần lặp ngẫu nhiên 0 - 5 lần nhấp hiển thị và yêu cầu một dòng đầu vào, theo sau là một tiếng nổ ở cuối.

Ruby, 51 byte

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

Ung dung:

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

hoặc là

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

Ungolfing để lại cho độc giả. Không khó lắm

• Một lần nữa, thanh danh cho Martin, lần này cho một thủ thuật với $><<như một putssự thay thế.
• Không xuất ra dòng mới, nhưng điều đó là không bắt buộc.
• Càng ngắn, càng đơn giản. Ý chính của hành vi cần thiết là thực hiện 0-5 lần nhấp và sau đó kích hoạt. Cho rằng, đầu ra được tích lũy bên trong mảng.
• Có thể xóa thêm 2 byte nếu đầu ra như thế "*click*"là ổn (cuối cùng những gì được yêu cầu được in), bằng cách thay thế $><<bằng p . Tôi không chắc chắn nếu điều này vẫn tuân theo các quy tắc.

68 64 byte

(Cách tiếp cận khác)

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

• Kudos cho Martin Büttner cho -4 byte thêm.

Tôi đã không suy nghĩ nhiều về thuật toán (nó có thể thậm chí còn nhỏ gọn hơn, nhưng không rõ ràng lắm), nhưng tôi thực sự thích mô hình bên trong nó:

• Một mảng mô phỏng một cái thùng với các thành phần của nó là nội dung của các buồng. Vì chỉ có một yếu tố là một viên đạn, xoay nó và xáo trộn nó là tương đương.
• 0là một viên đạn. Những con số khác thì không.
• findtìm thấy một giá trị trả về đầu tiên mà khối này falsecũng không nil.
• ||-expression được ngầm trả lại từ khối. Đó là một mạch ngắn: nó trả về toán hạng đầu tiên của nó (trừ khi nó nilhoặc false) hoặc một thứ hai (nếu không). Vì vậy, nó trả về true(nếu x<1hoặc, rõ ràng hơn nhưng dài hơn x == 0) hoặc giá trị trả về của puts, trong khi ...
• putsluôn luôn trở về nil. Vâng.
• getsyêu cầu đầu vào. Chỉ đánh Enterđủ là đủ.
• Ctrl+ Cchấm dứt chương trình

JavaScript, 64 byte

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

Giải trình

Để kéo cò, nhập bất kỳ văn bản nào vào dấu nhắc. Nhập không có gì hoặc bấm hủy bỏ để chấm dứt.

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 byte

Khá dài, nhưng có nhiều dài dòng trong lua.

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

LabVIEW, 46 LabVIEW Nguyên thủy

Tạo một mảng 0 và 1, có một vòng lặp để chờ nhấp và xuất chuỗi. Nó ban đầu nói BANG becuase tôi quên đặt lại chỉ báo trước khi bắt đầu nó.

Cũng lưu ý rằng đây là gif, nếu không phát / tải cho bạn, vui lòng mở lại trang.

Pyth, 31 30 28 byte

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

Hầu như chắc chắn có thể được cải thiện. Nhập bất kỳ số nào để bóp cò, đầu vào trống để kết thúc sớm (có lỗi).

Giải trình:

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

Nghiêm túc, 27 25 byte

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

Không có liên kết trực tuyến vì không có cách nào để thực hiện một dấu nhắc với đầu vào đường ống. Chương trình này có thể được tổ hợp phím CTRL-C'd bất cứ lúc nào để gà ra chấm dứt.

Giải trình:

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

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

Yêu cầu -Ftùy chọn dòng lệnh, được tính là ba. Kích hoạt được kéo bằng cách nhấn Enter.

Bởi vì theo -Fnghĩa đen là chạy lại tập lệnh cho mọi đầu vào (Tôi không phải là bạn) dievà tương tự sẽ không thực sự chấm dứt, vì vậy chúng tôi thoát qua lỗi thời gian chạy bị chặn @\n.

Sử dụng mẫu

$ php -F primo-roulette.php

*click*
*click*
*BANG!*
$

Perl 5, 43 byte

Chạy với perl -p. Biến thể đạn ổn định - tức là vị trí đạn chỉ được quyết định một lần ngay từ đầu.

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

C, 110 74 72 byte

Cảm ơn Dennis vì đã loại bỏ bao gồm và rất ít byte.

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

Kẹo , 36 byte

Khoảng một nửa chương trình là văn bản cần in ra :(

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

dạng dài:

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 byte

Đây cũng là lần chơi gôn đầu tiên của tôi, cũng trong Python 3. Tôi thề Bruce và tôi không phải là cùng một người.

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

Ung dung:

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

Tạo ra một số ngẫu nhiên giữa 0 và 5 bao gồm, in nhấp nhiều lần, sau đó in tiếng nổ . Nhấn enter / return để kéo cò.

PlatyPar , 26 25 byte

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

Giải trình:

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

Hãy thử trực tuyến !

Emacs Lisp, 94 89 byte

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

Ung dung:

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

R, 86 80 77 byte

Như thường lệ, R có các tính năng tuyệt vời để mã hóa golf nhưng tên hàm looooooong.

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

Python 2, 108 104 102 100 98 byte

Nỗ lực đầu tiên của tôi khi chơi golf:

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

Có lẽ tôi nên thêm rằng chương trình không kết thúc chính xác khi bạn thua, nó chỉ đưa ra một ngoại lệ (dẫn đến kết thúc):

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 byte

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

Chạy mà không có tùy chọn dòng lệnh, kích hoạt được kéo bằng cách nhấn Enter.

Python, 81 byte

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

lấy cảm hứng từ các giải pháp Ruby (51) và Python

Lisp thường gặp, 109

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

Không cạnh tranh lắm, nhưng tôi thích danh sách thông tư:

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

42 byte + -ptùy chọn dòng lệnh. Chỉ cần nhấn enterđể kích hoạt.

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

Cảm ơn Dom Hastings vì sự giúp đỡ của anh ấy! Câu trả lời ban đầu là 67 byte:

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

MATL , 41 byte

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

Để kéo cò, hãy nhập một chuỗi không trống (chẳng hạn như 'try').

Để chấm dứt, hãy nhập một chuỗi trống

Ví dụ

Trong trường hợp này, kích hoạt đã được kéo một lần và ... xui xẻo:

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

Trong trường hợp này, người dùng đã dừng (lưu ý đầu vào trống cuối cùng) sau hai lần rút may mắn:

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

Giải trình

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 byte

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

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

Nhấn Enter để kéo cò hoặc ctrl + c để đặt nó xuống.

Python 2, 88 84 byte

Giải pháp này được lấy cảm hứng từ 3 giải pháp python đã được đưa ra. Tôi đã chọn python 2 để xóa dấu ngoặc đơn in mặc dù điều này thay đổi hành vi của input ().

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

• Tôi đang sử dụng modulo của thời gian như là một hàm ngẫu nhiên (đủ tốt cho roulette Nga)
• đầu vào của người chơi phải là "i" thì Enter (nếu không thì input () sẽ xuất hiện lỗi), thủ thuật này phụ thuộc vào thực tế là đầu vào có thể là "bất cứ thứ gì".

Hồng ngọc, 45 + 1 = 46

Không thông minh như của D-side nhưng ngắn hơn một chút.

Với cờ dòng lệnh p, chạy

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

Người dùng có thể bóp cò khi quay lại và rời đi với control-c. plàm cho chương trình chạy trong một vòng lặp, đọc các dòng từ STDIN và xuất ra $_. Mỗi lần nó chạy, nó tăng lên $.. Vì vậy, trong lần chạy đầu tiên, nó chọn một số nguyên dương ngẫu nhiên nhỏ hơn 6, rồi 5, rồi 4, v.v. Trên 0 đầu tiên, chúng tôi xuất thủ công và thoát, cho đến khi đó chúng tôi xuất hoàn toàn.

(và bây giờ tôi nhận thấy rằng đã có một Perl rất giống nhau. Ồ tốt.)

Perl 5, 69 51 49 byte

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

Có lẽ có một số tiềm năng chơi golf, tôi sẽ xem xét điều này.

Thay đổi:

• Đã lưu 8 byte bằng cách xóa $lvà một số dấu chấm phẩy và 10 byte bằng cách thay đổi <STDIN>thành<>
• Đã lưu 2 byte nhờ Oleg V. Volkov

VBA, 126 byte

Phiên bản Golf cho byte tối thiểu

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

Phiên bản thú vị làm cho các nút rõ ràng hơn để tăng sự chấp nhận của người dùng.

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

Một số niềm vui với các hình thức tùy chỉnh và bạn có thể tạo ra một trò chơi Slick đẹp trong VBA.

APL, 39/65 byte

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

Câu trả lời khá đơn giản.

C, 180 byte

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

Nỗ lực đầu tiên của tôi về môn đánh gôn, có lẽ có rất nhiều chỗ để cải thiện :)

Julia, 71 byte

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

Nhấn Enterđể bắn hoặc Ctrl+ Cđể thoát. Cái sau kết thúc bằng một InterruptException.

Ung dung:

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

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