写一个玩俄罗斯轮盘的程序！

如果程序启动，

• 打印“我还活着！”之后，应该有六分之五的机会正常结束
• 该程序崩溃的可能性应该为六分之一。（分段错误等）

没有输入，也没有其他输出是允许的。

随机性必须是公平的：它必须具有统一的概率分布。这意味着未初始化的变量（或没有种子的RNG）MOD 6将不足。

如果该解决方案仅适用于一个专用的操作系统/平台，您将获得6字节的罚款。

_{最短的代码获胜，不得早于第一个有效答案后的10天之内。}

05AB1E，13 12 字节

6LΩiFë“IЖd!

-1个字节感谢@Emigna。

实际上，05AB1E根本不应该出错，但是由于新版本的05AB1E与旧版本相比仍然存在一些问题，因此我可以利用我的优势来为这一挑战提供错误信息。

在线尝试。

说明：

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)

见我这个05AB1E尖端（部分如何使用字典？）理解为什么“IЖd!是"I survived!"。

PHP 38字节

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

将a +放在非数字字符串前的取值为0。应该rand(0,5)返回5，$s[rand(0,5)]将为空字符串（因为$s只有五个字符），随后$$s[rand(0,5)]将为未初始化的变量。尝试进行反转将在不支持的操作数类型上停止。任何其他值0-4将返回s，并且由于$s已定义，您将生存下来。

注意：自php版本4.2.0起，随机数生成器会自动生成种子。

R 30

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

六分之一的时间，它将引发错误： Error: object 'Z' not found

Ruby，24-28岁

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

大约每6次， ZeroDivisionError

甚至有24个字符的简短版本（感谢ugoren和histocrat）：

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

如果您不接受"输出中的，那么我还需要3个字符。第一个选项（puts）添加换行符，第二个（$><<）不添加换行符：

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

SO中存在一个有关红宝石中随机数的问题。如果种子srand尚未被调用，则会自动调用种子为with的当前时间。（请参阅朱利安斯评论）

Primo的想法是为那些不依赖零除的解决方案提供额外的奖励。

我的第一个解决方案可以缩短为（28个字符） undefined local variable or method ``a' for main:Object (NameError)

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

Dyalog APL- 25 22 21 20角色

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

DOMAIN ERROR由于被零除，因此打印为错误。

我能想到的最短的非零除法是23个字符。

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

它抛出一个 INDEX ERROR

在这里尝试

APL字体在这里

Python，96

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

如果randrange(5)返回0，则python将由于分段错误而崩溃。

vba，27岁

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

在即时窗口中使用。
如果失败，错误窗口，指出：

出现

Befunge-48个字符

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

Befunge唯一的随机性是?运算符，它会向您发送四个可能方向之一（1/4机会）。通过阻断一个或两个方向，你有1/3或1/2机会，并通过组合这些，你会得到1/6机会得到节目“活着”的了。

程序因零除而崩溃。我猜这将是特定于实现的（在Wikipedia上，它说程序应该询问所需的答案），但是befungee.py会崩溃或愤怒地退出：

$ 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

domain error尝试分解0时失败。

C，67 65 62字符

rand()%8不会失去公平。除法崩溃为t=0，为1和2给出真（重试），为3..7给出假（存活）。
编辑：以前的版本使用一个临时变量，最终完全不需要。2/(rand()%8)实现两个必要条件。

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

信用肖恩·柴郡（Sean Cheshire）称不必要的演员表

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

归功于肖恩·柴郡（Sean Cheshire）的个人信息，建议将天花板改为地板。

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

死亡错误消息：消息8134，级别16，状态1，第3行除以零错误。

Javascript，42岁

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

按位或底数相乘的结果，因此得到0到5之间的值。0隐式转换为false，因此在6个案例中的5个案例中，在第6个案例b中引用了某个警报时，警报出现，从而使该过程崩溃。

使用通常的零除法：

Perl 5.8版本

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

Perl 5.10版本

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

失败时，将显示：

Illegal division by zero at -e line 1.

使用bless函数，该函数用于在perl中创建对象。

Perl 5.8版本

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

Perl 5.10版本

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

失败时，将显示：

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

GolfScript，21个字符

,6rand/;'I survived!'

像大多数答案一样，此错误中有零分之一的可能性因ZeroDivisionError崩溃。我不使用零除就可以管理的最短解决方案是23个字符：

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

