Мой друг на днях сделал переводчик шрифтов, то есть он взял строку и преобразовал 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

Обратите внимание, что не имеет значения, что ч повторяется все время

Это код гольф, поэтому самый короткий ответ выигрывает

Common Lithp, 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

Отбросив желе от нового тонкого атома трантхлата. Попробуйте онлайн!

Python 3 - 40 байт

Первый гольф!

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

Он использует метод translatestr модуля, который принимает таблицу перевода. Таблица перевода проста с ключевым кодом в качестве ключей и вместо него в качестве значения.dictstr

JavaThcript ETh6, 43 байта

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

Тетт Туит:

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

Попробуйте онлайн!

На этом языке я сделал. Это не ограничено, но это действительно хорошо в regekth.

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

Ява, 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

Java, 101 байт

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

Обратите внимание, что это полная программа в отличие от предыдущего ответа Java .

Бонус (должен быть передан препроцессору C THE препротеор сначала):

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

Pyth, 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')

Emacth Lithp, 61 байт

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

Emacs Lisp пытается быть умным при замене текста, но эта сообразительность ломается, когда заменяемая строка занимает только один пробел, то есть заглавную букву S. Чтобы не допустить преобразования «Сэма и Салли» в «ТАМ и ТАЛЛИ», все слово сопоставляется вместо. Тем не менее, это также обрабатывает «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».

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