Цей виклик натхненний мемом « Men of Culture» .

Мем включає вимивання частин оригінального заголовка,

Ах, я бачу, що ти і культурна людина.

щоб воно виглядало так, ніби персонаж говорить щось інше.

Ваше завдання полягає в тому, щоб написати програму, яка за допомогою введення показує, як можна вирівняти вихідне речення для досягнення вхідного рядка.

Правила:

• Використовуйте -символ, щоб зобразити вимкнений символ.
• Ви не повинні додавати додаткові літери для досягнення рядка введення
• Ви можете вважати порівняння рядків як невідчутними до регістру
• Ви можете ігнорувати пробіли у порівнянні з рядками
• Якщо заміна неможлива, виведіть помилкове значення.
• Ви також можете замінити зайвий пробіл на одиницю -, хоча це не потрібно.
• Там, де можливі кілька рішень, ви можете вивести будь-яке з них.

Тестові приклади:

Основні:

Приклад Meme 1

Ah, I see you're a well.
> Ah, I see you're a --- -- ------- -- well.

Приклад Meme 2

Ah, I see well.
> Ah, I see ------ - --- -- ------- -- well.

Корпус краю 1:

What did you just say about me, you little
> false

Корпус краю 2 (відредаговано):

*no input*
> --- - --- ------ - --- -- ------- -- -----

Проміжні:

Приклад Meme 3

Ah, I see you're Orwell.
> Ah, I see you're - --- o- -----r- -- well.

Приклад Meme 4

Ah, ymca.
> Ah, - --- y----- - m-- -- c------ a- ----.

Приклад Meme 5

Ah, a manual.
> Ah, - --- ------ a man -- -u----- a- --l-.
OR: > Ah, - --- ------ a man -- -u----- a- ---l.

Важче:

Приклад Meme 6

tea.
> --- - --- ------ - --- -- ---t--e a- ----.

Приклад Meme 7

eeeee
> --- - -ee -----e - --- -- ------e -- -e---

TL; DR: Давши рядок введення, виведіть рядок, який представляє, як початковий рядок повинен бути модифікований, щоб відповідати вхідній рядку, використовуючи "-", щоб представити вимкнений символ. Якщо заміна неможлива, виведіть помилкове значення.

Код гольфу, тому виграє найкоротший код у байтах.

Редагувати: Роз'яснення

• Ігнорувати пробіли у порівнянні рядків означає, що ви можете позбавити пробілів, перш ніж порівнювати рядки. Так , наприклад, входи Ah, a manualі Ah , a manualрозглядаються як рівні. Інші розділові знаки , ' .повинні бути збережені. Аналогічно для виходу продукції Ah, a manualдорівнює Ah, amanual.

• Замісний надлишковий пробіл відноситься до пробілів, присутнім у вихідному заголовку. Вам не потрібно замінювати їх на "-", але якщо замінити сітки, ви отримаєте більше очок, тоді продовжуйте.

> <> , 94 байти

"vAh, I see you're a Man of Culture as well.
0/i~ <r
!\:?!^:}=0={:@*:@"-"$?$~}$:@?
<>~i+0)?;>o

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

Залежно від регістру, не ігнорується пробіл або розділові знаки і виводиться порожній рядок, якщо введення недійсне. Якщо ви хочете спробувати інші рядки, ви можете просто змінити перший рядок після "v, доки він не містить "ані нульовий байт.

Сітківка 0,8,2 , 117 байт