与一起崩溃的几率是1/6 undefined method `+' for nil:NilClass (NoMethodError)。

（Ps。在开发此代码时，我发现了GolfScript解释器中可能存在的错误：诸如此类的代码0,1>似乎nil在堆栈上留下了一个值，如果您尝试使用该值执行任何操作，则将其弹出，然后将其崩溃，扔掉它与;不幸的是，事实证明我确实需要使用的值以某种方式引发崩溃意味着，即使利用这个bug没帮我把下面23个字符）。

Python，70个字符

从grc的答案中得到启发。

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

randrange（5）返回0到5之间的值。
如果返回0，则Python在尝试执行包含9 ^ 5套括号的代码字符串时崩溃。

PHP-30个字节

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

需要短数组语法的PHP 5.4+，无效的操作员想法从@primo被无耻地偷走了。

如前所述，rand()在首次使用时会自动播种。

Befunge，38岁

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

很简单。通过将1压入堆栈直到溢出来完成崩溃。我做了一些尝试，以剪掉这11个逗号，并用一些更有效的循环替换它们以打印所有内容，但是用11个字符以下的字符却无法解决。

请注意，对Befunge中的字符进行计数有点棘手...例如，在第三行上只有一个字符，但是由于执行可能会穿过该位置，因此我在其中计数了一个额外的字符。

CMD Shell（Win XP或更高版本），40 +6

我之所以这样做，是因为DOS甚至都不是代码高尔夫中应该考虑的东西，而空格很重要

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

失败时，它将打印

除以零误差。

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!',)

死亡错误消息：

ifelse（！is.na（1 / sample（c（NA，1：5），1）），“ I Survived！”，）中的错误：参数“ no”丢失，没有默认值

Emacs-Lisp，42个字符

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

Javascript，40个字符

在Javascript中，除零技巧甚至不起作用：它只会返回Infinity。因此，引用一个不存在的变量：

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

没那么短，虽然很有趣:)

PowerShell，40个字符

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

失败时：“试图除以零。”

TI-BASIC（TI-84 + / SE），36字节

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

正如挑战所指出的，没有输入。如果成功，则
输出I survived!，DIVIDE BY 0否则错误。

该DIVIDE BY 0差错屏幕看起来如下：

ERR:DIVIDE BY 0
1:Quit
2:Goto

程序调用后2显示选择任一选项（如果选择则返回主屏幕）Error。

例子：

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

说明：

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"

笔记：

• TI-BASIC是一种标记化语言。字节数不不等于字符数。

• 小写字母每个为两个字节。

  • 可以使用此汇编程序启用小写字母。

• startTmr是仅在TI-84 +和TI-84 + SE计算器上的命令。所述计算器具有不同的操作系统。

Python，53个字节

这是一个简短的53字节python索引超出范围的程序：

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

爪哇，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!":"");}}

出现“数组超出范围”错误。通过使用匿名Random对象（无导入）来设法剃掉了几个字符。

Groovy，39岁

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

选择一个介于0和5之间（含0和5）的随机数。如果为0，则抛出被零除的异常。

Python（56），Haskell（77）

当生成的数字为1时，这会因IndexError崩溃：

来自随机导入*
打印['我还活着！'] [1 / randint（1,7）]

Haskell解决方案具有相同的想法：

导入System.Random
main = putStrLn。（[[“我还活着！”] !!）。div 1 = << randomRIO（1,6）

蟒蛇，59 55 53，65 59 56

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

ZeroDivisionError当ord(os.urandom(1))%6评估为0时

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

IndexError当ord(os.urandom(1))%6评估为5

VBA-39/46

我不喜欢Sean Cheshire的数字输出（尽管仍然是一个很好的答案，但从技术上讲，它No input, and no other outputs are allowed.在规格上不合格...），而且他使用/0，所以这是我的选择：

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

Run-time error '5': Invalid procedure尝试到达字符0时，此解析为a （VBA是基于1的索引）。

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

Run-time error '13': Type mismatch将否定开关应用于字符串时，此解析为a 。

Japt v1.4.5，16个字节

6ö
ªí
`I s¨viv!

试试吧

-1个字节感谢@Shaggy！

抛出TypeError: U.í is not a function时的范围内的随机数[0,6)是0。