• Bản gốc: https://james-iry.blogspot.co.at/2009/05/brief-incomplete-and-elyly-wrong.html

  Alain Colmerauer đã thiết kế ngôn ngữ lập trình logic Prolog. Mục tiêu của anh là tạo ra một ngôn ngữ lập trình thông minh như một đứa trẻ hai tuổi. Để chứng minh rằng mình đã thành công trong mục tiêu của mình, anh ấy đã trình bày một chương trình Prolog trả lời "Không" một cách hiệu quả cho tất cả các câu hỏi.
  Hỏi tôi bất cứ điều gì!
  ? -

• (Tất nhiên là anh ấy đã không làm.) Nhiệm vụ của bạn là tạo ra một chương trình thông minh hơn chương trình của Alain Colmerauer. Điều này không phải là trong Prolog.

Cụ thể

• Nếu đầu vào kết thúc bằng ?và có ít nhất một ,, hãy trả lại văn bản từ cuối cùng ,cho đến trước cuối cùng ?.

• Khác, nếu đầu vào kết thúc với ?trở lại No.

• Khác, trở về Yes.

Quy tắc

• Không có sơ hở tiêu chuẩn.
• Đầu vào / đầu ra sẽ được thực hiện thông qua các phương thức đầu vào / đầu ra tiêu chuẩn của chúng tôi.
• Chương trình của bạn phải mất ít nhất 1 yêu cầu.
• Bạn nên xuất yêu cầu xử lý.
• Các Yesvà No'là trường hợp nhạy cảm trong các ví dụ.
• Bạn được đảm bảo rằng nếu đầu vào bao gồm a ?, đầu vào sẽ chỉ có một ?và nó sẽ luôn là ký tự cuối cùng.
• Đầu vào sẽ luôn là một cụm từ / câu. Đây cụm từ / câu sẽ không bao giờ chỉ chứa các ký tự ,và ?, ví dụ ,, ?và ,?không phải là đầu vào hợp lệ. (Mặc dù các bài nộp có thể thực hiện nó bằng mọi cách, vì cụm từ / câu là một chuỗi trống trong những trường hợp này.)
• Ngoài ra, đầu vào sẽ không bao giờ kết thúc với ,?.
• Nếu có khoảng trắng ngay sau lần cuối ,hoặc ngay trước dấu ?, chúng sẽ được đưa vào đầu ra.

Ví dụ

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"

Chấm điểm

Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất bằng byte thắng.

05AB1E , 20 19 byte

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

-1 byte nhờ @Grimy .

Hãy thử trực tuyến hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình:

'?å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)

Xem mẹo 05AB1E này của tôi (phần Làm thế nào để sử dụng từ điển? ) Để hiểu tại sao ”€–”là "Not"và ”…Ülà "Yes".

Python 3 , 62 byte

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

Hãy thử trực tuyến!

Biểu thức ước lượng ~(','in s)*('?'in s)thành 0(tức là 'Yes') nếu chuỗi không chứa a '?', khác -1(tức là 'No') nếu chuỗi không chứa a ','và ngược lại -2(tức là phần được phân tách bằng dấu phẩy của chuỗi không bao gồm ký tự cuối cùng).

JavaScript (ES6),  53  52 byte

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

Hãy thử trực tuyến!

Đã bình luận

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'

Than , 23 22 byte

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

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Chỉnh sửa: Đã lưu 1 byte nhờ @KevinCruijssen. Giải trình:

¿№θ?

Chuỗi có chứa bất kỳ ?s?

¿№θ,

Nó có chứa bất kỳ ,s?

⊟⪪θ,

Tách chuỗi trên ,s và lấy cuối cùng.

⁻...?

Xóa ?và xuất kết quả.

No

Nếu không có ,s thì đầu ra No.

Yes

Nếu không có ?s thì đầu ra Yes.

Perl 5 + -plF/,|\?/, 25 byte

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

Hãy thử trực tuyến!

Bình thường , 25 byte

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

Hãy thử trực tuyến!

?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 byte

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

Hãy thử trực tuyến!

Một byte có thể được lưu nếu ends with,?và tương tự là không hợp lệ.

Stax , 16 byte

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

Chạy và gỡ lỗi nó

Võng mạc , 32 28 byte

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

-4 byte với các mẹo từ @Neil .

Hãy thử trực tuyến.

Giải trình:

   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)

Công thức ghi chú IBM / Lotus, 79 byte

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

Không có TIO cho Công thức nên ...

Python 3 , 98 87 byte

-9 byte nhờ ElPedro

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

Hãy thử trực tuyến!

Điều này đã bị đánh bại một cách chắc chắn bởi các câu trả lời khác, nhưng tôi đang thử chơi golf trong Python thêm một chút. Lời khuyên được đánh giá cao!

PHP , 58 byte

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

Hãy thử trực tuyến!

Màu đỏ , 78 byte

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

Hãy thử trực tuyến!

Perl 6 , 40 byte

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

Hãy thử trực tuyến!

Gema , 34 ký tự

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

Chạy mẫu:

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

Hãy thử trực tuyến! / Thử tất cả các trường hợp thử nghiệm trực tuyến!

Japt , 23 byte

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

Thử nó

C # (Trình biên dịch tương tác Visual C #) , 72 byte

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

Đã lưu 2 byte nhờ @someone

Hãy thử trực tuyến!

Python 2 , 66 63 62 byte

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

Hãy thử trực tuyến!

-3 sau khi phát hiện thông tin làm rõ được cập nhật "đầu vào sẽ chỉ có một? Và nó sẽ luôn là ký tự cuối cùng."

-1 cảm ơn @ChasBrown

Về cơ bản là một cổng của câu trả lời Lotus Notes của tôi . Thật kỳ lạ, sự làm rõ được ghi chú ở trên không giúp ghi chú trả lời vì @Endsrẻ hơn 4 byte so với @Contains. Bây giờ nếu chỉ có một @Inchức năng ...

Thạch , 20 byte

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

Hãy thử trực tuyến!

C ++ (gcc) , 120 118 byte

Macro giống như hàm:

#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";})

Hãy thử trực tuyến!

-2 byte nhờ @ceilingcat