• Оригінал: https://james-iry.blogspot.co.at/2009/05/brief-incomplete-and-mostly-wrong.html

  Ален Колмерауер розробив мову логічного програмування Prolog. Його метою було створити мову програмування, така ж розумна, як і дворічна дитина. Щоб довести, що він досяг успіху в своїй меті, він представив програму Prolog, яка відповідально відповідає "Ні" на всі запити.
  Запитай мене щось!
  ? -

• (Звичайно, він цього не зробив.) Ваше завдання - створити більш розумну програму, ніж програма Алена Колмерауера. Цього не повинно бути в Prolog.

Особливості

• Якщо вхід закінчується ?і має щонайменше один ,, повертайте текст від останнього ,до до останнього ?.

• Ще, якщо введення закінчується ?поверненням No.

• Ще, повернись Yes.

Правила

• Немає стандартних лазівки
• Введення / вихід буде здійснено за допомогою наших стандартних методів введення / виводу.
• Ваша програма повинна взяти щонайменше 1 запит.
• Вам слід вивести оброблений запит.
• В Yesі No«и чутливі до регістру в прикладах.
• Вам гарантовано, що якщо вхід включає в себе 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"

Оцінка балів

Це код-гольф , тому найкоротша відповідь у байтах виграє.

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 '?', else -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,?і подібні недійсні.

Стакс , 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 для Формули, так що ...

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"}

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

Гема , 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 . Цікаво, що пояснення, зазначене вище, не допомагає відповісти 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