• ต้นฉบับ: https://james-iry.blogspot.co.at/2009/05/brief-incomplete-and-mostly-wrong.html

  Alain Colmerauer ออกแบบภาษาโปรล็อกตรรกะ เป้าหมายของเขาคือการสร้างภาษาการเขียนโปรแกรมที่ฉลาดเหมือนเด็กสองขวบ เพื่อพิสูจน์ว่าเขาประสบความสำเร็จในเป้าหมายของเขาเขาได้เสนอโปรแกรม Prolog ที่ตอบว่า "ไม่" อย่างมีประสิทธิภาพสำหรับการสอบถามทั้งหมด
  ถามอะไรก็ได้!
  -

• (แน่นอนว่าเขาไม่ได้ทำ) งานของคุณคือสร้างโปรแกรมที่ฉลาดกว่าโปรแกรมของ Alain Colmerauer สิ่งนี้ไม่จำเป็นต้องอยู่ใน Prolog

ข้อมูลจำเพาะ

• หากอินพุตลงท้ายด้วย?และมีอย่างน้อยหนึ่ง,ข้อความให้ส่งคืนจากข้อความสุดท้าย,จนถึงก่อนหน้า?จนกระทั่งก่อนสุดท้าย

• มิฉะนั้นถ้าสิ้นสุดการป้อนข้อมูลที่มีผลตอบแทน?No

• อื่นกลับมา Yesอื่นกลับมา

กฎระเบียบ

• ไม่มีช่องโหว่มาตรฐาน
• อินพุต / เอาต์พุตจะดำเนินการผ่านวิธีการอินพุต / เอาต์พุตมาตรฐานของเรา
• โปรแกรมของคุณจะต้องทำการสอบถามอย่างน้อย 1 ครั้ง
• คุณควรส่งออกการสอบถามที่ประมวลผลแล้ว
• YesและNo 's เป็นกรณี ๆ ในตัวอย่าง
• คุณรับประกันได้ว่าหากอินพุตมี a ?อินพุตจะมีเพียงหนึ่งอินพุต?และมันจะเป็นตัวละครสุดท้ายเสมอ
• อินพุตจะเป็นวลี / ประโยคเสมอ วลีนี้ / ประโยคจะไม่เพียง แต่มีตัวละคร,และ?เช่น,, ?และ,?ไม่ได้เป็นปัจจัยการผลิตที่ถูกต้อง (แม้ว่าการส่งอาจนำไปใช้ต่อไปได้เนื่องจากวลี / ประโยคเป็นสตริงว่างในกรณีเหล่านี้)
• ,?นอกจากนี้การป้อนข้อมูลจะไม่จบด้วย
• หากมีช่องว่างทันทีหลังจากครั้งสุดท้าย,หรือทันทีก่อนที่?พวกเขาควรจะรวมอยู่ในการส่งออก

ตัวอย่าง

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ǝθ¨ë”…Ü

-1 ขอบคุณไบต์@Grimy

ลองมันออนไลน์หรือตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย:

'?å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"อย่างไร

Python 3 , 62 ไบต์

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

ลองออนไลน์!

นิพจน์~(','in s)*('?'in s)ประเมินค่าเป็น0(เช่น'Yes') หากสตริงไม่มี a '?'และอื่น ๆ-1(เช่น'No') หากสตริงไม่มี a ','และมิฉะนั้น-2(เช่นส่วนที่คั่นด้วยเครื่องหมายจุลภาคสุดท้ายของสตริงซึ่งไม่รวมอักขระสุดท้าย)

JavaScript (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

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด แก้ไข: บันทึกแล้ว 1 ไบต์ขอบคุณ @KevinCruijssen คำอธิบาย:

¿№θ?

สตริงมี?s หรือไม่?

¿№θ,

มันมี,s หรือไม่?

⊟⪪θ,

แยกสตริงที่,s และจดล่าสุด

⁻...?

ลบ ?และผลลัพธ์ผลลัพธ์

No

หากไม่มี,s แล้วเอาท์พุทNoการส่งออกแล้ว

Yes

หากไม่มี?s Yesการส่งออกแล้ว

Perl 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 32ไบต์

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

-4 ไบต์พร้อมด้วยเคล็ดลับจาก@Neil @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 สำหรับสูตรดังนั้น ...

Python 3 , 98 87 ไบต์

-9 ไบต์ขอบคุณ ElPedro

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]

ลองออนไลน์!

Perl 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 # Interactive Compiler) , 72 ไบต์

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

บันทึก 2 ไบต์ขอบคุณ @someone

ลองออนไลน์!

Python 2 , 66 63 62 ไบต์

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

ลองออนไลน์!

-3 หลังจากพบคำอธิบายที่ปรับปรุงแล้ว "อินพุตจะมีเพียงหนึ่งเท่านั้นและจะเป็นอักขระตัวสุดท้ายเสมอ"

-1 ด้วย @ChasBrown

โดยทั่วไปพอร์ตของฉันคำตอบ Lotus Notes อยากรู้อยากเห็นการชี้แจงระบุไว้ข้างต้นไม่ได้ช่วยให้คำตอบหมายเหตุเนื่องจาก@Endsเป็น 4 @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";})

ลองออนไลน์!

-2 ไบต์ขอบคุณ @ceilingcat