เพื่อนของฉันทำนักแปลเสียงกระเพื่อมในวันอื่น ๆ นั่นก็คือมันใช้เชือกและแปลง s => th และ S => Th มันค่อนข้างยาวและฉันคิดว่ามันสามารถเล่นกอล์ฟได้

ดังนั้นงานคือการสร้างโปรแกรม / ฟังก์ชั่นที่รับสายป้อนเข้าแปลมันเป็นเสียงกระเพื่อมและเอาท์พุทสตริง

กรณีทดสอบ

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

โปรดทราบว่าไม่สำคัญว่า h จะถูกทำซ้ำตลอดเวลา

นี่คือรหัสกอล์ฟเพื่อให้ได้คำตอบที่สั้นที่สุดชนะ

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แฟล็ก regex ซึ่งค้นหารูปแบบที่ไม่ต้องสนใจตัวพิมพ์เล็กและตัวพิมพ์ใหญ่ ข้อดีของ Javascript คือคุณสามารถระบุฟังก์ชันที่ไม่ระบุชื่อเพื่อจัดการ (regex) การแทนที่

ลองที่นี่

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

กำลังปิดอะตอม tranthlate ใหม่ของ Jelly'th ลองออนไลน์!

Python 3 - 40 byteth

ตีกอล์ฟครั้งแรก!

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

มันใช้วิธีการแปลstrของโมดูลซึ่งยอมรับตารางการแปล ตารางการแปลนั้นใช้งานง่ายโดยมีรหัสเป็นกุญแจและเป็นค่าแทน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

ลองออนไลน์!

ด้วยภาษาที่ฉันทำ มันไม่ใช่ finithed แต่มันดีจริงๆ

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

Java, 71 65 ไบต์

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

ความพยายามครั้งแรกในการเล่นกอล์ฟดังนั้นทำไมไม่ใช้ Java

GNU AWK, 31 ไบต์

เพียงแค่ใช้gsubฟังก์ชั่นในการแปล S หรือ S ที่ต่ำกว่าผ่าน Regex และพิมพ์มันในภายหลัง สามารถทำงานกับไฟล์หรือ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 byteth

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

ทราบว่านี้เป็นโปรแกรมที่สมบูรณ์แตกต่างจากคำตอบ Java ก่อนหน้านี้

โบนัส (จะต้องถูกส่งไปยังตัวประมวลผลล่วงหน้า C ล่วงหน้าก่อนพวกเขา):

#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 Language, 74 ไบต์

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

Matlab, 39 byteth

แนวทางที่แคบ:

@(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 พยายามที่จะฉลาดเมื่อเปลี่ยนข้อความ แต่ความฉลาดนั้นแตกเมื่อสตริงที่ถูกแทนที่ใช้พื้นที่เพียงหนึ่งเดียวนั่นคือตัวพิมพ์ใหญ่ S เพื่อป้องกันไม่ให้สิ่งนี้แปลง "แซมกับแซลลี" เป็น "THAM และ THally" จับคู่แทน อย่างไรก็ตามสิ่งนี้ยังจัดการ "SAM และ Sally" ในแบบที่เราต้องการเช่นการผลิต "THAM และ 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 bytes

รุ่นเดิม :

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

การยกเลิกฉบับเป็นฉันทามติ:

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

นี่ทำให้เกิดช่องโหว่ขนาดใหญ่ในกริดโค้ดที่ฉันไม่พอใจมาก ฉันจะดูว่าเมื่อฉันมีเวลา
ไบต์ที่ 49 เป็นช่องว่างที่ส่วนท้ายของบรรทัดที่สองซึ่งรวมถึงมีตารางสี่เหลี่ยมจำเป็นต้องป้องกัน ccbi (และอาจเป็นล่ามอื่น ๆ ) จากการดักฟังและพิมพ์บรรทัดที่ไม่มีที่สิ้นสุดของ "Th"

35 Byteth of Julia:

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

ลองออนไลน์! (รวมถึงกรณีทดสอบทั้งหมด)

SpecBAS ThpecBATh - 53 ไบต์

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