Vim เป็นตัวแก้ไขข้อความที่ยอดเยี่ยมสำหรับระบบยูนิกซ์ แต่มันก็มีชื่อเสียงในเรื่องยากที่จะออก

เขียนโปรแกรมเต็มรูปแบบที่จะส่งออก:qเพื่อออกเป็นกลุ่ม จากนั้นคุณควรอ่านอินพุตหนึ่งบรรทัดเนื่องจากจะได้รับพร้อมต์ bash ซึ่งในกรณีที่การออกสำเร็จหรือข้อผิดพลาดซึ่งในกรณีที่มีการเปลี่ยนแปลงที่ยังไม่ได้บันทึก

bash prompt จะเป็นดังนี้:

E37@vimmachine: /var/override)

ในขณะที่ข้อผิดพลาดจะเป็นดังนี้:

E37: No write since last change (add ! to override)

เมื่อได้รับพรอมต์ bash งานของโปรแกรมจะเสร็จสิ้นและไม่ควรให้เอาต์พุตใด ๆ เพิ่มเติม (ยกเว้นช่องว่าง)

เมื่อได้รับข้อผิดพลาดโปรแกรมของคุณควรสุ่ม (เช่นความเป็นไปได้แต่ละอย่างมีความน่าจะเป็นไม่เลือกศูนย์) :q!เพื่อออกโดยไม่บันทึกหรือ:xเพื่อบันทึกและออก

นี่คือโค้ดกอล์ฟที่มีจำนวนน้อยที่สุดในแต่ละภาษาที่ชนะ!

Python 2 , 66 ไบต์

บันทึก 3 ไบต์ขอบคุณ @ Mr.Xcoder และ 4 ขอบคุณ @Mayube!

from random import*
if'('in input(':q'):print choice([':x',':q!'])

ลองออนไลน์!

Ruby , 35 ไบต์

