Vim은 유닉스 시스템을위한 훌륭한 텍스트 편집기이지만, 종료하기 어려운 것으로 유명합니다.

:qVim을 종료하기 위해 출력 할 전체 프로그램을 작성하십시오. 그런 다음, 한 줄의 입력을 읽어야합니다.이 경우 종료에 성공한 bash 프롬프트 나 변경 사항이 저장되지 않은 오류가 나타납니다.

bash 프롬프트는 다음과 같습니다.

E37@vimmachine: /var/override)

오류는 다음과 같습니다.

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

bash 프롬프트가 주어지면 프로그램 작업이 완료되고 더 이상 출력하지 않아야합니다 (공백 제외).

오류가 발생하면 프로그램은 무작위로 (즉, 각 가능성은 0이 아닌 확률이 선택됨) 출력 :q!, 저장하지 않고 종료 또는 :x, 저장 및 종료해야합니다.

이것은 코드 골프 이므로 각 언어에서 가장 적은 바이트 가 이깁니다!

파이썬 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]' -

자바 스크립트, 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있었습니다.
• Aaron 덕분에 -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 코드, -n 플래그의 경우 +1)

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

$$%2스 니펫 에 대해 잘 모르겠습니다 . 현재 루비 프로세스의 pid 모듈로 2를 가져 와서 배열을 색인하기 위해 임의의 비트를 생성하는 데 사용하고 있으며 상당히 예측할 수 없습니다. .sample여분의 바이트를 추가합니다.

온라인으로 사용해보십시오!

자바 스크립트, 76 71 50 바이트

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

Artyer와 Neil 덕분에 많은 3 바이트를 절약 할 수 있었으며 제 삼항을 정리하고 첫 번째 경고를 프롬프트 (duh)로 이동했습니다.

파이썬 2 , 64 바이트

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

온라인으로 사용해보십시오!

이의 단지 덩어리이기 때문에 모두 의 이러한 파이썬 답변, 나는 커뮤니티 위키로 이것을 표시했습니다.

파이썬 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의 간단하고 다소 긴 솔루션 ...

어셈블리 86 바이트 리눅스 시스템 호출

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 checker 에서 온라인으로 사용해보십시오 .

설명:

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
}