Rus Ruleti çalan bir program yaz!

Program başlatılırsa,

• "Hayatta kaldım!" yazdıktan sonra normal olarak bitme şansının 5 olması gerekir.
• Programın çökme ihtimalinin 1 / 6'sı olmalıdır. (bölümlendirme hatası vb.)

Giriş yok ve başka çıkış yok.

Rasgelelik adil olmalı: düzgün bir olasılık dağılımına sahip olmalıdır. Bu, başlatılmamış bir değişken (veya tohumsuz bir RNG) MOD 6'nın yeterli olmayacağı anlamına gelir.

Çözüm yalnızca bir işletim sistemi / platformu ile çalışırsa, puana 6 baytlık bir ceza verilir.

_{En kısa kod kazanır, ilk geçerli cevaptan 10 gün sonra değil.}

05AB1E , 13 12 bayt

6LΩiFë“IЖd!

@Emigna sayesinde -1 bayt .

05AB1E aslında hiç hata yapamamalı, ancak 05AB1E'nin yeni sürümünün eski sürüme kıyasla hala bazı sorunları olduğundan, bu zorluğun üstesinden gelmek için bunu avantajım için kullanabilirim.

Çevrimiçi deneyin.

Açıklama:

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)

Bunun neden “IЖd!olduğunu anlamak için bu 05AB1E ipucumun (bkz . Sözlük nasıl kullanılır? )"I survived!" .

PHP 38 bayt

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

+Sayısal olmayan bir dizgeden önce bir harf yerleştirmek değerlendirilir 0. Meli rand(0,5)dönmek 5, $s[rand(0,5)](çünkü boş dize olacaktır $ssadece beş karakter uzunluğunda) ve daha sonra $$s[rand(0,5)]başlatılmamış değişken olacaktır. Tersine çevirmeye çalışmak Desteklenmeyen Operand Türü'nde durur. Başka bir değer, 0-4geri döner sve çünkü$s tanımlandığı için hayatta kalırsınız.

Not: 4.2.0 php sürümünden itibaren, rasgele sayı üreteci otomatik olarak ekilir .

R 30

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

Altıda bir kez hata yapar. Error: object 'Z' not found

Ruby, 24-28

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

Yaklaşık her 6 kez, bir ZeroDivisionError

24 karakterden daha kısa bir sürümü bile var (ugoren ve histokrat sayesinde):

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

"Çıktıdaki girişi kabul etmiyorsanız , 3 karaktere daha ihtiyacım var. İlk seçenek ( puts) yeni bir satır ekliyor, ikinci seçenek ( ) yeni satır eklemiyor $><<:

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

SO'da yakutta rastgele sayılarla ilgili bir soru var . Daha önce aranmamışsa srand, tohum geçerli zamandan itibaren olan tohum ile otomatik olarak çağrılır. ( Julians yorumuna bakınız )

Primo, sıfıra bölme güvenmeyen bu çözümlere fazladan bir bonus kazandıracaktı. .

İlk çözümüm bir kısaltma ile (28 karakter) kısaltılabilir. undefined local variable or method ``a' for main:Object (NameError)

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

Dyalog APL - 25 22 21 20 Karakterler

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

DOMAIN ERRORSıfıra bölme nedeniyle hata olarak yazdırır .

Bulabildiğim en kısa sıfır olmayan çözüm yolu ile 23 karakter.

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

Bir atar INDEX ERROR

Burada dene

APL Yazı tipi burada

Python, 96

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

Eğer randrange(5)getiri 0 ise, piton parçalama arızası nedeniyle kilitlenmesine.

vba, 27

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

acil pencerede kullanılır.
Hata durumunda: belirten bir hata penceresi:

belirir

Befunge - 48 karakter

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

Befunge'nin tek rastgeleliği, ?sizi dört olası yönden birine ( 1/4şans) yönlendiren operatördür . Bir veya iki yönü bloke ederek, şansınız 1/3ya da 1/2şansınız var ve bunları birleştirerek 1/6, programdan "canlı" çıkma şansına sahip olacaksınız .

