Teman saya membuat penerjemah bahasa Inggris beberapa hari yang lalu, artinya mengambil string dan mengonversi s => th dan S => Th. Itu cukup lama dan saya pikir itu bisa bermain golf.

Jadi tugasnya adalah membuat program / fungsi yang mengambil string input, menerjemahkannya ke lisp dan output string

Kasus cobaan

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

Perhatikan bahwa tidak masalah jika dia diulang sepanjang waktu

Ini kode golf sehingga jawaban terpendek menang

Lithp Umum, 62

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

Pertama, (read)input (harus berupa string). String dalam CL adalah urutan sehingga kami gunakan mapuntuk beralih pada setiap karakter. Argumen pertama yang mapmerepresentasikan tipe hasil (mis. Saya bisa membuat daftar dari vektor). Ketika itu nil, alias (), hasilnya dibuang. Fungsi yang dipetakan ke input cukup princ(cetak tidak terbaca) setiap karakter, kecuali yang harus diganti.

Retina, 9 byte

S
Th
s
th

Cobalah online!

Jawaban yang jelas.

JavaThcript ETh6, 38 byte

Pada awalnya saya pergi dengan solusi yang jelas

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

Tapi saya memutarnya 4 byte

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

Ini menggunakan ibendera regex , yang mencari pola case-sensitive. Hal yang baik tentang Javascript adalah Anda dapat menentukan fungsi anonim untuk menangani penggantian (regex).

Coba di sini

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

Jawaban yang jelas.

$ 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 byte

“Ss”,“Th“th”y

Mematikan atom trantlate Jelly yang baru. Cobalah online!

Python 3 - 40 byteth

Golf pertama!

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

Ia menggunakan metode penerjemahanstr modul yang menerima tabel terjemahan. Tabel terjemahan sederhana dengan kode kunci sebagai kunci dan di tempat itu sebagai nilai.dictstr

JavaThcript ETh6, 43 byteth

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 byteth

Ís/th
ÍS/Th

Cobalah online!

Dengan bahasa yang saya buat. Itu tidak finithed, tapi itu benar-benar bagus di regekth.

C, 50 byte

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

Ganti \1dengan \x01byte yang sebenarnya .

jimmy23013 menyimpan satu byte, dan kemudian saya menyimpan dua lagi menggunakan pendekatannya! Terima kasih.

05AB1E, 14 12 byte

's„th:'S„Th:

Jawaban lurus ke depan.

Cobalah online

Disimpan 2 byte berkat @Adnan

Java, 71 65 byte

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

Usaha pertama bermain golf, jadi mengapa tidak dengan Jawa.

GNU AWK, 31 byte

Hanya menggunakan gsubfungsi untuk menerjemahkan S yang lebih rendah atau lebih tinggi melalui regex dan mencetaknya sesudahnya. Dapat bekerja dengan file, atau dengan stdinseperti dalam hal ini

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

CJam, 15 byte

q"sS""thTh"2/er

Uji di sini.

Penjelasan

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 byte

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

Turun 4 byte dengan bantuan @DenkerAffe !

C # 6.0 - 58 byte

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

Mengambil string input sebagai argumen ke fungsi.

Haskell, 36 byte

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

Karat, 46 byte

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

Cobalah online!

PHP, 42 Bytes

jika dijalankan dari file:

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

Jalankan sebagai:

~$ php [file] "This is Silly"

TI-Basic, 126 byte

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

Perhatikan bahwa ini adalah program yang lengkap tidak seperti jawaban Java sebelumnya .

Bonus (harus diumpankan ke C preprocessor, THE preprothethor THEE terlebih dahulu):

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

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

Suite uji

Terima kasih kepada @LeakyNun karena menemukan kesalahan ketik!

MATL , 17 byte

115'th'YX83'Th'YX

Cobalah online!

Penjelasan

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

Python 3, 53 byte

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

Pemakaian:

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

Tham and Thally like Thheep

Bahasa GameMaker, 74 byte

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

Matlab, 39 byteth

Pendekatan langsung:

@(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 mencoba untuk menjadi pintar ketika mengganti teks, tetapi kecerdasan itu rusak ketika string yang diganti hanya membutuhkan satu ruang, yaitu huruf kapital S. Untuk mencegah hal ini dari mengubah "Sam dan Sally" menjadi "THam and THally", seluruh kata lebih cocok sebagai gantinya. Namun, ini juga menangani "SAM dan Sally" dengan cara yang diinginkan, yaitu memproduksi "THAM and Thally".

kode mesin x86, 19 byte

Dalam hex:

86ac3c5374043c73750440aab068aa84c075eec3

Input:: ESIstring input,: EDIbuffer output.

Membongkar:

_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         

Menembus 98, 37 49 byte

Versi asli :

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

Mengakhiri edisi, sesuai konsensus:

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

Ini meninggalkan lubang klakson besar dalam kisi kode yang tidak begitu saya sukai. Saya akan melihat itu ketika saya punya waktu.
Byte ke-49 adalah ruang di akhir baris kedua, termasuk untuk memiliki kotak persegi panjang, yang diperlukan untuk mencegah ccbi (dan mungkin penerjemah lain) dari menyadap dan mencetak garis "Th" yang tak terbatas.

35 Byteth of Julia:

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

Cobalah online! (termasuk semua kasus uji)

SpecBAS ThpecBATh - 53 byte

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