Galce bir sözcüğü temsil eden bir dize girdi olarak alan bir program veya işlev yazın (aksi belirtilmedikçe UTF-8).

Aşağıdakilerin tümü Galce'daki tek harflerdir :

a, b, c, ch, d, dd, e, f, ff, g, ng, h, h, i, j, l, ll, m, n, o, p, ph, r, rh, s, t, th, u, w, y

Wikipedia'dan alıntı yapmak ,

Her biri iki sembolle yazıldığında ch , dd , ff , ng , ll , ph , rh , th digraphslarının tümü tek harf olarak kabul edilir. Bu, örneğin, Llanelli'nin (Güney Galler'deki bir kasaba) İngilizce'deki sekiz harfe kıyasla Galce'de yalnızca altı harfe sahip olduğu anlamına gelir.

Bu mektuplar, diğer dillerden ödünç alınan teknik terimlerle sınırlı olsalar da, Galce'de bulunmaktadır:

k, q, v, x, z

Aksanlı harflerin ayrı harfler olduğu kabul edilmez, ancak işleviniz onları kabul etmeli ve onları sayabilmelidir. Muhtemel bu mektuplar:

â, ê, î, ô, ŷ, ŵ, á, é, í, ó, ú, ý, ẃ, ä, ë, ï,,,,, ẅ, à, è, ì, ï, ò, ù, ẁ

