Viết một chương trình chơi Roulette Nga!

Nếu chương trình được bắt đầu,

• nên có 5 trong 6 cơ hội kết thúc bình thường sau khi in "Tôi sống sót!"
• nên có 1 trong 6 cơ hội chương trình bị sập. (lỗi phân đoạn, v.v.)

Không có đầu vào, và không có đầu ra khác được cho phép.

Tính ngẫu nhiên phải công bằng: nó phải có phân phối xác suất thống nhất. Điều này có nghĩa là một biến chưa được khởi tạo (hoặc RNG không có hạt giống) MOD 6 sẽ không đủ.

Nếu giải pháp hoạt động chỉ với một hệ điều hành / nền tảng chuyên dụng, bạn sẽ nhận được hình phạt 6 byte cho điểm số.

_{Mã ngắn nhất sẽ thắng, không sớm hơn 10 ngày sau câu trả lời hợp lệ đầu tiên.}

05AB1E , 13 12 byte

6LΩiFë“IЖd!

-1 byte nhờ @Emigna .

05AB1E thực sự không thể có lỗi, nhưng vì phiên bản mới của 05AB1E vẫn có một số vấn đề so với phiên bản cũ, tôi có thể lợi dụng điều đó để khắc phục lỗi cho thử thách này.

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

Giải trình:

6L          # Create the list [1,2,3,4,5,6]
  Ω         # Get a random choice from this list
   i        # If it is 1:
    F       #  Do a ranged loop, which currently results in a "(RuntimeError) Could not
            #  convert  to integer." error when no argument is given
   ë        # Else:
    “IЖd!  #  Push dictionary string "I survived!" (which is output implicitly as result)

Xem mẹo 05AB1E này của tôi (phần Làm thế nào để sử dụng từ điển? ) Để hiểu tại sao “IЖd!là "I survived!".

PHP 38 byte

<?~$$s[rand(+$s=sssss,5)]?>I survived!

Đặt một +trước một chuỗi không số sẽ đánh giá 0. Nên rand(0,5)trả về 5, $s[rand(0,5)]sẽ là chuỗi rỗng (vì $schỉ dài năm ký tự) và sau đó $$s[rand(0,5)]sẽ là một biến chưa được khởi tạo. Cố gắng thực hiện đảo ngược sẽ dừng trên Loại toán hạng không được hỗ trợ. Bất kỳ giá trị nào khác, 0-4sẽ trả về svà vì $sđược xác định, bạn sẽ tồn tại.

Lưu ý: kể từ phiên bản php 4.2.0, trình tạo số ngẫu nhiên được gieo tự động .

R 30

"I survived!"[6*runif(1)<5||Z]

Một lần trong sáu, nó sẽ báo lỗi: Error: object 'Z' not found

Hồng ngọc, 24-28

p rand(6)<5?"I survived!":1/0

Khoảng 6 lần, có một ZeroDivisionError

Thậm chí còn có một phiên bản ngắn hơn với 24 ký tự (Nhờ ugoren và histocrat):

6/rand(6);p"I survived!"

Nếu bạn không chấp nhận "đầu ra, thì tôi cần thêm 3 ký tự. Tùy chọn đầu tiên ( puts) thêm một dòng mới, thứ hai ( $><<) không tạo ra dòng mới:

6/rand(6);puts"I survived!"
6/rand(6);$><<"I survived!"

Có một câu hỏi về số ngẫu nhiên trong ruby ​​tại SO . Hạt giống srandđược gọi tự động với hạt giống từ thời điểm hiện tại nếu nó chưa được gọi. (xem bình luận của Julians )

Primo đã có ý tưởng cho một phần thưởng thêm cho những giải pháp không dựa vào sự phân chia bằng 0 .

Giải pháp đầu tiên của tôi có thể được rút ngắn (28 ký tự) với một undefined local variable or method ``a' for main:Object (NameError)

p rand(6)<5?"I survived!":a

Thuốc nhuộm APL - 25 22 21 20 Charachters

'I Survived!'⊣1÷6⊤?6

Bản in DOMAIN ERROR là lỗi, do chia cho số không.

Giải pháp không phân chia ngắn nhất bằng 0 mà tôi có thể đưa ra là 23 ký tự.

