เขียนโปรแกรมที่เล่นรูเล็ตรัสเซีย!

หากโปรแกรมเริ่มทำงาน

• ควรมีโอกาส 5 ใน 6 ของการสิ้นสุดโดยปกติหลังจากการพิมพ์ "ฉันรอดชีวิต!"
• ควรมีโอกาส 1 ใน 6 ของโปรแกรมที่ล้มเหลว (การแบ่งกลุ่มความผิด ฯลฯ )

ไม่มีอินพุตและไม่อนุญาตเอาต์พุตอื่น

การสุ่มต้องยุติธรรม: ต้องมีการแจกแจงความน่าจะเป็นแบบเดียวกัน นี่หมายความว่าตัวแปรที่ไม่ได้กำหนดค่าเริ่มต้น (หรือ 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!

วางก่อนสตริงที่ไม่ใช่ตัวเลขจะมีการประเมินเพื่อ+ 0ควรrand(0,5)กลับมา5, $s[rand(0,5)]จะเป็นสตริงที่ว่างเปล่า (ตั้งแต่$sเป็นเพียงห้าตัวอักษรยาว) และต่อมา$$s[rand(0,5)]จะเป็นตัวแปร uninitialized ความพยายามที่จะคว่ำจะหยุดในประเภทของตัวถูกดำเนินการที่ไม่สนับสนุน ค่าอื่นใด0-4จะส่งคืนsและเนื่องจาก$sถูกกำหนดไว้คุณจะรอดชีวิต

หมายเหตุ: ณ PHP เวอร์ชัน 4.2.0, เครื่องกำเนิดไฟฟ้าจำนวนสุ่มเมล็ดโดยอัตโนมัติ

R 30

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

หนึ่งครั้งจากหกข้อผิดพลาด: 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จะถูกเรียกโดยอัตโนมัติเมื่อเมล็ดอยู่จากเวลาปัจจุบันหากยังไม่ได้เรียก (ดูความคิดเห็น Julians )

Primo มีความคิดที่เป็นโบนัสพิเศษเพื่อแก้ปัญหาเหล่านั้นที่ไม่ต้องพึ่งพาหารด้วยศูนย์

ทางออกแรกของฉันสามารถสั้นลงได้ (28 ตัวอักษร) ด้วย a undefined local variable or method ``a' for main:Object (NameError)

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

Dyalog APL - 25 22 21 20 Charachters

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

เครดิตฌอนเชสเชียร์ในการโทรหานักแสดงที่ไม่จำเป็น

 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

ค่า bitwise หรือ floor ผลลัพธ์ของการคูณจึงมีค่าระหว่าง 0 ถึง 5 0 ได้รับการ casted โดยนัยเป็นเท็จดังนั้นใน 5 จาก 6 กรณีการแจ้งเตือนจะปรากฏในกรณีที่ 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.

การใช้ฟังก์ชั่นอวยพรที่ใช้สำหรับการสร้างวัตถุใน 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 ของ crashing undefined method `+' for nil:NilClass (NoMethodError)กับ

(ป.ล. ในขณะที่พัฒนาสิ่งนี้ฉันพบสิ่งที่อาจเป็นข้อบกพร่องในล่าม GolfScript: รหัสเช่น0,1>ปรากฏขึ้นเพื่อให้nilค่าในกองซึ่งภายหลังจะผิดพลาดโปรแกรมหากคุณพยายามทำอะไรกับค่าที่ยกเว้น pop มันออกและ ทิ้งมันไปด้วย;โชคไม่ดีที่ความจริงที่ว่าฉันจำเป็นต้องใช้ค่าใด ๆ เพื่อทำให้เกิดความผิดพลาดหมายความว่าแม้การใช้ประโยชน์จากข้อผิดพลาดนี้ไม่ได้ช่วยให้ฉันได้รับต่ำกว่า 23 ตัวอักษร)

Python 70 ตัวอักษร

ด้วยแรงบันดาลใจจากคำตอบของ GRC

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

randrange (5) ส่งคืนค่าระหว่าง 0 ถึง 5
ถ้ามันคืนค่า 0, Python หยุดทำงานในขณะที่พยายาม exec (ute) สตริงของรหัสที่มีวงเล็บ 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 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 / ตัวอย่าง (c (NA, 1: 5), 1))), "I Survived!",): อาร์กิวเมนต์ "no" หายไปโดยไม่มีค่าเริ่มต้น

Emacs-Lisp, 42 ตัวอักษร

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

Javascript, 40 chars

ใน 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 ไบต์ของไพ ธ อน:

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

ล้มเหลวด้วยข้อผิดพลาด "Array out of bounds" จัดการเพื่อโกนอักขระบางตัวโดยใช้วัตถุสุ่มที่ไม่ระบุชื่อ (ไม่มีการนำเข้า)

Groovy, 39

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

เลือกตัวเลขสุ่มระหว่าง 0 ถึง 5 รวม ถ้า 0 ให้หารด้วยข้อยกเว้นศูนย์

Python (56), Haskell (77)

สิ่งนี้จะขัดข้องด้วย IndexError เมื่อจำนวนที่สร้างคือ 1:

จากการนำเข้าแบบสุ่ม *
พิมพ์ ['ฉันรอดชีวิต!'] [1 / randint (1,7)]

โซลูชัน Haskell มีแนวคิดเดียวกัน:

ระบบนำเข้าสุ่ม
main = putStrLn. (["ฉันรอดชีวิต!"] !!). div 1 = << randomRIO (1,6)

Python, 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 (VBA คือการจัดทำดัชนีแบบ 1)

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

สิ่งนี้จะแก้ไขเป็น a Run-time error '13': Type mismatchเมื่อใช้สวิตช์เชิงลบกับสตริง

Japt v1.4.5, 16 ไบต์

6ö
ªí
`I s¨viv!

ลองมัน

-1 ไบต์ขอบคุณ @Shaggy!

พ่นTypeError: U.í is not a functionเมื่อจำนวนสุ่มในช่วงเป็น[0,6)0