Vim - чудовий текстовий редактор для Unix-систем, однак він відомий тим, що важко вийти.

Напишіть повну програму, яка виведе :qдля виходу з Vim. Потім він повинен прочитати один рядок введення, оскільки тоді йому буде надано підказку bash, і в цьому випадку вихід був успішним, або помилка, і в цьому випадку є незбережені зміни.

Підказка bash буде такою:

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!'])

Спробуйте в Інтернеті!

Рубін , 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 байт завдяки Роду. -3 байти завдяки Mayube. -3 байти завдяки Artyer.

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

Спробуйте в Інтернеті!

Вимскрипт, 45 41 байт

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 байт збережено завдяки Морду Зуберу!

> <> , 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фрагменті. Я використовую його для генерування випадкового біта для індексації мого масиву, беручи поточну модуль 2 pid-процесу рубіну, і це буде досить непередбачувано. .sampleдодає додатковий байт.

Спробуйте в Інтернеті!

JavaScript, 76 71 50 байт

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

Зберегли купу байтів завдяки Artyer та Neil, а також конденсували мої тернарії та перенесли сповіщення сповіщення (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 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 байт

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

Спробуйте його в Інтернеті за допомогою перевірки продуктивності Golf Anarchy .

Пояснення:

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
}