Program bir sıfıra bölünerek çöküyor. Ben, ancak (o programın istenilen cevap için sormalısınız diyor Wikipedia'da) ne olacağını 's gerçeklenime özel tahmin befungee.py sıralama öfkeyle çöker veya çıkışların:

$ 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'ı çarpanlara ayırmaya çalışırken başarısız olmak .

C, 67 65 62 karakter

rand()%8adalet kaybetmez. Bölünme için çöküyor t=0, 1 ve 2 için doğru veriyor (yeniden dene), 3.7 için yanlış veriyor (hayatta kalmış).
EDIT: Önceki sürüm tamamen gereksiz bir şekilde sona eren geçici bir değişken kullandı. 2/(rand()%8)Hem gerekli koşulları uygular.

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'ı gereksiz yere oyuncu olarak çağırdığı için teşekkür ederiz.

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

Credit personal message from Sean Cheshire for suggestion to change ceiling to floor.

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

Death Err Msg: Msg 8134, Level 16, State 1, Line 3 Divide by zero error encountered.

Javascript, 42

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

Bitsel olarak veya çarpımın sonucunu kaplar, böylece 0 ile 5 arasında bir değer elde edilir. 0 dolaylı olarak yanlış duruma getirilir, bu nedenle 6 vakanın 5'inde uyarı, 6. örnekte belirli bbir referansa başvurulur ve işlemi düzeltir .

Normal bölmeyi sıfır yöntemiyle kullanmak:

Perl 5.8 Sürümü

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

Perl 5.10 Sürümü

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

Arıza durumunda, bunlar gösterecektir:

Illegal division by zero at -e line 1.

Perl'de nesne oluşturmak için kullanılan korusun işlevini kullanma.

Perl 5.8 Sürümü

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

Perl 5.10 Sürümü

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

Arıza durumunda, bunlar gösterecektir:

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

GolfScript, 21 chars

,6rand/;'I survived!'

Like most of the answers, this one has a one in six chance of crashing with a ZeroDivisionError. The shortest solution I could manage without using division by zero is 23 chars:

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

which has a 1/6 chance of crashing with undefined method `+' for nil:NilClass (NoMethodError).

(Ps. Bunu geliştirirken, GolfScript yorumlayıcısında ne hata olabileceğini öğrendim: kod gibi , yığında 0,1>bir nildeğer bırakıyor gibi görünüyor , bu açılır pencere dışındaki bir değer yapmayı denerseniz daha sonra programı çökertecek ve uzakta olan atmak ;. ne yazık ki, aslında ben bile beni 23 karakter altına almak yardımcı olmadı bu hatayı istismar bir çarpışma aracı tetiklemek için bir türlü değerini kullanma ihtiyacı yapmak.)

Python, 70 characters

With inspiration from grc's answer.

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

randrange(5) returns a value between 0 and 5.
If it returns a 0, Python crashes while attempting to exec(ute) a string of code that contains 9^5 sets of parentheses.

PHP - 30 bytes

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

Requires PHP 5.4+ for the short array syntax, invalid operator idea shamelessly stolen from @primo.

As stated, rand() is automatically seeded on first use.

Befunge, 38

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

Pretty straight-forward. Crashing is done by pushing 1s onto the stack until it overflows. I made a few attempts at cutting out those 11 commas and replacing them with some more efficient loop to print everything, but couldn't get it under 11 characters.

Note that counting characters in Befunge is a little tricky... For instance there's only one character on the third line, but I'm counting an extra one there since execution could travel through that location.

CMD Shell (Win XP or later), 40 +6

I'm only doing this one because DOS is not something that should even be thought of for code golf, and the whitespace is important

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

On failure, it will print

Divide by zero error.

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

Death Err Message:

Error in ifelse(!is.na(1/sample(c(NA, 1:5), 1)), "I Survived!", ) : argument "no" is missing, with no default

Emacs-Lisp, 42 characters

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

Javascript, 40 chars

In Javascript the divide-by-zero trick doesn't even work: it just returns Infinity. Therefore, referencing a non-existing variable:

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

Not so short, though fun :)

PowerShell, 40 Chars

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

On Failure: "Attempted to divide by zero."

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

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

There is no input, as the challenge specifies.
Output is I survived! if successful, a DIVIDE BY 0 error otherwise.

The DIVIDE BY 0 error screen looks like the following:

ERR:DIVIDE BY 0
1:Quit
2:Goto

Selecting either option (and returning to home screen if 2 is selected) shows Error after the program call.

Examples:

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

Explanation:

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"

Notes:

• TI-BASIC is a tokenized language. Byte count does not equal character count.

• Lowercase letters are two bytes each.

  • Lowercase letters can be enabled using this assembly program.

• startTmr is a command only on the TI-84+ and TI-84+ SE calculators. Said calculators have different operating systems.

Python, 53 bytes

Here's a short 53 byte python index out of range program:

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

Fails with an "Array out of bounds" error. Managed to shave a few characters by using anonymous Random object (no imports).

Groovy, 39

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

Picks a random number between 0 and 5 inclusive. If 0, throws a divide by zero exception.

Python (56), Haskell (77)

This crashes with an IndexError when the generated number is 1:

from random import*
print['I survived!'][1/randint(1,7)]

The Haskell solution has the same idea:

import System.Random
main=putStrLn.(["I survived!"]!!).div 1=<<randomRIO(1,6)

Python, 59 55 53, 65 59 56

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

ZeroDivisionError when ord(os.urandom(1))%6 evaluates to 0

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

IndexError when ord(os.urandom(1))%6 evaluates to 5

VBA - 39/46

I don't love Sean Cheshire's numeric output (though still a good answer, it technically fails the No input, and no other outputs are allowed. from the spec...), plus he uses /0, so here are my alternatives:

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

This resolves to a Run-time error '5': Invalid procedure when trying to reach character 0 (VBA is 1-based indexing).

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

This resolves to a Run-time error '13': Type mismatch when applying a negative switch to a string.

Japt v1.4.5, 16 bytes

6ö
ªí
`I s¨viv!

Try it

-1 byte thanks to @Shaggy!

Throws TypeError: U.í is not a function when a random number in the range [0,6) is 0.