Bạn tôi đã làm một dịch giả lisp vào một ngày khác, nghĩa là nó đã lấy một chuỗi và chuyển đổi s => th và S => Th. Nó khá dài và tôi nghĩ rằng nó có thể được chơi gôn.

Vì vậy, nhiệm vụ là tạo một chương trình / hàm lấy chuỗi đầu vào, dịch nó thành lisp và xuất chuỗi

Trường hợp thử nghiệm

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

Lưu ý rằng việc h lặp đi lặp lại mọi lúc

Đây là mã golf nên câu trả lời ngắn nhất sẽ thắng

Tiếng Litva thông thường, 62

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

Đầu tiên, (read)đầu vào (nó phải là một chuỗi). Chuỗi trong CL là chuỗi nên chúng tôi sử dụng mapđể lặp trên mỗi ký tự. Đối số đầu tiên mapđại diện cho loại kết quả (ví dụ: tôi có thể xây dựng một danh sách từ một vectơ). Khi đó nil, aka (), kết quả bị loại bỏ. Hàm được ánh xạ tới đầu vào một cách đơn giản princ(in không thể đọc được) mỗi ký tự, ngoại trừ các ký tự cần được thay thế.

Võng mạc, 9 byte

S
Th
s
th

Hãy thử trực tuyến!

Câu trả lời rõ ràng.

JavaThcript ETh6, 38 byte

Lúc đầu tôi đi với giải pháp rõ ràng

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

Nhưng tôi đã đánh nó xuống 4 byte

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

Điều này sử dụng icờ regex , tìm kiếm các mẫu không phân biệt chữ hoa chữ thường. Điểm hay của Javascript là bạn có thể chỉ định một hàm ẩn danh để xử lý (regex) thay thế.

Hãy thử nó ở đây

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

Câu trả lời rõ ràng.

$ 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

Thạch , 13 byte

“Ss”,“Th“th”y

Loại bỏ nguyên tử tranthlate mới của Jelly'th. Hãy thử trực tuyến!

Python 3 - 40 byteth

Chơi golf đầu tiên!

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

Nó sử dụng phương thức dịchstr của mô-đun chấp nhận bảng dịch. Bảng dịch đơn giản với mã khóa là khóa và vị trí của nó là giá trị.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 giờ

Ís/th
ÍS/Th

Hãy thử trực tuyến!

V ith một ngôn ngữ tôi đã thực hiện. Nó không được hoàn thiện, nhưng nó thực sự tốt ở regekth.

C, 50 byte

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

Thay thế \1bằng một \x01byte thực tế .

jimmy23013 đã lưu một byte, và sau đó tôi đã lưu thêm hai byte bằng cách sử dụng phương pháp của anh ấy! Cảm ơn.

05AB1E, 14 12 byte

's„th:'S„Th:

Câu trả lời thẳng về phía trước.

Dùng thử trực tuyến

Đã lưu 2 byte nhờ @Adnan

Java, 71 65 byte

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

Lần đầu tiên thử chơi golf, vậy tại sao không với Java.

GNU AWK, 31 byte

Chỉ cần sử dụng gsubchức năng để dịch S thấp hơn hoặc cao hơn thông qua regex và in nó sau đó. Có thể làm việc với các tệp hoặc với stdinnhư trong trường hợp này

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

CJam, 15 byte

q"sS""thTh"2/er

Kiểm tra nó ở đây.

Giải trình

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

Giảm 4 byte với sự trợ giúp của @DenkerAffe !

C # 6.0 - 58 byte

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

Lấy chuỗi đầu vào làm đối số cho hàm.

Haskell, 36 byte

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

Rust, 46 byte

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

Hãy thử trực tuyến!

PHP, 42 byte

nếu chạy từ một tập tin:

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

Chạy như:

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

Lưu ý rằng đây là một chương trình hoàn chỉnh không giống như câu trả lời Java trước đó .

Phần thưởng (trước tiên phải được đưa vào bộ tiền xử lý C THEE preprothethor):

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

Bình thường, 14 byte

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

Bộ kiểm tra

Cảm ơn @LeakyNun vì đã phát hiện ra một lỗi đánh máy!

MATL , 17 byte

115'th'YX83'Th'YX

Hãy thử trực tuyến!

Giải trình

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

Sử dụng:

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

Tham and Thally like Thheep

Ngôn ngữ GameMaker, 74 byte

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

Matlab, 39 byteth

Một cách tiếp cận eo biển:

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

Emacth Litva, 61 byteth

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

Emacs Lisp cố gắng thông minh khi thay thế văn bản, nhưng sự thông minh đó bị phá vỡ khi chuỗi thay thế chỉ chiếm một khoảng trắng, tức là chữ in hoa S. Để ngăn điều này chuyển đổi "Sam và Sally" thành "THam và THally", toàn bộ từ được kết hợp thay thế. Tuy nhiên, điều này cũng xử lý "SAM và Sally" theo cách mà người ta muốn, tức là sản xuất "THAM và Thally".

mã máy x86, 19 byte

Trong hex:

86ac3c5374043c73750440aab068aa84c075eec3

Đầu vào :: ESIchuỗi đầu vào,EDI : bộ đệm đầu ra.

Tháo gỡ:

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

Phiên bản gốc :

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

Phiên bản chấm dứt, theo sự đồng thuận:

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

Điều này để lại một lỗ hổng lớn trong lưới mã mà tôi không hài lòng lắm. Tôi sẽ xem xét điều đó khi tôi có thời gian.
Byte thứ 49 là khoảng trắng ở cuối dòng thứ hai, được bao gồm để có lưới hình chữ nhật, được yêu cầu để ngăn ccbi (và có thể là các trình thông dịch khác) phát hiện ra và in một dòng "Th" vô hạn.

35 Byteth của Julia:

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

Hãy thử trực tuyến! (bao gồm tất cả các trường hợp thử nghiệm)

SpecBAS ThpecBATh - 53 byte

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