('I Survived!'1)[~6⍷?6]

Nó ném một INDEX ERROR

Hãy thử nó ở đây

Phông chữ APL tại đây

Con trăn, 96

from ctypes import*
from random import*
randrange(5)or pointer(c_int())[9**9]
print'I survived!'

Nếu randrange(5)trả về 0, thì python sẽ bị sập do lỗi phân đoạn.

vba, 27

?1/int(6*rnd),"I Survived!"

được sử dụng trong cửa sổ ngay lập tức.
Khi thất bại, một cửa sổ lỗi cho biết:

xuất hiện

Befunge - 48 ký tự

 v >91+"!devi"v
/?>?<v"I surv"<
 / / :
   :,_@#

Tính ngẫu nhiên duy nhất của Befunge là ?toán tử, sẽ đưa bạn đi theo một trong bốn hướng rõ ràng ( 1/4cơ hội). Bằng cách chặn một hoặc hai hướng, bạn có 1/3hoặc có 1/2cơ hội và bằng cách kết hợp những hướng này, bạn sẽ có được1/6 cơ hội thoát khỏi chương trình "còn sống".

Chương trình gặp sự cố bằng cách thực hiện divive-by-zero. Tôi đoán đó là cụ thể về việc triển khai những gì sẽ xảy ra (trên Wikipedia có nói chương trình sẽ yêu cầu câu trả lời mong muốn), nhưng befungee.py sẽ gặp sự cố hoặc thoát ra một cách giận dữ:

$ for i in {1..6} ; do ./befungee.py roulette.befunge ; done
Error (1,2): integer division or modulo by zero
Error (3,2): integer division or modulo by zero
Error (1,2): integer division or modulo by zero
I survived!
Error (0,1): integer division or modulo by zero
I survived!

J, 18

