Vim adalah editor teks yang bagus untuk sistem unix, tetapi terkenal sulit untuk keluar.

Tulis program lengkap yang akan ditampilkan :quntuk keluar dari Vim. Kemudian harus membaca satu baris input, karena kemudian akan diberikan bash prompt, dalam hal ini keluar berhasil, atau kesalahan, dalam hal ini ada perubahan yang belum disimpan.

Bash prompt akan menjadi ini:

E37@vimmachine: /var/override)

Sementara kesalahannya adalah ini:

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

Setelah diberi bash prompt, pekerjaan program selesai, dan seharusnya tidak memberikan output lagi (kecuali untuk spasi putih).

Setelah diberi kesalahan, program Anda harus secara acak (yaitu setiap kemungkinan memiliki probabilitas yang tidak nol untuk dipilih) :q!, untuk keluar tanpa menyimpan, atau :x, untuk menyimpan dan keluar.

Ini adalah kode-golf sehingga byte paling sedikit di setiap bahasa menang!

Python 2 , 66 byte

Disimpan 3 byte berkat @ Mr.Xcoder dan 4 terima kasih ke @Mayube!

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

Cobalah online!

Ruby , 35 byte

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

Cobalah online!

05AB1E , 19 byte

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

Cobalah online!

„: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 byte

Jawaban ini sudah di luar golf .

-1 byte terima kasih kepada Rod. -3 byte terima kasih kepada Mayube. -3 byte terima kasih kepada Artyer.

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

Cobalah online!

Vimscript, 45 41 byte

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

Memotong 4 byte dengan menggunakan getpid()untuk mendapatkan nomor. (Adakah yang bisa memikirkan cara yang lebih pendek untuk mendapatkan nomor yang tidak akan sama di mana-mana, sepanjang waktu?)

Dengan asumsi +3 byte untuk menjalankan Vim dengan -cmenjalankan skrip di atas dan -membaca input dari stdin:

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

JavaScript, 52 46 byte

Disimpan 6 byte berkat @ETHProductions

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

C # (.NET Core) , 140 139 138 byte

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

Cobalah online!

• 1 byte disimpan berkat LiefdeWen!
• 1 byte disimpan berkat Mord Zuber!

> <> , 32 30 29 byte

• Sudah mubazir !o.
• -1 byte terima kasih kepada Aaron.

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

Cobalah online!

Penjelasan (lama)

"@!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.

(akan segera diperbarui)

Sebenarnya , 27 byte

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

Cobalah online! (Catatan: Karena TIO tidak bermain bagus dengan stdin, saya telah mengganti ,(baca dari stdin) dengan string literal, yang dapat Anda ubah untuk mengujinya. Selain itu, Anda harus menonaktifkan cache output untuk mendapatkan respon yang berbeda dengan output acak.)

Penjelasan:

":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 byte

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

Cobalah online!

':q' cetak ini

⋄ kemudian

?2 bilangan bulat acak di antara dua yang pertama

⊃⍨ gunakan itu untuk memilih dari

':q!' ':x' daftar dua string ini

(... )/ meniru itu dengan, yaitu membuat n salinan dari setiap elemen di dalamnya, di mana n adalah

 '!'∊⍞ Apakah tanda seru anggota input teks? (Boolean, yaitu 0 atau 1)

Batch, 98 byte

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

Ruby , 33 byte (32 kode, +1 untuk -n bendera)

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

Saya tidak terlalu yakin pada $$%2cuplikannya. Saya menggunakannya untuk menghasilkan bit acak untuk mengindeks array saya dengan mengambil modul pid 2 proses ruby ​​saat ini, dan itu akan cukup tak terduga. .samplemenambahkan byte tambahan.

Cobalah online!

JavaScript, 76 71 50 byte

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

Menyelamatkan banyak byte berkat Artyer dan Neil, dan juga kondensasi terner saya dan memindahkan peringatan pertama ke prompt (duh).

Python 2 , 64 byte

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

Cobalah online!

Karena ini hanya sebuah aglomerasi kedua dari ini jawaban Python, yang sudah ditandai ini sebagai komunitas wiki.

Python 2 , 47 byte

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

Cobalah online

Penjelasan:

Sumber keacakan adalah id(0)%3<2. Fungsi idmengembalikan lokasi memori parameter. Melewati apa pun akan memberikan alamat memori yang non-deterministik. Hasilnya akan selalu genap, tetapi kadang-kadang hanya akan habis dibagi 3. Hasilnya modulo 3 bervariasi. Jadi, ini bisa menjadi sumber keacakan. Menggunakan <2berarti kira-kira 2/3 dari waktu, boolean yang dihasilkan adalah True.

Jawaban sisanya terinspirasi oleh yang satu ini .

Tong ,14 12 byte

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

Ini mendorong angka acak dan menghasilkan sesuai dengan angka acak.

TCL, 95 byte

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

Solusi sederhana dan agak panjang di ...

Majelis 86Bytes Panggilan Sistem Linux

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

LOGO, 37 36 byte

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

Cobalah online di pemeriksa Anarchy Golf Performance .

Penjelasan:

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]

(karena E37@vimmachine: /var/override)memiliki 2 kata, sedangkan E37: No write since last change (add ! to override)memiliki 10 kata)

Perl 5 (dengan flag -E), 35 byte

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

Jalankan ini dengan perl -E 'say":q";<>=~l&&say qw(:q! :x)[$$%2]'.

Cobalah online!

Tidak Disatukan:

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
}