VimはUNIXシステム用の優れたテキストエディターですが、終了するのが難しいことで有名です。

:qVimを終了するために出力する完全なプログラムを作成します。その後、bashプロンプト（終了の場合）またはエラー（未保存の変更がある場合）が表示されるため、1行の入力を読み取る必要があります。

bashプロンプトは次のようになります。

E37@vimmachine: /var/override)

エラーはこれになりますが：

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

bashプロンプトが与えられると、プログラムの作業は完了し、それ以上の出力は行われないはずです（空白を除く）。

エラーが発生すると、プログラムは、出力:q!（保存せずに終了する、または保存して終了する）をランダムに（つまり、それぞれの可能性が0以外の確率で選択される）出力:xする必要があります。

これはコードゴルフなので、各言語で最少のバイトが勝ちます！

Python 2、66バイト

@ Mr.Xcoderのおかげで3バイト、@ Mayubeのおかげで4バイト節約されました！

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

オンラインでお試しください！

ルビー、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

パイソン2、76の 75 72 69バイト

この答えはゴルフから外れています。

Rodのおかげで-1バイト。Mayubeのおかげで-3バイト。Artyerのおかげで-3バイト。

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

オンラインでお試しください！

Vimscript、45 41バイト

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

を使用getpid()して数値を取得することにより、4バイト削ります。（だれでも、どこでも同じではない番号を取得するためのもっと短い方法を考えることができますか？）

-c上記のスクリプトを実行し、-stdinから入力を読み取るためにVimを呼び出すために+3バイトを想定します。

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

JavaScript、52 46バイト

@ETHProductionsのおかげで6バイト節約

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

C＃（.NETコア）、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!");}}

オンラインでお試しください！

• LiefdeWenのおかげで1バイト節約！
• Mord Zuberのおかげで1バイト節約されました！

> <>、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 最初の2つの間のランダムな整数

⊃⍨ それを使用して選択します

':q!' ':x' この2つの文字列のリスト

(... )/ それを複製します。つまり、その中の各要素の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コード、-nフラグの場合は+1）

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

$$%2スニペットについてはよくわかりません。現在のrubyプロセスのpidモジュロ2を使用して配列にインデックスを付けるランダムビットを生成するために使用していますが、これはかなり予測不可能です。.sample余分なバイトを追加します。

オンラインでお試しください！

JavaScript、76 71 50バイト

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

ArtyerとNeilのおかげで大量のバイトを節約できました。また、3進数を凝縮し、最初のアラートをプロンプト（duh）に移動しました。

Python 2、64バイト

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

オンラインでお試しください！

これは、これらの Pythonの回答の両方の単なる集積であるため、これをコミュニティWikiとしてマークしました。

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 Linuxシステムコール

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]]

Anarchy Golf Performanceチェッカーでオンラインでお試しください。

説明：

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]'ます。

オンラインでお試しください！

ゴルフをしていない：

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
}