Vim, unix sistemleri için harika bir metin editörüdür, ancak çıkması zor olduğu için ünlüdür.

:qVim'den çıkmak için çıkacak tam bir program yazın . Daha sonra, bir bash komut istemi verileceği için tek bir giriş satırı okumalıdır, bu durumda çıkış başarılı olmuş veya bir hata, bu durumda kaydedilmemiş değişiklikler vardır.

Bash bilgi istemi şöyle olacaktır:

E37@vimmachine: /var/override)

Hata bu olacak olsa da:

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

Bash istemi verildikten sonra, programın işi yapılır ve daha fazla çıktı vermemelidir (boşluk hariç).

Hata verildikten sonra, programınız rasgele (yani, her ihtimalde sıfır olma olasılığı bulunmaz) çıktı :q!, :xkaydetmeden çıkma, kaydetme ve çıkma.

Bu kod golf, yani her dilde en az bayt kazanıyor!

Python 2 , 66 bayt

@ Mr.Xcoder ve 4 @Mayube sayesinde 4 bayt kaydedildi!

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

Çevrimiçi deneyin!

Ruby , 35 bayt

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

Çevrimiçi deneyin!

05AB1E , 19 bayt

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

Çevrimiçi deneyin!

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

Bu cevap dışarıda bırakılmıştır .

Rod sayesinde -1 bayt. Mayube sayesinde -3 bayt. Artyer sayesinde -3 bayt.

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

Çevrimiçi deneyin!

Vimscript, 45 41 bayt

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

getpid()Bir sayı almak için kullanarak 4 bayt kapalı . (Herkes her yerde, her zaman aynı olmayacak bir sayı almanın daha kısa bir yolunu düşünebilir mi?)

-cYukarıdaki komut dosyasını çalıştırmak ve -stdin'den girdi okumak için Vim'i çağırmak için +3 bayt varsayarak :

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

JavaScript, 52 46 bayt

@ETHProductions sayesinde 6 bayt kurtardı

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

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

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

Çevrimiçi deneyin!

• LiefdeWen sayesinde 1 bayt kurtarıldı!
• Mord Zuber sayesinde 1 bayt kurtarıldı!

> <> , 32 30 29 bayt

• Fazlalık vardı !o.
• Aaron sayesinde -1 bayt.

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

Çevrimiçi deneyin!

Açıklama (eski)

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

(yakında güncellenecek)

Aslında , 27 bayt

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

Çevrimiçi deneyin! (Not: TIO stdin ile hoş görünmediğinden, ,(stdin'den okunan) yerine test etmek için değiştirebileceğiniz değişmez dizgiyi değiştirdim. Ayrıca, elde etmek için çıkış önbelleğini devre dışı bırakmanız gerekir. rastgele çıktı ile farklı bir cevap.)

Açıklama:

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

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

Çevrimiçi deneyin!

':q' bunu yazdır

⋄ sonra

?2 ilk ikisi arasında rastgele tamsayı

⊃⍨ seçmek için kullanın

':q!' ':x' bu iki dizenin listesi

(… )/ Bunu, yani her bir elemanın n kopyasını, n'nin olduğu yerde kopyalayın.

 '!'∊⍞ ünlem işareti metin girişinin bir üyesi mi? (Boolean, yani 0 veya 1)

Toplu iş, 98 bayt

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

Ruby , 33 bayt (32 kod, -n bayrağı için +1)

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

$$%2Snippet'ten pek emin değilim . Geçerli yakut sürecinin pid modulo 2'sini alarak dizimi endekslemek için rastgele bir bit üretmek için kullanıyorum ve bu oldukça tahmin edilemez. .samplefazladan bir bayt ekler.

Çevrimiçi deneyin!

JavaScript, 76 71 50 bayt

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

Artyer ve Neil sayesinde bir sürü bayt kurtardı, ayrıca üçlülerimi yoğunlaştırıp ilk uyarıyı harekete geçirmek (duh).

Python 2,64 bayt

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

Çevrimiçi deneyin!

Bu sadece bir aglomerasyon olduğundan hem arasında bu Python cevaplar, ben topluluk wiki olarak bu işaretledim.

Python 2 , 47 bayt

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

Çevrimiçi deneyin

Açıklama:

Rastgeleğin kaynağı id(0)%3<2. Fonksiyon idparametrenin hafıza konumunu döndürür. Herhangi bir şeyi iletmek deterministik olmayan bir hafıza adresi verecektir. Sonuç her zaman eşit olacaktır, ancak yalnızca bazen 3 ile bölünebilir. Sonuçlar modulo 3 değişebilir. Yani, bu bir rastgelelik kaynağı olabilir. Kullanılması <2kabaca 2/3 zamanın o araçlar, çıkan boolean True.

Cevabın kalan esinlenerek bu bir .

Fıçı ,14 12 bayt

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

Bu, rastgele bir sayıyı iter ve rastgele sayıya karşılık gelen çıktılar verir.

TCL, 95 bayt

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

Tcl'de basit ve oldukça uzun bir çözüm ...

Montaj 86Bytes Linux Sistem Çağrıları

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

LOGO, 37 36 bayt

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

Anarchy Golf Performance checker'da çevrimiçi deneyin .

Açıklama:

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]

(çünkü E37@vimmachine: /var/override)2 kelime, E37: No write since last change (add ! to override)10 kelime ise)

Perl 5 (-E bayrağı ile), 35 bayt

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

Bunu çalıştır perl -E 'say":q";<>=~l&&say qw(:q! :x)[$$%2]'.

Çevrimiçi deneyin!

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
}