러시안 룰렛을 연주하는 프로그램을 작성하십시오!

프로그램이 시작되면

• "나는 살아 남았다!"를 인쇄 한 후 정상적으로 종료 될 가능성이 6에서 5 여야합니다.
• 프로그램 충돌 가능성의 1/6이 있어야합니다. (세그먼트 결함 등)

입력이없고 다른 출력도 허용되지 않습니다.

무작위성은 공정해야합니다. 확률 분포가 균일해야합니다. 이는 초기화되지 않은 변수 (또는 시드가없는 RNG) MOD 6이 충분하지 않음을 의미합니다.

솔루션이 하나의 전용 운영 체제 / 플랫폼에서만 작동하는 경우 점수에 6 바이트의 벌금이 부과됩니다.

_{첫 번째 유효한 답변 후 10 일 이내에 최단 코드가 승리합니다.}

05AB1E , 13 12 바이트

6LΩiFë“IЖd!

@Emigna 덕분에 -1 바이트 .

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]

6 개 중 1 회, 오류가 발생합니다. Error: object 'Z' not found

루비, 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자동으로 아직 호출되지 않은 경우 씨앗이 현재 시간에서 인 상태라고합니다. ( 율리우스 주석 참조 )

Primo는 0으로 나누지 않는 솔루션에 추가 보너스 를 줄 아이디어가있었습니다 .

첫 번째 솔루션은 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 ERROR0으로 나누기 때문에 오류로 인쇄 합니다.

제로 솔루션으로 나눌 수있는 가장 짧은 비 나눗셈은 23 자입니다.

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

던졌습니다 INDEX ERROR

여기 사용해보십시오

APL 폰트는 여기

파이썬, 96

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

경우 randrange(5)0을 반환하고 파이썬은 세그먼트 오류로 인해 충돌합니다.

VBA, 27

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

즉시 창에서 사용됩니다.
실패하면 다음과 같은 오류 창이 나타

납니다.

베 펀지-48 문자

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

Befunge의 유일한 무작위성은 ?연산자로, 네 가지 가능한 방향 중 하나 ( 1/4기회)로 이동합니다. 하나 또는 두 방향을 차단함으로써, 당신은 1/3또는 1/2기회 를 가질 수 있고, 이들을 결합함으로써, 당신은 1/6"살아있는"프로그램에서 벗어날 기회를 얻게됩니다.

0으로 나누기를 수행하면 프로그램이 충돌합니다. 나는, 그러나 (이 프로그램이 원하는 대답을 요구해야한다고 말했습니다 위키 백과) 무슨 일이 일어날 지 그것의 구현 고유의 추측 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 error0을 분해하려고 하면 실패합니다 .

C, 67 65 62 자

rand()%8공정성을 잃지 않습니다. 디비전이에 충돌하고 t=01과 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 Sean

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

천장을 바닥으로 변경하라는 제안에 대해 Sean Cheshire의 개인 메시지를 제공합니다.

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

Death Err Msg : 메시지 8134, 수준 16, 상태 1, 줄 3 오류가 발생하면 0으로 나눕니다.

자바 스크립트, 42

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

비트 단위 또는 층수는 곱셈의 결과이므로 0에서 5 사이의 값입니다. 0은 암시 적으로 거짓으로 캐스트되므로 6 개 중 5 개 경우 경고가 6 번째 경우에 나타나고 특정 b이 참조되어 프로세스가 중단됩니다.

일반적인 0으로 나누기 방법 사용 :

펄 5.8 버전

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

펄 5.10 버전

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

실패하면 다음이 표시됩니다.

Illegal division by zero at -e line 1.

펄에서 객체를 만드는 데 사용되는 축복 기능 사용.

펄 5.8 버전

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

펄 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와 충돌 할 가능성이 6 번입니다. 0으로 나누지 않고 관리 할 수있는 가장 짧은 솔루션 은 23 자입니다.

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

와 충돌 할 확률은 1/6입니다 undefined method `+' for nil:NilClass (NoMethodError).

. (시이 개발하는 동안, 나는 GolfScript 인터프리터에 버그가 무엇인지 발견과 같은 코드 0,1>가 나타납니다이 떠날 nil당신이 그것을 떨어져 팝업 제외하고 그 값으로 무엇을하려고하는 경우 나중에 프로그램을 충돌합니다 스택에 값을하고, 멀리에 던져 ;. 불행하게도 사실을 나는 심지어 내가 23 개 문자 이하로 얻을 도움이되지 않았다이 버그를 악용 충돌 수단을 트리거 어떻게 든 값을 사용해야 할 것이다.)

파이썬, 70 자

grc의 답변에서 영감을 얻었습니다.

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

randrange (5)는 0과 5 사이의 값을
반환합니다. 0을 반환하면 9 ^ 5 괄호가 포함 된 코드 문자열을 exec (ute)하려고 시도하는 동안 Python이 충돌합니다.

PHP-30 바이트

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

짧은 배열 구문에는 PHP 5.4 이상이 필요합니다. @primo에서 부당하게 도용 된 잘못된 연산자 아이디어입니다.

명시된 바와 같이, rand()최초 사용시 자동으로 시딩됩니다 .

베 펀지, 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"인수가 없습니다. 기본값은 없습니다.

이맥스-리스프, 42 자

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

자바 스크립트, 40 자

Javascript에서 0으로 나누기 트릭은 작동하지 않습니다. Infinity 만 반환합니다. 따라서 존재하지 않는 변수를 참조하십시오.

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

재미는 없지만 그렇게 짧지는 않습니다 :)

PowerShell, 40 자

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

실패시 : "0으로 나누려고했습니다."

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은 토큰 화 된 언어입니다. 바이트 수는 문자 수와 같지 않습니다 .

• 소문자는 각각 2 바이트 입니다.

  • 이 어셈블리 프로그램을 사용하여 소문자를 활성화 할 수 있습니다 .

• startTmrTI-84 + 및 TI-84 + SE 계산기에서만 명령입니다. 상기 계산기는 다른 운영 체제를 갖는다.

파이썬, 53 바이트

범위를 벗어난 짧은 53 바이트 파이썬 인덱스는 다음과 같습니다.

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

"범위를 벗어난 배열"오류로 실패합니다. 익명의 임의 개체 (가져 오기 없음)를 사용하여 몇자를 면도하도록 관리했습니다.

그루비, 39

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

0에서 5 사이의 난수를 선택합니다. 0이면 0으로 나누기 예외가 발생합니다.

파이썬 (56), 하스켈 (77)

생성 된 숫자가 1 인 경우 IndexError와 충돌합니다.

무작위 수입에서 *
print [ '나는 살아 남았다!'] [1 / randint (1,7)]

Haskell 솔루션은 동일한 아이디어를 가지고 있습니다.

수입 시스템. 랜덤
main = putStrLn. ([ "나 살아 남았다!"] !!). div 1 = << randomRIO (1,6)

파이썬, 59 55 53, 65 59 56

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

ZeroDivisionErrorord(os.urandom(1))%60으로 평가 될 때

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

IndexErrorord(os.urandom(1))%65로 평가 될 때

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에 도달하려고 할 때로 해결됩니다 (VBA는 1 기반 색인 작성).

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

이것은 Run-time error '13': Type mismatch음수 스위치를 문자열에 적용 할 때로 결정됩니다 .

Japt v1.4.5, 16 바이트

6ö
ªí
`I s¨viv!

시도 해봐

@Shaggy 덕분에 -1 바이트!

예외 TypeError: U.í is not a function범위의 난수 때 [0,6)입니다 0.