Tulis program atau fungsi yang menerima sebagai input string yang mewakili kata Welsh (UTF-8 kecuali ditentukan lain oleh Anda).

Berikut ini adalah semua huruf tunggal dalam bahasa Welsh:

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

Mengutip Wikipedia ,

Sementara digraf ch , dd , ff , ng , ll , ph , rh , th masing-masing ditulis dengan dua simbol, semuanya dianggap sebagai huruf tunggal. Ini berarti, misalnya bahwa Llanelli (sebuah kota di South Wales) dianggap hanya memiliki enam huruf dalam bahasa Welsh, dibandingkan dengan delapan huruf dalam bahasa Inggris.

Huruf-huruf ini juga ada di Welsh, meskipun terbatas pada kosakata teknis yang dipinjam dari bahasa lain:

k, q, v, x, z

Surat dengan diakritik tidak dianggap sebagai huruf yang terpisah, tetapi fungsi Anda harus menerimanya dan dapat menghitungnya. Kemungkinan surat-surat tersebut adalah:

" ù, ẁ

(Ini berarti bahwa ASCII bukan penyandian input yang dapat diterima, karena tidak dapat menyandikan karakter ini.)

Catatan:

• Ini kode golf.
• Anda tidak harus menjelaskan kata-kata seperti llongyfarch , di mana ng bukan digraph, tetapi dua huruf terpisah. Kata ini memiliki sembilan huruf, tetapi Anda dapat salah menghitungnya menjadi delapan. (Jika Anda dapat menjelaskan kata-kata seperti itu, itu luar biasa, tetapi di luar cakupan tantangan ini.)
• Input dijamin tidak memiliki spasi putih (kecuali jika Anda lebih suka dengan satu trailing newline (atau sesuatu yang lebih esoteris), dalam hal ini yang dapat diberikan). Tidak akan ada spasi putih internal.

Kasus uji:

• Llandudno, 8
• Llanelli, 6
• Rhyl, 3
• Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch, 50 (benar-benar 51, tapi kami akan menghitung 50)
• Tiga, 3
• Cymru, 5
• Glyndŵr, 7

05AB1E , 24 23 21 byte

Kode:

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

Penjelasan:

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.

Menggunakan pengkodean CP-1252 . Cobalah online!

Retina , 23 byte

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

Cobalah online!

Bahkan moar regex.

JavaScript (ES6), 44 byte

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

Jawaban sepele mungkin yang terpendek.

BASH 52 50 (sed + wc) 41

Terima kasih kepada Jordan

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

Jika huruf besar diperlukan ini perlu idi akhir perintah sed. (Saya meninggalkannya karena semua "huruf tunggal" dalam pertanyaan adalah huruf kecil meskipun beberapa contoh tidak).

Straw , 30 58 35 33 byte

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

Ganti setiap kemunculan regex dengan 0, dan konversi dari unary ke desimal.

Sedihnya, Straw tidak bisa mengibarkan bendera ke regex. Saya lupa tentang ?flags:konstruknya

Cobalah online! (Kode yang ditambahkan adalah untuk memverifikasi semua kasus uji)

Python 3, 64 byte

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

Gunakan regex lagi

Ide itu!

PowerShell v2 +, 52 50 48 byte

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

Apakah -replacepada semua huruf dua simbol-satu-huruf, perubahan mereka 0(dilakukan karena mengubah ke non-angka akan memerlukan tanda kutip), kemudian mendapatkan hasil .lengthdari string yang dihasilkan.

Uji kasus

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 byte

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

Cobalah secara online , atau Verifikasikan semua uji kasus!

Ini berisi beberapa karakter yang tidak patut dicetak, jadi ini adalah 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 Bytes

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

Java 7, 156 73 byte

Banyak byte yang disimpan berkat @ OlivierGrégoire .

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

Kasus yang tidak disatukan & uji:

Coba di sini.

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

Keluaran:

8
6
3
50
3
5
7

R, 54 byte

Sangat mirip dengan jawaban yang lain. Cocok dengan salah satu dari dua huruf karakter dan menggantinya dengan @dan kemudian menghitung jumlah karakter. Membaca input dari stdin. Menggunakan opsi ignore.case = TRUE(argumen ketiga ke gsub) untuk mencocokkan karakter huruf besar dan kecil.

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

Bonus

Keduanya gsubdan ncharmerupakan vektor yang artinya ini juga berfungsi pada vektor karakter, misalnya:

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

menghasilkan:

[1]  8  6  3 50  3  5  7

Perl 6 , 36 byte

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

Cobalah online!

XQuery, 77 byte

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 @]}

demo

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

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

Cobalah online!