Mein Freund hat neulich einen Lisp-Übersetzer gemacht, das heißt, er hat einen String genommen und s => th und S => Th konvertiert. Es war ziemlich lang und ich dachte, es könnte Golf gespielt werden.

Die Aufgabe besteht also darin, ein Programm / eine Funktion zu erstellen, die eine Eingabezeichenfolge akzeptiert, in lisp übersetzt und die Zeichenfolge ausgibt

Testfall

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

Beachten Sie, dass es keine Rolle spielt, dass h die ganze Zeit wiederholt wird

Dies ist Code Golf, also gewinnt die kürzeste Antwort

Gemeinsame Lithp, 62

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

Zuerst (read)die Eingabe (es sollte eine Zeichenkette sein). Zeichenfolgen in CL sind Sequenzen, mit denen wir mapjedes Zeichen durchlaufen. Das erste Argument, mapdas den Typ des Ergebnisses darstellt (z. B. könnte ich eine Liste aus einem Vektor erstellen). Wann ist esnil Fall ist (), werden die Ergebnisse verworfen. Die Funktion, die der Eingabe zugeordnet ist, princdruckt einfach jedes Zeichen (nicht lesbar), mit Ausnahme derjenigen, die ersetzt werden sollen.

Netzhaut, 9 Bytes

S
Th
s
th

Probieren Sie es online!

Die offensichtliche Antwort.

JavaThcript ETh6, 38 Bytes

Zuerst habe ich mich für die offensichtliche Lösung entschieden

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

Aber ich habe es 4 Bytes runter gespielt

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

Hierbei wird das Regex- iFlag verwendet, das nach Mustern sucht, bei denen die Groß- und Kleinschreibung nicht berücksichtigt wird. Das Gute an Javascript ist, dass Sie eine anonyme Funktion für das Ersetzen (Regex) angeben können.

Probieren Sie es hier aus

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

Die offensichtliche Antwort.

$ 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

Jelly , 13 Bytes

“Ss”,“Th“th”y

Jelly 'thhiny neues tranthlate Atom wegzuwerfen. Probieren Sie es online!

Python 3 - 40 byteth

Erstes Golfen!

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

Es verwendet die Übersetzungsmethode des strModuls, die eine Übersetzungstabelle akzeptiert. Die Übersetzungstabelle ist eine einfache Tabelle mit einem Schlüsselcode als Schlüssel und dem Ersatzschlüssel als Wert.dictstr

JavaThcript ETh6, 43 Byteth

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

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 byteth

Ís/th
ÍS/Th

Probieren Sie es online!

Mit einer Sprache, die ich gemacht habe. Es ist nicht abgeschlossen, aber es ist wirklich gut im Regieren.

C 50 Bytes

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

Ersetzen Sie \1mit einem tatsächlichen \x01Byte.

jimmy23013 hat ein Byte gespeichert, und dann habe ich mit seinem Ansatz zwei weitere gespeichert! Vielen Dank.

05AB1E, 14 12 Bytes

's„th:'S„Th:

Die direkte Antwort.

Probieren Sie es online aus

2 Bytes dank @Adnan gespart

Java, 71 65 Bytes

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

Erster Golfversuch, warum also nicht mit Java?

GNU AWK, 31 Bytes

Verwenden Sie einfach die gsubFunktion, um das untere oder obere S über Regex zu übersetzen und es anschließend zu drucken. Kann mit Dateien arbeiten, oder mit stdinwie in diesem Fall

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

CJam, 15 Bytes

q"sS""thTh"2/er

Teste es hier.

Erläuterung

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 Bytes

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

Fiel 4 Bytes mit Hilfe von @DenkerAffe !

C # 6.0 - 58 Bytes

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

Nimmt die Eingabezeichenfolge als Argument für die Funktion.

Haskell, 36 Bytes

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

Rust, 46 Bytes

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

Probieren Sie es online!

PHP, 42 Bytes

Wenn von einer Datei ausgeführt:

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

Rennen wie:

~$ php [file] "This is Silly"

TI-Basic, 126 Bytes

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 byteth

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

Beachten Sie, dass dies im Gegensatz zur vorherigen Java-Antwort ein vollständiges Programm ist .

Bonus (muss dem C-Präprozessor zugeführt werden Preprozessor THEE Preprothethor weitergeleitet werden):

#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 Bytes

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

Testsuite

Vielen Dank an @LeakyNun für den Tippfehler!

MATL , 17 Bytes

115'th'YX83'Th'YX

Probieren Sie es online!

Erläuterung

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

Python 3, 53 Bytes

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

Verwendung:

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

Tham and Thally like Thheep

GameMaker-Sprache, 74 Byte

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

Matlab, 39 byteth

Ein direkter Ansatz:

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

Emacth Lithp, 61 byteth

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

Emacs Lisp versucht, beim Ersetzen von Text schlau zu sein, aber diese Schlauheit bricht ab, wenn die ersetzte Zeichenfolge nur ein Leerzeichen, dh den Großbuchstaben S, einnimmt wird stattdessen abgeglichen. Dies behandelt jedoch auch "SAM und Sally" so, wie man es möchte, dh "THAM und Thally".

x86-Maschinencode, 19 Byte

In hex:

86ac3c5374043c73750440aab068aa84c075eec3

Eingabe:: ESIEingabezeichenfolge,: EDIAusgabepuffer.

Demontage:

_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 Bytes

Originalfassung :

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

Abschlussausgabe nach Konsens:

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

Dies hinterlässt ein großes Hupenloch im Code-Raster, über das ich nicht sehr glücklich bin. Ich werde das untersuchen, wenn ich Zeit habe.
Das 49. Byte ist ein Leerzeichen am Ende der zweiten Zeile, einschließlich eines rechteckigen Gitters, um zu verhindern, dass ccbi (und wahrscheinlich andere Interpreter) eine unendliche Zeile mit "Th" ausliest und druckt.

35 Byteth of Julia:

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

Probieren Sie es online! (beinhaltet alle Testfälle)

SpecBAS ThpecBATh - 53 Bytes

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