Днями мій друг зробив перекладача lisp, тобто він взяв рядок і перетворив s => th і S => Th. Це було досить довго, і я думав, що це може бути гольф.

Таким чином, завдання полягає в тому, щоб зробити програму / функцію, яка приймає вхідний рядок, переводить його в lisp і виводить рядок

Тестовий випадок

Sam and Sally like Sheep        Tham and Thally like Thheep
Sally likes sausages            Thally liketh thauthageth
Sally sells seashells           Thally thellth theathhellth

Зауважте, що неважливо, що h постійно повторюється

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

Липп звичайний, 62

(map()(lambda(u)(princ(case u(#\s"th")(#\S"Th")(t u))))(read))

По-перше, (read)введення (це повинно бути рядок). Рядки в CL - це послідовності, тому ми використовуємо mapдля перебору кожного символу. Перший аргумент mapпредставляє тип результату (наприклад, я міг би створити список з вектора). Коли це nil, також (), результати відкидаються. Функція, яка відображається на вхід просто princ(друкується не читається) кожен символ, за винятком тих, які слід замінити.

Сітківка, 9 байт

S
Th
s
th

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

Очевидна відповідь.

JavaThcript ETh6, 38 байт

Спочатку я пішов з очевидним рішенням

a=>a.replace(/s/g,'th').replace(/S/g,'Th')

Але я пограв у нього в 4 байти

a=>a.replace(/s/gi,b=>b>'r'?'th':'Th')

Для цього використовується iпрапор регулярного вираження , який шукає нечутливі до регістру шаблони. Хороша річ у Javascript - це те, що ви можете вказати анонімну функцію для обробки (регекс) заміни.

Спробуйте тут

f=
a=>a.replace(/s/gi,b=>b>'r'?'th':'Th')

s.innerHTML = [
    'abScdsefSghsij',
    'Sam and Sally like Sheep',
    'Sally likes sausages',
    'Sally sells seashells'
].map(c=>c + ' => ' + f(c)).join`<br>`

<pre id=s>

GNU Sed - 17

s/S/Th/g;s/s/th/g

Очевидна відповідь.

$ sed -e "s/S/Th/g;s/s/th/g"

Sam and Sally like Sheep
Tham and Thally like Thheep

Sally likes sausages
Thally liketh thauthageth

Sally sells seashells
Thally thellth theathhellth

Желе , 13 байт

“Ss”,“Th“th”y

Відкидаючи новий крихітний атом Jelly'th. Спробуйте в Інтернеті!

Пітон 3 - 40 байт

Перший гольф!

lambda s:s.translate({115:'th',83:'Th'})

Він використовує метод перекладуstr модуля, який приймає таблицю перекладу. Таблиця перекладу проста, з клавішним кодом як клавішами, а замість неї як значенням.dictstr

JavaThcript ETh6, 43 байт

s=>s.replace(/s/gi,m=>({s:'th',S:'Th'})[m])

Tetht Thuite:

th=s=>s.replace(/s/gi,m=>({s:'th',S:'Th'})[m])
  
console.log(th('Sam and Sally like Sheep'));
console.log(th('Sally likes sausages'));
console.log(th('Sally sells seashells'));

V , 11 байт

Ís/th
ÍS/Th

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

V з мовою, яку я створив. Це не доопрацьовано, але це справді добре в регекті.

C, 50 байт

s(c){c=getchar();c+=c-83&95?0:'h\1';s(printf(&c));}

Замініть \1фактичним \x01байтом.

jimmy23013 врятував байт, а потім я врятував ще два, використовуючи його підхід! Спасибі.

05AB1E, 14 12 байт

's„th:'S„Th:

Пряма відповідь вперед.

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

Збережено 2 байти завдяки @Adnan

Java, 71 65 байт

String t(String s){return s.replace("S","Th").replace("s","th");}

Перша спроба гольфу, так чому б і не з Java.

GNU AWK, 31 байт

Просто використовуючи gsubфункцію для перекладу нижнього або верхнього S через регулярний вираз і надрукування після цього. Може працювати з файлами або з stdinтаким, як у цьому випадку

$ awk '{gsub(/s/,"th");gsub(/S/,"Th")}1' <<< "This is Sparta"                   
Thith ith Thparta

CJam, 15 байт

q"sS""thTh"2/er

Перевірте це тут.

Пояснення

q      e# Read input.
"sS"   e# Push string.
"thTh" e# Push string.
2/     e# Split into pairs, i.e. ["th" "Th"].
er     e# Transliteration, replaces 's' with 'th' and 'S' with 'Th'.

Python3 - 46 байт

lambda s:s.replace("s","th").replace("S","Th")

Випав 4 байти за допомогою @DenkerAffe !

C # 6,0 - 58 байт

string f(string s)=>s.Replace("s","th").Replace("S","Th");

Приймає рядок введення як аргумент функції.

Haskell, 36 байт

f 's'="th";f 'S'="Th";f x=[x]
(>>=f)

Іржа, 46 байт

|s:&str|s.replace("s","th").replace("S","Th");

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

PHP, 42 байти

якщо запустити з файлу:

<?=strtr($argv[1],["s"=>"th","S"=>"Th"]);

Виконувати як:

~$ php [file] "This is Silly"

TI-Basic, 126 байт

Input Str1
inString(Str1,"s
While Ans
sub(Str1,1,Ans-1)+"th"+sub(Str1,Ans+1,length(Str1)-Ans->Str1
inString(Str1,"s
End
inString(Str1,"S
While Ans
sub(Str1,1,Ans-1)+"Th"+sub(Str1,Ans+1,length(Str1)-Ans->Str1
inString(Str1,"S
End
Str1

Ява, 101 байт

interface a{static void main(String[]A){System.out.print(A[0].replace("S","Th").replace("s","th"));}}

Зауважте, що це повна програма на відміну від попередньої відповіді на Java .

Бонус (спочатку повинен бути переданий препроцесору C препроцесору THEE):

#define interfaith interface
#define thtatic static
#define Thtring String
#define Thythtem System
#define replaith(x,y) replace(x,y)

interfaith a{thtatic void main(Thtring[]A){Thythtem.out.print(A[0].replaith("S","Th").replaith("s","th"));}}

Піт, 14 байт

::z\s"th"\S"Th

Тестовий набір

Дякуємо @LeakyNun за те, що він помітив друкарську помилку!

MATL , 17 байт

115'th'YX83'Th'YX

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

Пояснення

115    % 's' (ASCII)
'th'   % String 'th'
YX     % Regex replacement
83     % 'S' (ASCII)
'Th'   % String 'Th'
YX     % Regex replacement

Python 3, 53 байти

def l(s):return s.replace("s","th").replace("S","Th")

Використання:

>> l('Sam and Sally like Sheep')

Tham and Thally like Thheep

GameMaker Мова, 74 байти

return string_replace_all(string_replace_all(argument0,'s','th'),'S','Th')

Матлаб, 39 байт

Невідкладний підхід:

@(t)strrep(strrep(t,'s','th'),'S','Th')

Емакт Літп, 61 байт

(lambda(s)(replace-regexp-in-string"[Ss]\\(\\w*\\)""th\\1"s))

Emacs Lisp намагається бути розумним під час заміни тексту, але ця розумність порушується, коли замінений рядок займає лише один пробіл, тобто велика літера S. Щоб запобігти цьому не перетворити "Сем і Саллі" на "THam and THally", ціле слово замість цього. Однак це також обробляє "SAM і Sally" так, як хотілося б, тобто виробляючи "THAM and Thally".

машинний код x86, 19 байт

У шістнадцятковій формі:

86ac3c5374043c73750440aab068aa84c075eec3

Вхід:: ESIрядок вводу,: EDIвихідний буфер.

Розбирання:

_loop:
0:  ac          lodsb       
1:  3c 53       cmp al,'S'  
3:  74 04       je _th      
5:  3c 73       cmp al,'s'  
7:  75 04       jne _nth    
_th:
9:  40          inc eax     ;[Ss]->[Tt]
a:  aa          stosb       
b:  b0 68       mov al,'h'  
_nth:
d:  aa          stosb       
e:  84 c0       test al,al  
10: 75 ee       jnz _loop   
12: c3          ret         

Befunge 98, 37 49 байт

Оригінальна версія:

~:"s"- #v_$"ht",>,
_;#-"S":<;$"hT",^ 

Закінчення видання відповідно до консенсусу:

~:a-!#@_:"s"-#v_$"ht",>,
_;#-"S":      <;$"hT",^ 

Це залишає велику лунку в кодовій сітці, що я не дуже радий. Я розберуся в цьому, коли матиму час.
49-й байт - це пробіл в кінці другого рядка, включений у прямокутну сітку, необхідну для запобігання виводу помилок ccbi (та, ймовірно, інших інтерпретаторів) та друку нескінченного рядка "Th" s.

35 Байт Юлії:

s->replace(s,r"s"i,s->"$(s[1]+1)h")

Спробуйте в Інтернеті! (включає всі тестові випадки)

SpecBAS ThpecBATh - 53 байти

1 INPUT a$: ?REPLACE$(REPLACE$(a$,"S","Th"),"s","th")