Arkadaşım geçen gün lisp tercümanı yaptı, yani sicim aldı ve s => th ve S => Th. Oldukça uzundu ve golf oynayabileceğini düşündüm.

Böylece görev bir girdi dizgisini alan, onu lisp'a çeviren ve dizgeyi çıkaran bir program / işlev yapmaktır.

Test durumu

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

H'nin her zaman tekrarlanmasının önemli olmadığını unutmayın.

Bu kod golf çok kısa cevap kazanır

Ortak Lithp, 62

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

İlk olarak, (read)giriş (bir dize olmalı). CL'deki diziler dizilerdir, bu yüzden mapher karakterde yineleme yapmak için kullanırız . İlk argüman mapsonucun türünü temsil eder (örneğin, bir vektörden bir liste oluşturabilirim). Olduğunda nil, aka (), sonuçlar atılır. Girdiye eşleştirilen işlev, princdeğiştirilmesi gerekenler dışındaki her karaktere basitçe (okunaksız yazdırın).

Retina, 9 bayt

S
Th
s
th

Çevrimiçi deneyin!

Bariz cevap.

JavaThcript ETh6, 38 bayt

İlk başta bariz bir çözüm ile gittim

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

Ama ben 4 byte aşağı golf

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

Bu, büyük / iküçük harf duyarlı olmayan kalıpları arayan regex bayrağını kullanır . Javascript ile ilgili iyi bir şey (regex) değiştirme işlemek için adsız bir işlev belirtebilirsiniz.

Burada dene

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

Bariz cevap.

$ 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

Jöle , 13 bayt

“Ss”,“Th“th”y

Jelly 'in yeni yeni traklat atomunu attığımda. Çevrimiçi deneyin!

Python 3 - 40 byteth

İlk golf!

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

Bir çeviri tablosunu kabul eden strmodülün çeviri yöntemini kullanır . Çeviri tablosu, dictanahtar olarak anahtar kodu ve stryerine değer olarak basittir .

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

Çevrimiçi deneyin!

Yaptığım bir dilde. Bitmedi, ama regekth'de gerçekten iyi.

C, 50 bayt

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

\1Gerçek bir \x01bayt ile değiştirin .

jimmy23013 bir bayt kurtardı ve sonra onun yaklaşımını kullanarak iki tane daha kaydettim! Teşekkürler.

05AB1E, 14 12 bayt

's„th:'S„Th:

Dümdüz ileri cevap.

Çevrimiçi deneyin

@Adnan sayesinde 2 bayt kaydedildi

Java, 71 65 bayt

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

Golfe ilk girişimi, neden Java ile değil.

GNU AWK, 31 bayt

Sadece gsubalt veya üst S'yi regex yoluyla çevirmek ve sonra yazdırmak için işlevini kullanmak . Dosyalarla veya stdinbu durumda olduğu gibi çalışabilir

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

CJam, 15 bayt

q"sS""thTh"2/er

Burada test et.

açıklama

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 bayt

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

@DenkerAffe'nin yardımıyla 4 byte düştü !

C # 6.0 - 58 bayt

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

Giriş dizesini işleve argüman olarak alır.

Haskell, 36 bayt

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

Pas, 46 bayt

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

Çevrimiçi deneyin!

PHP, 42 Bayt

bir dosyadan çalıştırıldığında:

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

Olarak çalıştırmak:

~$ php [file] "This is Silly"

TI-Basic, 126 bayt

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

Bunun önceki Java cevabından farklı bir program olduğunu unutmayın .

Bonus (önce C önişlemcisinin THE önişlemcisine verilmelidir)

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

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

Test odası

Yazım hatası tespit ettiğiniz için @LeakyNun'a teşekkürler!

MATL , 17 bayt

115'th'YX83'Th'YX

Çevrimiçi deneyin!

açıklama

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

Python 3, 53 bayt

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

Kullanımı:

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

Tham and Thally like Thheep

GameMaker Dili, 74 bayt

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

Matlab, 39 byteth

Daha güçlü bir yaklaşım:

@(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, metni değiştirirken akıllı olmaya çalışır, ancak değiştirilen dize yalnızca bir alan kapladığında bu akıllılık bozulur, yani büyük harf S. yerine eşleştirilir. Bununla birlikte, bu aynı zamanda "SAM ve Sally" yi istediği gibi, yani "THAM ve Thally" üretmek gibi ele alır.

x86 makine kodu, 19 bayt

Onaltılı olarak:

86ac3c5374043c73750440aab068aa84c075eec3

Giriş:: ESIgiriş dizesi,: EDIçıktı tamponu.

demontaj:

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

Orijinal versiyon :

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

Konsensüs uyarınca, fesih baskısı:

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

Bu, kod ızgarasında çok mutlu olmadığım büyük bir honking deliği bırakır. Buna vaktim olduğunda bakacağım.
49. bayt, ikinci satırın sonunda, ccbi'nin (ve muhtemelen diğer tercümanların) sonsuz bir "Th" ler satırının çıkmasını ve yazdırmasını engellemek için gereken dikdörtgen bir ızgaraya sahip olan bir alandır.

Julia'nın Byte 35'i:

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

Çevrimiçi deneyin! (tüm test durumlarını içerir)

SpecBAS ThpecBATh - 53 bayt

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