Vim ist ein großartiger Texteditor für Unix-Systeme, der jedoch bekanntermaßen schwer zu beenden ist.

Schreiben Sie ein vollständiges Programm, das ausgegeben wird :q, um Vim zu beenden. Es sollte dann eine einzelne Eingabezeile lesen, da es dann entweder eine Bash-Eingabeaufforderung erhält, in welchem ​​Fall der Exit erfolgreich war, oder einen Fehler, in welchem ​​Fall ungespeicherte Änderungen vorliegen.

Die Bash-Eingabeaufforderung lautet:

E37@vimmachine: /var/override)

Während der Fehler wird dies sein:

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

Mit der Bash-Eingabeaufforderung ist die Arbeit des Programms abgeschlossen und es sollte keine Ausgabe mehr erfolgen (mit Ausnahme von Leerzeichen).

Nach Erhalt des Fehlers sollte Ihr Programm nach dem Zufallsprinzip (dh jede Möglichkeit hat eine Wahrscheinlichkeit ungleich Null, ausgewählt zu werden) ausgegeben werden :q!, um den Vorgang ohne Speichern zu beenden oder :xum den Vorgang zu speichern und zu beenden.

Dies ist Codegolf, so dass die wenigsten Bytes in jeder Sprache gewinnen!

Python 2 , 66 Bytes

3 Bytes gespart dank @ Mr.Xcoder und 4 dank @Mayube!

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

Probieren Sie es online!

Ruby , 35 Bytes

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

Probieren Sie es online!

05AB1E , 19 Bytes

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

Probieren Sie es 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 Bytes

Diese Antwort wurde abgelehnt .

-1 Byte dank Rod. -3 Bytes dank Mayube. -3 Bytes dank Artyer.

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

Probieren Sie es online!

Vimscript, 45 41 Bytes

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

4 Bytes mit rasiert getpid(), um eine Zahl zu erhalten. (Kann sich jemand einen kürzeren Weg vorstellen, um eine Nummer zu erhalten, die nicht überall gleich ist?)

Angenommen, Sie rufen Vim mit +3 Byte auf -c, um das obige Skript auszuführen und -Eingaben von stdin zu lesen:

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

JavaScript, 52 46 Bytes

6 Bytes gespart dank @ETHProductions

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

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

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

Probieren Sie es online!

• Dank LiefdeWen 1 Byte gespart!
• 1 Byte gespart dank Mord Zuber!

> <> , 32 30 29 Bytes

• Hatte einen überflüssigen !o.
• -1 Byte danke an Aaron.

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

Probieren Sie es online!

Erklärung (alt)

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

(wird bald aktualisiert)

Eigentlich 27 Bytes

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

Probieren Sie es online! (Hinweis: Da TIO mit stdin nicht gut funktioniert, habe ich die ,(von stdin gelesene) Zeichenfolge durch die Literalzeichenfolge ersetzt, die Sie ändern können, um sie zu testen. Außerdem müssen Sie den Ausgabe-Cache deaktivieren, um sie abzurufen eine andere Antwort mit der zufälligen Ausgabe.)

Erläuterung:

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

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

Probieren Sie es online!

':q' drucke das aus

⋄ dann

?2 zufällige ganze Zahl unter den ersten beiden

⊃⍨ Verwenden Sie das, um aus auszuwählen

':q!' ':x' Diese Liste von zwei Zeichenfolgen

(… )/ Repliziere das mit, dh mache n Kopien von jedem Element darin, wo n ist

 '!'∊⍞ Ist das Ausrufezeichen ein Element der Texteingabe? (Boolean, dh 0 oder 1)

Batch, 98 Bytes

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

Ruby , 33 Bytes (32 Code, +1 für -n Flag)

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

Ich bin mir nicht sicher, was das $$%2Snippet angeht. Ich benutze es, um ein zufälliges Bit zu generieren, um mein Array zu indizieren, indem ich das pid modulo 2 des aktuellen Ruby-Prozesses nehme, und es wird ziemlich unvorhersehbar sein. .sampleFügt ein zusätzliches Byte hinzu.

Probieren Sie es online!

JavaScript, 76 71 50 Bytes

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

Dank Artyer und Neil konnte ich eine Menge Bytes sparen, meine Ternaries verdichten und den ersten Alarm auslösen, um (duh) aufzufordern.

Python 2 , 64 Bytes

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

Probieren Sie es online!

Da dies nur eine Ansammlung von ist sowohl von diesen Python Antworten, habe ich dies als Community Wiki markiert.

Python 2 , 47 Bytes

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

Probieren Sie es online aus

Erläuterung:

Die Quelle der Zufälligkeit ist id(0)%3<2. Die Funktion idgibt den Speicherort des Parameters zurück. Wenn Sie irgendetwas übergeben, erhalten Sie eine nicht deterministische Speicheradresse. Das Ergebnis wird immer gerade sein, aber es wird nur manchmal durch 3 teilbar sein. Die Ergebnisse modulo 3 variieren. Dies kann also eine Quelle der Zufälligkeit sein. Using <2bedeutet, dass ungefähr 2/3 der Zeit der resultierende Boolesche Wert ist True.

Der Rest der Antwort ist von dieser inspiriert .

Fass ,14 12 Bytes

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

Dadurch wird eine Zufallszahl verschoben und entsprechend der Zufallszahl ausgegeben.

TCL, 95 Bytes

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

Eine einfache und ziemlich lange Lösung in tcl ...

Assembly 86Bytes Linux Systemaufrufe

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

LOGO, 37 36 Bytes

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

Probieren Sie es online bei Anarchy Golf Performance Checker .

Erläuterung:

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]

(weil E37@vimmachine: /var/override)2 Wörter hat, während E37: No write since last change (add ! to override)10 Wörter hat)

Perl 5 (mit -E Flag), 35 Bytes

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

Führen Sie dies mit perl -E 'say":q";<>=~l&&say qw(:q! :x)[$$%2]'.

Probieren Sie es online!

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
}