Mój przyjaciel zrobił tłumacz seplenny pewnego dnia, to znaczy, że wziął ciąg i przekształcił s => th i S => th. To było dość długie i myślałem, że można grać w golfa.

Zadanie polega więc na utworzeniu programu / funkcji, która pobiera ciąg wejściowy, tłumaczy go na lisp i wyprowadza ciąg

Przypadek testowy

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

Pamiętaj, że nie ma znaczenia, że ​​h cały czas się powtarza

To jest golf golfowy, więc wygrywa najkrótsza odpowiedź

Common Lithp, 62

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

Najpierw (read)dane wejściowe (powinien to być ciąg znaków). Ciągi w CL są sekwencjami, więc używamy mapdo iteracji każdego znaku. Pierwszy argument mapreprezentujący typ wyniku (np. Mógłbym zbudować listę z wektora). Gdy jest to nil, aka (), wyniki są odrzucane. Funkcja, która jest odwzorowana na dane wejściowe princ( po prostu drukuje nieczytelnie) każdy znak, z wyjątkiem tych, które powinny zostać zastąpione.

Siatkówka, 9 bajtów

S
Th
s
th

Wypróbuj online!

Oczywista odpowiedź.

JavaThcript ETh6, 38 bajtów

Na początku wybrałem oczywiste rozwiązanie

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

Ale grałem w golfa o 4 bajty

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

Wykorzystuje to iflagę regex , która wyszukuje wzorce bez rozróżniania wielkości liter. Zaletą Javascript jest to, że możesz określić anonimową funkcję do obsługi (regex) zastępowania.

Wypróbuj tutaj

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

Oczywista odpowiedź.

$ 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

Galaretka , 13 bajtów

“Ss”,“Th“th”y

Wyrzucenie galaretowatego nowego, cienkiego atomu trantylu. Wypróbuj online!

Python 3 - 40 bajtów

Pierwszy golf!

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

Wykorzystuje metodę translacjistr modułu, która akceptuje tabelę tłumaczeń. Tabela tłumaczeń jest prosta z kodem klucza jako kluczem i zamiast niego jako wartością.dictstr

JavaThcript ETh6, 43 bajty

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 bajtów

Ís/th
ÍS/Th

Wypróbuj online!

W języku, który stworzyłem. To nie jest skończone, ale naprawdę dobre w regekth.

C, 50 bajtów

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

Zamień \1na rzeczywisty \x01bajt.

jimmy23013 zapisał bajt, a następnie zapisałem dwa kolejne, używając jego podejścia! Dzięki.

05AB1E, 14 12 bajtów

's„th:'S„Th:

Prosta odpowiedź.

Wypróbuj online

Zaoszczędź 2 bajty dzięki @Adnan

Java, 71 65 bajtów

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

Pierwsza próba gry w golfa, więc dlaczego nie z Javą.

GNU AWK, 31 bajtów

Wystarczy użyć gsubfunkcji do przetłumaczenia dolnej lub górnej litery S za pomocą wyrażenia regularnego i wydrukowania go później. Może pracować z plikami lub z stdinjak w tym przypadku

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

CJam, 15 bajtów

q"sS""thTh"2/er

Sprawdź to tutaj.

Wyjaśnienie

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 bajtów

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

Usunięto 4 bajty za pomocą @DenkerAffe !

C # 6.0 - 58 bajtów

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

Pobiera ciąg wejściowy jako argument funkcji.

Haskell, 36 bajtów

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

Rdza, 46 bajtów

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

Wypróbuj online!

PHP, 42 bajty

jeśli jest uruchamiany z pliku:

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

Uruchom jako:

~$ php [file] "This is Silly"

TI-Basic, 126 bajtów

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 bajtów

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

Zauważ, że jest to kompletny program w przeciwieństwie do poprzedniej odpowiedzi Java .

Premia ( najpierw należy przekazać preprocesorowi C THE preprocessoror 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"));}}

Pyth, 14 bajtów

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

Zestaw testowy

Dzięki @LeakyNun za wykrycie literówki!

MATL , 17 bajtów

115'th'YX83'Th'YX

Wypróbuj online!

Wyjaśnienie

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

Python 3, 53 bajty

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

Stosowanie:

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

Tham and Thally like Thheep

GameMaker Language, 74 bajty

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

Matlab, 39 bajtów

Proste podejście:

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

Emacth Lithp, 61 bajtów

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

Emacs Lisp stara się być mądry podczas zamiany tekstu, ale ta inteligencja psuje się, gdy zastąpiony ciąg zajmuje tylko jedną spację, tj. Wielką literę S. Aby zapobiec konwersji tego słowa „Sam i Sally” na „THam i THally”, całe słowo jest dopasowany zamiast. Jednak to również obsługuje „SAM i Sally” tak, jak byśmy tego chcieli, tj. Produkują „THAM i Thally”.

kod maszynowy x86, 19 bajtów

W hex:

86ac3c5374043c73750440aab068aa84c075eec3

Dane wejściowe:: ESIciąg wejściowy,: EDIbufor wyjściowy.

Demontaż:

_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 bajtów

Orginalna wersja :

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

Zakończenie wydania, zgodnie z konsensusem:

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

Pozostawia to dużą lukę w siatce kodu, z której nie jestem bardzo zadowolony. Zajmę się tym, kiedy będę miał czas.
49. bajt to spacja na końcu drugiej linii, zawierająca prostokątną siatkę, niezbędna, aby uniemożliwić ccbi (i prawdopodobnie innym tłumaczom) wypaczenie i wydrukowanie nieskończonej linii „Th”.

35 Bajtów Julii:

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

Wypróbuj online! (obejmuje wszystkie przypadki testowe)

SpecBAS ThpecBATh - 53 bajty

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