^.
¶Ah, I see you're a Man of Culture as well.¶$&
{+i`¶(\W|(\w))(.*¶)(?(2)\W*\2)
$1¶$3
}1`¶\w
-¶
.*¶.*¶.*\w.*|¶.*¶.*

Спробуйте в Інтернеті! Не вдалося зберегти 1 байт, вимагаючи чутливості до регістру. Не вдалося зберегти 3 байти, повернувшись --, - --- ---'-- - --- -- ------- -- ----.на порожній вхід. Пояснення:

^.
¶Ah, I see you're a Man of Culture as well.¶$&

Додайте потрібний текст до вводу.

{+i`¶(\W|(\w))(.*¶)(?(2)\W*\2)
$1¶$3

Перемістіть якомога більше символів від потрібного тексту до результату. Якщо символом є буква, то вона також повинна відповідати наступній букві на вході, яка потім видаляється.

}1`¶\w
-¶

Якщо у введенні відсутня відповідна літера, змініть її на a -і спробуйте ще раз.

.*¶.*¶.*\w.*|¶.*¶.*

Якщо у вводі залишилися літери, видаліть усе, інакше видаліть залишок вводу.

Желе , 58 55 48 45 байт

“¬²Ẉ,ȷCIbƝɼeỴƤ/ɓIŒ;ṫṚS⁶_ŀỤ ṂB⁾÷ƈ»Ḣ”-1ị⁼ɗ?@€xṆ

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

Більш прочитана версія:

“Ah, I see you're a man of culture as well.”Ḣ”-1ị⁼ɗ?@€xṆ

Розбиття на стиск рядків:

Ah, I{short: see}{short: you}'re a{short: man} of{long: culture} as{short: we}ll.

Python 2 , 126 114 байт

i=input()
r=''
for c in"Ah, I see you're a man of culture as well.":x=c==i[:1];r+=c*x or'-';i=i[x:]
print(i=='')*r

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

Python 2 , 108 106 байт

Введення - це список знаків.

lambda i:''.join(c==`i`[2:3]and i.pop(0)or'-'for c in"Ah, I see you're a man of culture as well.")*(i==[])

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

JavaScript (Node.js) , 122 120 байт

x=>"Ah, I see you're a Man of Culture as well.".replace(/./g,c=>c>' '?/^(.)\1/i.test(c+x)?(x=x.slice(1).trim``,c):'-':c)

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

Пояснення:

x =>                 // It takes in 'x' as parameter for function a string
    "Ah, I see you're a Man of Culture as well.". // What the actual is 
            .replace(                             // Now we are gonna replace 
                    /./g,     // selects everything 
                    c =>      // lambda function with param c
                        c > ' ' ?                 
                        /^(.)\1/i.test(           // does it all
                            c + x ) ?            // checks if there is a match
                            (x=x.slice(1). // returns everything from 1 to end in an array
                                trim`` ,   // removes whitespaces
                            c : '-' : c)   // and done

Можна зменшити ще, але замінює пробіли на "-". Якщо це прийнятно, тоді

JavaScript (Node.js) , 112 байт

x=>"Ah, I see you're a Man of Culture as well.".replace(/./g,c=>/^(.)\1/i.test(c+x)?(x=x.slice(1).trim``,c):'-')

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

Зниження ще більше, лише замінює пробіли, що знаходяться після заданого рядка, на "-".

JavaScript (Node.js) , 105 байт

x=>"Ah, I see you're a Man of Culture as well.".replace(/./g,c=>/^(.)\1/i.test(c+x)?(x=x.slice(1),c):'-')

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

JavaScript (Node.js) , 135 байт

x=>!!x&&(t="Ah, I see you're a Man of Culture as well.".replace(/./g,c=>c>' '?/^(.)\1/i.test(c+x)?(x=x.slice(1).trim(),c):'-':c),!x&&t)

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

Якщо "може" означає, що робити чи не робити це добре, тоді

JavaScript (Node.js) , 106 байт

x=>x&&(t="Ah, I see you're a Man of Culture as well.".replace(/./g,c=>c==x[0]?(x=x.slice(1),c):'-'),!x&&t)

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

Brain-Flak , 764 600 байт

(((<>)))([]((((((([][][]()){}[]){})[][]){}))[[]()])[][]())([[]](([][](([][]){})[]){}())[[]])(([()()][]([[]]([()]([[]](((([()][][][])[]){}[]())[])[]))()()()))[[]])((([[][][]]((([](([()()()][]){})){})(()()()()){}())[[]])[]){})((((()((([][]){}())((()()()){}){})[[][][]]))){}{}())((()(((([]()()()())())){}{}()())[[][]]){}[])(([(()()()){}](((((()()()()){}[]))){}{}))((()()){}()){})(([()][][]([()()()][])))(((([][][]())[([]()()){}()])[]())[[]])([[]]((([]()())(()()()()){}){})()()()){([{}]<>({})){(<{}(((((()()()()())){}{})){}{})>)}{}(<({}<(<()>)<>{({}<>)<>}>{})>)<>{({}<>)<>}{}<>}{}<>{{{}}<>}<>{({}<>)<>}<>

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

Великі вдосконалення завдяки Джо Кінгу , особливо у струнній конструкції, а також у кількох логічних перетвореннях в основному корпусі. Пояснення від нього

Це чутливе до регістру (тому "А, я бачу, ти Орвелл". Не відповідає, але "А, я бачу, ти перебуваєш".), Пробіл у введенні не ігнорується, а незабезпечене пробіл у вихідному рядку - перетворений на -. На моє розуміння, всі ці дійсні варіанти.

Пояснення:

(476 bytes of much improved stack manipulation) #Push string

{ #While string
  ([{}]<>({})) #Check whether the top characters are equal
  {(<{}(((((()()()()())){}{})){}{})>)}{}  #If characters are not equal, push - on top of input
  (<({}<(<()>)<>{({}<>)<>}>{})>)<>{({}<>)<>}{}<>  #Take top of input (either - or matched char) and add to output
}{}
<>{{{}}<>} #Pop both stacks if input is left over
<>{({}<>)<>}<> #Reverse output

Haskell , 182 174 172 171 170 169 байт

import Data.Char
t=toLower
a!b=(b:)<$>a
""%l=Just$'-'<$l
l@(a:b)%(c:d)|t a==t c=b%d!c|1>0=l%d!'-'
_%_=mempty
(%"Ah, I see you're a man of culture as well.").concat.words

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

Безголівки:

import Data.Char

template = "Ah, I see you're a man of culture as well."

-- strip spaces
preprocess :: String -> String
preprocess = filter (/=' ')

-- case-insensitive character comparison
a#b = (toLower a) == (toLower b)

strike' :: String -> String -> Maybe String
strike' "" "" = Just ""  -- base case
strike' _ "" = Nothing   -- chars are exhausted, impossible to convert
strike' "" rem = Just $ '-' <$ rem  -- full match, strike rest of chars
strike' cur@(x:xs) (r:rs)
    | x # r     =   (r:) <$> strike' xs rs  -- character matches; pop a char
    | otherwise = ('-':) <$> strike' cur rs -- no match; strike char, don't pop

strike :: String -> Maybe String
strike xs = strike' (preprocess xs) template

Пролог (SWI) , 109 байт

[]+[]+[].
I+[B|X]+[C|O]:-(I=[B|J],B=C;I=J,C=45),J+X+O.
I-O:-I+`Ah, I see you're a man of culture as well.`+O.

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

Залежно від регістру та пробілів. -/2Предикат є основним предикат з його першим аргументом є рядок введення , а другий аргумент є вихідний рядки.

JavaScript (Node.js), 103 байти

s=>!s[i=0,r="Ah, I see you're a man of culture as well.".replace(/./g,c=>c==s[i]&&++i||c-1?c:'-'),i]&&r

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

Залежно від регістру.

Pyth , 78 байт ^SBCS

V." y°äz µÿéiSs¾ýØC[ócõ!ó5§n"=b.x@zZkIqbN=+kN=hZ.?=+k\-))I<Zlz!z.?k

Тестовий набір У
^{коді недруковані символи, див. Посилання на правильну версію.}
Залежно від регістру, не ігнорує пробіли.

Perl 5 -F , 192 байти

@q="Ah, I see you're a man of culture as well."=~/./g;while($x=shift@F){$x=~/\w/||next;while($_=shift@q){push@r,/\W/?$_:/\Q$x/i?$_:'-';$r[-1]=~/\w/i&&last}@q||last}say!$x&&@r,map/\w/?'-':$_,@q

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