p:q
p %i(q! x)[rand 2]if/\(/=~gets

ลองออนไลน์!

05AB1E , 19 ไบต์

„:q,'Nåi„:x…:q!‚.R,

ลองออนไลน์!

„:q,                # Print the string ":q"
    'Nåi            # If N is in the input
        „:x         #   Push the string ":x"
           …:q!     #   Push the string ":q!"
               ‚    #   Wrap them into an array
                .R, #   Randomly print one of them

Python 2 , 76 75 72 69 ไบต์

คำตอบนี้ออกไปแล้ว

-1 ไบต์ต้องขอบคุณ Rod -3 ไบต์ต้องขอบคุณ Mayube -3 ไบต์ขอบคุณ Artyer

from random import*
print'::qx!'[random()>.5:('N'in input(':q'))*5:2]

ลองออนไลน์!

Vimscript 45 45ไบต์

ec"q"|exe"/("|ec["q!","x"][getpid()%2]

ลดขนาด 4 ไบต์โดยใช้getpid()เพื่อรับค่า (ทุกคนคิดวิธีที่สั้นกว่าเพื่อให้ได้ตัวเลขที่ไม่เหมือนเดิมทุกที่ตลอดเวลาหรือไม่)

สมมติว่า +3 ไบต์สำหรับเรียกใช้ Vim ด้วย-cเพื่อเรียกใช้สคริปต์ข้างต้นและ-เพื่ออ่านอินพุตจาก stdin:

vim -c 'ec"q"|exe"/("|ec["q!","x"][reltime()[1]%2]' -

JavaScript, 52 46 ไบต์

บันทึก 6 ไบต์ด้วย @ETHProductions

prompt(':q')[30]&&alert(new Date%2?':q!':':x')

C # (. NET Core) , 140 139 138 ไบต์

using static System.Console;class P{static void Main(){Write(":q");if(ReadLine()[3]==':')Write(new System.Random().Next()>9?":x":":q!");}}

ลองออนไลน์!

• บันทึก 1 ไบต์ขอบคุณ LiefdeWen!
• บันทึก 1 ไบต์ต้องขอบคุณ Mord Zuber!

> <> , 32 30 29 ไบต์

• !oมีซ้ำซ้อน
• -1 ไบต์ขอบคุณแอรอน

iii0["@!qx:q:"ooi{=?;o!ox~oo;

ลองออนไลน์!

คำอธิบาย (เก่า)

"@!qx:q:"ooi~i~i~i{=?;o!ox~oo;
"@!qx:q:"                        Push @!qx:q: on the stack (in reverse)
         oo                      Print :q [stack: @!qx:]
           i~i~i~                Remove first 3 input characters
                 i               Load @ or : from the input (= i)
                  {              Shift stack to the left [stack: !qx:i@]
                   =?            If 4th character was @
                     ;              Exit
                                 Else
                      o             Print :
                       !o           Jump to
                         x          Random direction (left or right because
                                    up and down retrigger x)
                                       Left:
                     ;o!o                 Print x and exit.
                                       Right:
                          ~oo;            Remove x, print q! and exit.

(จะอัปเดตในไม่ช้า)

ที่จริงแล้ว 27 ไบต์

":q"ü[":x",":q!"]`⌂`J'!,cIƒ

ลองออนไลน์! (หมายเหตุ: เนื่องจาก TIO เล่นได้ไม่ดีกับ stdin ฉันได้แทนที่,(อ่านจาก stdin) ด้วยสตริงตัวอักษรซึ่งคุณสามารถเปลี่ยนเพื่อทดสอบได้นอกจากนี้คุณจะต้องปิดใช้งานแคชเอาต์พุตเพื่อรับ การตอบสนองที่แตกต่างกับเอาต์พุตสุ่ม)

คำอธิบาย:

":q"ü[":x",":q!"]`⌂`J'!,cIƒ
":q"ü                       - Push the literal :q and print
     [":x",":q!"]           - Push the list of literals :x and :q!
                 `⌂`J       - Push function literals ⌂ (terminate) and J (choose random element from list)
                     '!     - Push the literal !
                       ,    - Read from stdin
                        c   - Pop top two values a,b and return "a".count(b)
                         I  - Pop top three values a,b,c and return b if a is truthy and c if a is falsy
                          ƒ - Pop a function from the stack and call it

APL (Dyalog) 27 ไบต์

':q'⋄('!'∊⍞)/':q!' ':x'⊃⍨?2

ลองออนไลน์!

':q' พิมพ์สิ่งนี้

⋄ แล้วก็

?2 จำนวนเต็มแบบสุ่มในสองคนแรก

⊃⍨ ใช้สิ่งนั้นเพื่อเลือกจาก

':q!' ':x' รายการของสองสายนี้

(... )/ ซ้ำว่าคือทำให้nสำเนาขององค์ประกอบในการที่แต่ละที่nคือ

 '!'∊⍞ เครื่องหมายอัศเจรีย์เป็นสมาชิกของการป้อนข้อความอย่างไร (บูลีนเช่น 0 หรือ 1)

แบตช์ 98 ไบต์

@echo :q
@set/ps=
@if %s:~3,1%==@ exit/b
@set/an=%random%%%2
@if %n%==0 (echo :x)else echo :q!

Ruby , 33 ไบต์ (รหัส 32, +1 สำหรับแฟล็ก -n)

p:q;$_[?!]? p([:q!,:x][$$%2]): p

ฉันไม่แน่ใจใน$$%2ตัวอย่างมากเกินไป ฉันใช้มันเพื่อสร้างบิตสุ่มเพื่อจัดทำดัชนีอาร์เรย์ของฉันโดยการใช้ pid modulo 2 ของกระบวนการทับทิมในปัจจุบันและมันจะคาดเดาไม่ได้เลยทีเดียว .sampleเพิ่มไบต์พิเศษ

ลองออนไลน์!

JavaScript, 76 71 50 ไบต์

prompt(":q")[3]<"@"?alert(new Date%2?":q!":":x"):0

บันทึกเป็นจำนวนมากต้องขอบคุณ Artyer และ Neil รวมถึงการรวม ternaries ของฉันและย้ายการแจ้งเตือนครั้งแรกเพื่อแจ้งให้ (duh)

Python 2 , 64 ไบต์

import time
if'w'in input(':q'):print'::qx!'[time.time()%2>1::2]

ลองออนไลน์!

เนื่องจากนี่เป็นเพียงการรวมตัวกันของคำตอบของPython ทั้งสองนี้ฉันจึงทำเครื่องหมายว่านี่เป็นวิกิชุมชน

Python 2 , 47 ไบต์

print'::qx!'[id(0)%3<2:('N'in input(':q'))*5:2]

ลองออนไลน์

คำอธิบาย:

id(0)%3<2แหล่งที่มาของแบบแผนคือ ฟังก์ชันidส่งคืนตำแหน่งหน่วยความจำของพารามิเตอร์ การส่งสิ่งใดจะให้ที่อยู่หน่วยความจำที่ไม่ได้กำหนดไว้ล่วงหน้า ผลลัพธ์จะเป็นเลขคู่เสมอ แต่บางครั้งก็หารด้วย 3 ได้ผลลัพธ์โมดูโล 3 แตกต่างกันไป ดังนั้นนี่อาจเป็นแหล่งกำเนิดของการสุ่ม โดยใช้<2วิธีการว่าประมาณ 2/3 Trueของเวลาที่บูลที่เกิดคือ

ส่วนที่เหลือของคำตอบคือได้แรงบันดาลใจจากคนนี้

ถัง ,14 12 ไบต์

\:~2%[q\!|x]

สิ่งนี้จะผลักดันตัวเลขสุ่มและเอาท์พุทสัมพันธ์กับตัวเลขสุ่ม

TCL, 95 ไบต์

puts :q;puts [if [string match *!* [gets stdin]] {puts [lindex ":q! :x" [expr round(rand())]]}]

ทางออกที่ง่ายและค่อนข้างยาวใน tcl ...

การเรียกระบบ86Bytes ของระบบประกอบ

global _start
_start:
mov edx,4
mov ecx,g 
mov ebx,1
mov eax,4
int 0x80
g db ':q!',10

โลโก้, 37 36 ไบต์

pr[:q]if 4<count rl[pr pick[:q! :x]]

ลองมันออนไลน์ได้ที่ตรวจสอบผลการดำเนินงานความโกลาหลกอล์ฟ

คำอธิบาย:

pr[:q]if 4<count rl[pr pick[:q! :x]]   Main program.
pr                                     Print
  [:q]                                 the list `[:q]` without delimiter `[]`
      if           [              ]    If...
         4<                            4 is less than...
           count                       the number of word in the...
                 rl                    ReadLine (from stdin),
                    pr                 print
                       pick            a random word picked from the list...
                           [:q! :x]    [:q! :x]

(เพราะE37@vimmachine: /var/override)มี 2 ​​คำในขณะที่E37: No write since last change (add ! to override)มี 10 คำ)

Perl 5 (พร้อมแฟล็ก -E), 35 ไบต์

say":q";<>=~l&&say qw(:q! :x)[$$%2]

perl -E 'say":q";<>=~l&&say qw(:q! :x)[$$%2]'ทำงานนี้ด้วย

ลองออนไลน์!

Ungolfed:

say(":q");
if(<> =~ /l/){ #read a line and check if it contains 'l'
    @a=(":q!",":x");
    say($a[$$ % 2]); #print one element from array based on PID
}