• 원본 : https://james-iry.blogspot.co.at/2009/05/brief-incomplete-and-mostly-wrong.html

  Alain Colmerauer는 논리 프로그래밍 언어 인 Prolog를 설계했습니다. 그의 목표는 2 살짜리 아이처럼 지능적인 프로그래밍 언어를 만드는 것이 었습니다. 자신의 목표에 성공했음을 증명하기 위해 모든 문의에 대해 "아니오"라고 대답 한 Prolog 프로그램을 발표했습니다.
  뭐든지 물어보세요!
  ?-

• (물론 그는 그렇지 않았습니다.) 당신의 임무는 Alain Colmerauer의 프로그램보다 더 지능적인 프로그램을 만드는 것입니다. 프롤로그에있을 필요는 없습니다.

사양

• 입력이 끝나고 ?하나 이상이 있으면 ,마지막 ,부터 끝까지 텍스트를 반환합니다 ?.

• 와 그렇지, 만약 입력이 종료 ?반환 No.

• 그렇지 않으면을 반환하십시오 Yes.

규칙

• 표준 허점이 없습니다.
• 입 / 출력은 표준 입 / 출력 방법을 통해 이루어집니다.
• 프로그램은 적어도 1 번의 문의를 받아야합니다.
• 처리 된 조회를 출력해야합니다.
• Yes과 No의 대소 문자를 구분 예에 있습니다.
• 입력에가 포함되어 있으면 입력에 ?하나만 ?있고 항상 마지막 문자가됩니다.
• 입력은 항상 문구 / 문장입니다. 이 문구 / 문장 만 문자를 포함하지 않습니다 ,하고 ?, 예를 들어 ,, ?및 ,?유효 입력하지 않습니다. (이 경우 어구 / 문장은 빈 문자열이므로 제출은 어쨌든 구현할 수 있습니다.)
• 또한 입력은로 끝나지 않습니다 ,?.
• 마지막 바로 뒤에 ,또는 바로 앞에 공백이 있으면 ?출력에 포함해야합니다.

예

Hmm. -> Yes
Alright, -> Yes
Ask me anything! -> Yes
Ask me a question, please! -> Yes
Are you okay? -> No
No? -> No
Hey,does this program work? -> does this program work

Quotes in the following test cases should not be outputted.
They are used as a delimiter here.

Okay, so this does work ? -> " so this does work "
Please, add, a, test, case, containing, multiple, commas? -> " commas"

채점

이것은 code-golf 이므로 바이트 단위의 최단 답변이 이깁니다.

05AB1E , 20 19 바이트

'?åi',¡”€–”0ǝθ¨ë”…Ü

@Grimy 덕분에 -1 바이트 .

온라인으로 시도 하거나 모든 테스트 사례를 확인하십시오 .

설명:

'?åi          '# If the (implicit) input contains a "?":
    ',¡       '#  Split the (implicit) input on ","
       ”€–”    #  Push dictionary string "Not"
           0ǝ  #  Insert it at the first position (index 0) in the list
       θ       #  Then get the last item of the list
        ¨      #  And remove the last character
               #  (either the "?" of the original input; or the "t" in "Not")
      ë        # Else:
       ”…Ü     #  Push dictionary string "Yes"
               # (after which the top of the stack is output implicitly as result)

내이 05AB1E 팁을 참조하십시오 (섹션 어떻게 사전을 사용하는 방법을? ) 이유를 이해하는 ”€–”것입니다 "Not"하고 ”…Ü있다 "Yes".

파이썬 3 , 62 바이트

lambda s:['Yes',*s[:-1].split(','),'No'][~(','in s)*('?'in s)]

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

표현식 ~(','in s)*('?'in s)평가 0(즉, 'Yes'문자열이 포함되지 않은 경우) '?', 다른 -1(즉 'No'문자열이 포함되지 않은 경우) ',', 그렇지 않으면 -2(즉, 마지막 문자를 제외한 문자열의 마지막 쉼표로 구분 된 섹션).

자바 스크립트 (ES6),  53  52 바이트

s=>(m=s.match(/(,?)([^,]*)\?/))?m[1]?m[2]:'No':'Yes'

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

댓글

s =>                  // s = input string
  ( m = s.match(      // m is the result of matching in s:
  //     +------------>    an optional comma
  //     |     +------>    followed by a string containing no comma
  //     |     |   +-->    followed by a question mark
  //   <--><-----><>     
      /(,?)([^,]*)\?/
  )) ?                // if m is not null:
    m[1] ?            //   if the comma exists:
      m[2]            //     output the string following it
    :                 //   else:
      'No'            //     output 'No'
  :                   // else:
    'Yes'             //   output 'Yes'

숯 , 23 22 바이트

¿№θ?¿№θ,⁻⊟⪪θ,¦?¦No¦Yes

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 편집 : @KevinCruijssen 덕분에 1 바이트가 절약되었습니다. 설명:

¿№θ?