'I survived!'[q:?6

Không thành công domain errorkhi cố gắng nhân tố 0.

C, 67 65 62 ký tự

rand()%8không mất công bằng. Sự cố phân chia cho t=0, cho đúng cho 1 và 2 (thử lại), cho sai cho 3..7 (còn sống).
EDIT: Phiên bản trước đã sử dụng một biến tạm thời, kết thúc hoàn toàn không cần thiết. 2/(rand()%8)thực hiện cả hai điều kiện cần thiết.

main(){
        for(srand(time(0));2/(rand()%8););
        puts("I survived!");
}

T-SQL 56 44 40 + 6

 if 1/cast(ceiling(rand()*6)-1as int)<2print'I Survived!'

Tín dụng Sean Cheshire cho gọi ra diễn viên là không cần thiết

 if 1/ceiling(rand()*6-1)<2print'I Survived!'

Tín dụng tin nhắn cá nhân từ Sean Cheshire cho đề nghị thay đổi trần để sàn.

 if 1/floor(rand()*6)<1print'I Survived!'

Death Err Msg: Msg 8134, Level 16, State 1, Line 3 Chia cho số không gặp phải lỗi.

Javascript, 42

(Math.random()*6|0)?alert('i survived!'):b

Bitwise hoặc tầng kết quả của phép nhân do đó giá trị từ 0 đến 5 kết quả. 0 được gán giả thành sai, vì vậy trong 5 trên 6 trường hợp cảnh báo xuất hiện trong trường hợp thứ 6, một số nhất định bđược tham chiếu, làm hỏng quá trình.

Sử dụng phép chia thông thường theo phương thức zero:

Phiên bản Perl 5,8

1/(int rand 6)&&print "I survived!"

Phiên bản Perl 5.10

1/(int rand 6)&&say "I survived!"

Khi thất bại, chúng sẽ hiển thị:

Illegal division by zero at -e line 1.

Sử dụng chức năng ban phước được sử dụng để tạo các đối tượng trong perl.

Phiên bản Perl 5,8

print (int rand 6?"I survived!":bless me);

Phiên bản Perl 5.10

say (int rand 6?"I survived!":bless me);

Khi thất bại, chúng sẽ hiển thị:

Can't bless non-reference value at -e line 1.

GolfScript, 21 ký tự

,6rand/;'I survived!'

Giống như hầu hết các câu trả lời, câu trả lời này có một trong sáu cơ hội gặp sự cố với ZeroDivisionError. Giải pháp ngắn nhất tôi có thể quản lý mà không cần sử dụng phép chia cho số 0 là 23 ký tự:

5,6rand=+;'I survived!'

trong đó có 1/6 cơ hội gặp sự cố undefined method `+' for nil:NilClass (NoMethodError).

(Ps. Trong khi phát triển điều này, tôi đã tìm thấy lỗi có thể xảy ra trong trình thông dịch GolfScript: mã như 0,1>xuất hiện để lại một nilgiá trị trên ngăn xếp, sau này sẽ làm hỏng chương trình nếu bạn cố gắng làm bất cứ điều gì với giá trị đó ngoại trừ bật nó ra và tắt vứt nó đi với ;. thật không may, thực tế là tôi làm nhu cầu sử dụng các giá trị bằng cách nào đó để kích hoạt một phương tiện tai nạn mà ngay cả khai thác lỗi này không giúp tôi có được dưới 23 ký tự.)

Con trăn, 70 ký tự

Với cảm hứng từ câu trả lời của grc.

from random import*
if randrange(5)<1:exec'()'*9**5
print'I survived!'

randrange (5) trả về giá trị từ 0 đến 5.
Nếu nó trả về 0, Python gặp sự cố trong khi cố gắng thực thi (ute) một chuỗi mã chứa 9 ^ 5 bộ dấu ngoặc.

PHP - 30 byte

<?rand(0,5)?:~[]?>I survived!

Yêu cầu PHP 5.4+ cho cú pháp mảng ngắn, ý tưởng toán tử không hợp lệ bị đánh cắp một cách đáng xấu hổ từ @primo.

Như đã nêu, rand()được tự động gieo vào lần sử dụng đầu tiên .

Befunge, 38

v>25*"!devivrus I",,,,,,,,,,,@
?^
v
?^
<1

Khá đơn giản. Sự cố được thực hiện bằng cách đẩy 1 giây lên ngăn xếp cho đến khi nó tràn ra. Tôi đã thực hiện một vài nỗ lực trong việc cắt bỏ 11 dấu phẩy đó và thay thế chúng bằng một số vòng lặp hiệu quả hơn để in mọi thứ, nhưng không thể có được nó dưới 11 ký tự.

Lưu ý rằng việc đếm các ký tự trong Befunge hơi khó khăn ... Chẳng hạn, chỉ có một ký tự trên dòng thứ ba, nhưng tôi đang đếm thêm một ký tự ở đó vì việc thực thi có thể đi qua vị trí đó.

CMD Shell (Win XP trở lên), 40 +6

Tôi chỉ làm điều này vì DOS không phải là thứ thậm chí nên được nghĩ đến cho môn đánh gôn và khoảng trắng là quan trọng

set/a1/(%RANDOM% %% 6)&&echo I Survived!

Khi thất bại, nó sẽ in

Chia cho số không.

R, 50 44 42 36

ifelse(!is.na(sample(c(NA,1:5),1)),'I Survived!',)

ifelse(floor(runif(1,0,5))>0,'I Survived!',)

ifelse(floor(runif(1,0,5)),'I Survived!',)

ifelse(sample(0:5,1),'I Survived!',)

Tin nhắn tử thần:

Lỗi trong ifelse (! Is.na (1 / mẫu (c (NA, 1: 5), 1)), "Tôi đã sống sót!",): Thiếu đối số "không", không có mặc định

Emacs-Lisp, 42 ký tự

(if (= (random 6) 5) 
    z (message "I survived!")
    )

Javascript, 40 ký tự

Trong Javascript, thủ thuật chia cho 0 thậm chí không hoạt động: nó chỉ trả về Infinity. Do đó, tham chiếu một biến không tồn tại:

alert(6*Math.random()|0?"I survived!":f)

Không quá ngắn, mặc dù vui :)

PowerShell, 40 ký tự

IF(6/(Get-Random -Max 6)){'I Survived!'}

Về thất bại: "Đã cố chia cho số không."

TI-BASIC (TI-84 + / SE), 36 byte

startTmr→rand:1/(1<randInt(1,6:"I survived!

Không có đầu vào, như thách thức chỉ định.
Đầu ra là I survived!nếu thành công, một DIVIDE BY 0lỗi khác.

Các DIVIDE BY 0màn hình báo lỗi trông giống như sau:

ERR:DIVIDE BY 0
1:Quit
2:Goto

Chọn một trong hai tùy chọn (và trở về màn hình chính nếu 2được chọn) sẽ hiển thị Errorsau khi gọi chương trình.

Ví dụ:

prgmCDGFE
           Error
prgmCDGFE
I survived!
prgmCDGFE
I survived!
prgmCDGFE
           Error

Giải trình:

startTmr→rand:1/(1<randInt(1,6:"I survived!   ;full program

startTmr→rand                                 ;store the current time into "rand"
                                              ; this is necessary because "rand" is 0 after
                                              ; factory reset, the default state for TI-BASIC
                                              ; submissions
                   randInt(1,6                ;get a random integer in [1,6]
                 1<                           ;is greater than 1?  1 if true, 0 if false
              1/(                             ;divide 1 by the result
                                              ; throws "DIVIDE BY 0" error if result was
                                              ; false
                               "I survived!   ;leave this string in "Ans"
                                              ;implicitly print "Ans"

Ghi chú:

• TI-BASIC là một ngôn ngữ được mã hóa. Số lượng byte không bằng số ký tự.

• Chữ thường là hai byte mỗi.

  • Chữ thường có thể được kích hoạt bằng chương trình lắp ráp này .

• startTmrlà một lệnh chỉ trên các máy tính TI-84 + và TI-84 + SE. Máy tính cho biết có hệ điều hành khác nhau.

Python, 53 byte

Đây là một chỉ mục python ngắn 53 byte ngoài phạm vi chương trình:

import time
[0][time.time()%6<1]
print("I survived!")

Java, 149

public class R{public static void main(String[]s){int[]a={1,1,1,1,1};System.out.println(a[new java.util.Random().nextInt(7)]>0?"I survived!":"");}}

Thất bại với lỗi "Mảng ngoài giới hạn". Quản lý để cạo một vài ký tự bằng cách sử dụng đối tượng Ngẫu nhiên ẩn danh (không nhập).

Groovy, 39

1/new Random().next(6);print"I survived!"

Chọn một số ngẫu nhiên trong khoảng từ 0 đến 5. Nếu 0, ném một chia cho ngoại lệ bằng không.

Con trăn (56), Haskell (77)

Điều này gặp sự cố với IndexError khi số được tạo là 1:

từ nhập ngẫu nhiên *
in ['Tôi đã sống sót!'] [1 / randint (1,7)]

Giải pháp Haskell có cùng ý tưởng:

nhập System.Random
main = putStrLn. (["Tôi đã sống sót!"] !!). div 1 = << RandomRIO (1,6)

Con trăn, 59 55 53, 65 59 56

import os
1/(ord(os.urandom(1))%6)
print"I survived!"

ZeroDivisionErrorkhi ord(os.urandom(1))%6đánh giá về 0

import os
print(["I survived!"]*5)[ord(os.urandom(1))%6]

IndexErrorkhi ord(os.urandom(1))%6đánh giá đến 5

VBA - 39/46

Tôi không thích đầu ra số của Sean Cheshire (mặc dù vẫn là một câu trả lời hay, nhưng về mặt kỹ thuật thì nó không thành công No input, and no other outputs are allowed.từ thông số kỹ thuật ...), cộng với việc anh ấy sử dụng /0, vì vậy đây là những lựa chọn thay thế của tôi:

?Mid("I Survived!",IIf(Int(6*Rnd),1,0))

Điều này giải quyết Run-time error '5': Invalid procedurekhi cố gắng đạt đến ký tự 0 (VBA là lập chỉ mục dựa trên 1).

n="I Survived!":If Int(6*Rnd) Then ?n Else ?-n

Điều này giải quyết Run-time error '13': Type mismatchkhi áp dụng một chuyển đổi tiêu cực cho một chuỗi.

Japt v1.4.5, 16 byte

6ö
ªí
`I s¨viv!

Thử nó

-1 byte nhờ @Shaggy!

Ném TypeError: U.í is not a functionkhi một số ngẫu nhiên trong phạm vi [0,6)là 0.