(Bu, ASCII'nin bu karakterleri kodlayamadığından kabul edilebilir bir giriş kodlaması olmadığı anlamına gelir.)

Notlar:

• Bu kod golfü.
• Sen gibi kelimeleri hesaba gerek yok llongyfarch hangi, ng bir digraph değil, iki ayrı harfler. Bu kelimenin dokuz harfi vardır, ancak sekiz olarak yanlış sayabilirsiniz. (Eğer varsa olabilir böyle bir deyişle hesaba, bu tür müthiş bir, ama bu meydan kapsamı dışındadır.)
• Girişin boşluk içermemesi garantilidir (tek bir izleyen yeni satırla (veya daha ezoterik bir şeyle tercih etmediğiniz sürece) (bu durumda sağlanabilir). Kesinlikle hiçbir iç boşluk olmayacak.

Test durumları:

• Llandudno, 8
• Llanelli, 6
• Rhyl, 3
• Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch, 50 (gerçekten 51, ancak 50 sayarız)
• Tar, 3
• Cymru, 5
• Glyndŵr, 7

05AB1E , 24 23 21 bayt

Kod:

u•éÓœ°D¥M™ù>•30B2ô0:g

Açıklama:

u                      # Convert the input to uppercase.
 •éÓœ°D¥M™ù>•30B       # Compressed version of CHDDFFNGLLPHRHTH.
                         It convert the text between the •'s from base 214 to
                         base 10 and converts that to base 30.
                2ô     # Split into pieces of 2.
                  0:   # Replace each element that also occurs in the input by 0.
                    g  # Get the length of the processed input.

CP-1252 kodlamasını kullanır . Çevrimiçi deneyin!

Retina , 23 bayt

i`[cprt]h|dd|ff|ng|ll|.

Çevrimiçi deneyin!

Hatta moar regex.

JavaScript (ES6), 44 bayt

x=>x.match(/[cprt]h|dd|ff|ng|ll|./gi).length

Önemsiz cevap en kısa olabilir.

BASH 52 50 (sed + wc) 41

-9 Jordan sayesinde

sed -r 's,dd|ff|ng|ll|[cprt]h,1,gi'|wc -m

Büyük harf gerekiyorsa i, bunun sed komutunun sonunda olması gerekir. (Dışarıda bıraktım, çünkü bazı örnekler olmasa da, söz konusu "tek harflerin tümü" küçük harflerden oluşuyor.

Straw , 30 58 35 33 bayt

<((?i:[cprt]h|dd|ff|ng|ll|.))0/$>

Regex'in her oluşumunu değiştirin 0ve unary'den ondalık karaktere dönüştürün.

Ne yazık ki, Straw bayraklarını regex'lere geçiremez. Ben unutmak ?flags:yapı

Çevrimiçi deneyin! (Eklenen kod tüm test durumlarını doğrulamak içindir)

Python 3, 64 bayt

import re
print(len(re.findall("[cprt]h|dd|ff|ng|ll|.",input())))

Regex'i tekrar kullanır

Ideone!

PowerShell v2 +, 52 50 48 bayt

($args[0]-replace'dd|ff|ng|ll|[prtc]h',0).length

-replaceTüm iki sembollü-tek harfli harflerin hepsinde bir değişiklik yapar, bunları değiştirir 0(rakamsız olarak değiştirmek için tırnak gerekir), sonra .lengthsonuç dizenin değerini alır .

Test durumları

PS C:\Tools\Scripts\golfing> 'Llandudno','Llanelli','Rhyl','Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch','Tŷr','Cymru','Glyndŵr'|%{"$_ --> "+(.\how-long-is-a-welsh-word.ps1 $_)}
Llandudno --> 8
Llanelli --> 6
Rhyl --> 3
Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch --> 50
Tŷr --> 3
Cymru --> 5
Glyndŵr --> 7

V , 31 bayt

Íã[cprt]hüddüffüngüllü./
Dé0@"

Çevrimiçi deneyin veya tüm test durumlarını doğrulayın!

Bu, bazı yazdırılamayan karakterler içeriyor, bu yüzden burada bir hexdump:

0000000: cde3 5b63 7072 745d 68fc 6464 fc66 66fc  ..[cprt]h.dd.ff.
0000010: 6e67 fc6c 6cfc 2e2f 010a 44e9 3040 22    ng.ll../..D.0@"

PHP, 56 Bayt

<?=preg_match_all("#[cprt]h|dd|ff|ll|ng|.#iu",$argv[1]);

Java 7, 156 73 bayt

@ OlivierGrégoire sayesinde bir sürü bayt kurtarıldı .

int c(String s){return s.replaceAll("[cprt]h|dd|ff|ng|ll","*").length();}

Ungolfed ve test durumları:

Burada dene.

class M{
  static int c(String s){
    return s.replaceAll("[cprt]h|dd|ff|ng|ll", "*").length();
  }

  public static void main(String[] a){
    System.out.println(c("llandudno"));
    System.out.println(c("llanelli"));
    System.out.println(c("rhyl"));
    System.out.println(c("llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch"));
    System.out.println(c("tŷr"));
    System.out.println(c("cymru"));
    System.out.println(c("glyndŵr"));
  }
}

Çıktı:

8
6
3
50
3
5
7

R, 54 bayt

Diğer cevaplara çok benzer. İki karakter harfinden herhangi biriyle eşleşir ve bunların yerine geçer @ve ardından karakter sayısını sayar. Stdin'den girişi okur. Hem küçük hem de büyük karakterlerle eşleşme seçeneğini ignore.case = TRUE(üçüncü argüman gsub) kullanır.

nchar(gsub("ch|dd|ff|ng|ll|ph|rh|th","@",scan(,""),T))

Bonus

Her ikisi de gsubve ncharvektörelleştirilmiştir, bunun bir karakter vektörü üzerinde de çalıştığı anlamına gelir, örneğin:

v=c("Llandudno","Llanelli","Rhyl","Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch","Tŷr","Cymru","Glyndŵr")
nchar(gsub("ch|dd|ff|ng|ll|ph|rh|th","@",v,T))

üretir:

[1]  8  6  3 50  3  5  7

Perl 6 , 36 bayt

+*.comb(/:i.|<[cprt]>h|dd|ff|ng|ll/)

Çevrimiçi deneyin!

XQuery, 77 bayt

declare variable$s external;count(tokenize($s,'[cprt]h|ff|dd|ll|ng|.','i'))-1

tcl, 71

proc L s {string le [regsub -all -nocase ch|dd|ff|ng|ll|ph|rh|th $s @]}

gösteri

Perl 5 , 35 + 1 ( -p) = 36 bayt

s/[cprt]h|dd|ff|ng|ll/a/gi;$_=y///c

Çevrimiçi deneyin!