문자열에 ?s가 포함되어 있습니까?

¿№θ,

,s가 포함되어 있습니까?

⊟⪪θ,

에서 문자열을 나누고 ,마지막을 가져갑니다.

⁻...?

를 삭제하고 ?결과를 출력하십시오.

No

,s 가 없으면 출력 No합니다.

Yes

?s 가 없으면 출력 Yes합니다.

펄 5 + -plF/,|\?/, 25 바이트

$_=/\?$/?/,/?pop@F:No:Yes

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

Pyth , 25 바이트

?qeQ\??}\,QPecQ\,"No""Yes

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

?q                          # if       ==
  eQ\?                      #    Q[-1]    "?":
      ?}                    #   if     in   
        \,Q                 #      ","    Q:
             cQ\,           #     return split(Q, ",")
            e               #                         [-1] (last element)
           P                #                             [:-1] (remove the trailing ?)
                 "No"       #   else: return "No"
                     "Yes"  # else: return "Yes" (last " implicit)

Zsh , 51 바이트

<<<${${${1#*\?}:+Yes}:-${${${${1##*,}%$1}:-No}%\?}}

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

ends with,?유효하지 않은 경우 바이트를 저장할 수 있습니다 .

Stax , 16 바이트

ëw‼◘╔╤▬n→ª▒¡Γ╟ï¿

실행 및 디버깅

레티 나 , 32 28 바이트

^'?K`Yes
.+,(.*)\?
$1
'?K`No

-4에서 팁 바이트 @Neil .

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

설명:

   K`       # Replace any (implicit) input, which does
^           # NOT
 '?        '# contain a "?"
     Yes    # with "Yes"

.+          # Match 1 or more characters
  ,         # followed by a comma
    .*      # followed by zero or more characters,
   (  )     # (captured in capture group 1)
       \?   # followed by a (trailing) "?"
$1          # And replace it with just the match of capture group 1,
            # (so everything between the last comma and trailing question mark)

  K`        # Replace any remaining string, which does
'?         '# contain a "?"
    No      # with "No"

            # (after which the result is output implicitly)

IBM / Lotus Notes 공식, 79 바이트

@If(@Ends(i;"?");@If(@Contains(i;",");@Left(@RightBack(i;",");"?");"No");"Yes")

공식에 대한 TIO가 없으므로 ...

파이썬 3 , 98 87 바이트

ElPedro 덕분에 -9 바이트

x=input();o="Yes"
if"?"==x[-1]:o=x[(x.rfind(",")+1):-1]if x.count(",")else"No"
print(o)

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

이것은 다른 답변에 의해 확실하게 구타되었지만 Python에서 골프를 조금 더 시도하고 있습니다. 조언 부탁드립니다!

PHP , 58 바이트

<?=$argn[-1]=='?'?substr(strrchr($argn,','),1,-1)?:No:Yes;

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

빨강 , 78 바이트

func[s][r:"Yes"parse s[to","copy t to"?"(r: last split t",")| to"?"(r:"No")]r]

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

펄 6 , 40 바이트

{m/[\,(.*?)]*\?$/??$0.tail||"No"!!"Yes"}

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

Gema , 34 자

*,*\?=@subst{\*,=;$2}
*\?=No
*=Yes

샘플 실행 :

bash-5.0$ echo -n 'Hey,does this program work?' | gema '*,*\?=@subst{\*,=;$2};*\?=No;*=Yes'
does this program work

온라인으로 사용해보십시오! / 모든 테스트 사례를 온라인으로 시도하십시오!

Japt , 23 바이트

ø'? ?Uq, hoinu¹Ìk'?:`Y

시도 해봐

C # (Visual C # 대화식 컴파일러) , 72 바이트

x=>x.Last()!=63?"Yes":x.Contains(',')?x.Split(',').Last().Trim('?'):"No"

@someone 덕분에 2 바이트를 절약했습니다.

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

파이썬 2 , 66 63 62 바이트

lambda i:("Yes",("No",i[i.rfind(",")+1:-1])[","in i])["?"in i]

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

-3 업데이트 된 설명을 확인한 후 "입력에 하나만 있고 항상 마지막 문자가됩니다."

@ChasBrown 덕분에 -1

기본적으로 내 Lotus Notes 응답 포트입니다 . 흥미롭게도 위에서 언급 한 설명은보다 @Ends4 바이트 저렴 하기 때문에 Notes의 답변에 도움이되지 않습니다 @Contains. @In기능 만 있다면 ...

젤리 , 20 바이트

Ṗṣ”,Ṫ⁾NoḊ?Ɗ“Yes”i?”?

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

C ++ (GCC) , 120 (118) 바이트

함수형 매크로 :

#include<string>
#define f(s)({int i{},j{};for(;s[i];)j=s[++i]-44?j:i;s[--i]-63?"Yes":j?std::string(s-~j,i+~j):"No";})

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

@ceilingcat 덕분에 -2 바이트