编写一个程序或函数，该程序或函数接收代表威尔士语单词的字符串（UTF-8，除非您另行指定）作为输入。

以下是威尔士语中的所有单个字母：

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， ,， u，w

要引用维基百科，

虽然有向图ch，dd，ff，ng，ll，ph，rh，th用两个符号书写，但它们都被视为单个字母。例如，这意味着Llanelli（位于南威尔士的一个小镇）在威尔士语中被认为只有六个字母，而英语中只有八个字母。

这些字母也存在于威尔士语中，尽管它们仅限于从其他语言借来的技术词汇：

k，q，v，x，z

带有变音符号的字母不会被视为单独的字母，但是您的功能必须接受它们并能够对其进行计数。可能的字母是：

â，ê，î，ô，ô，û，ŷ，ŷ，á，é，í，ó，ú，ý，ẃ，ä，ë，ï，ö，ü，ü，ÿ，ẅ，à，è，ì， ù，ẁ

（这意味着ASCII是不能接受的输入编码，因为它无法编码这些字符。）

笔记：

• 这是代码高尔夫。
• 您不必考虑像llongyfarch这样的单词，其中ng不是字母，而是两个单独的字母。这个单词有9个字母，但是您可以将其误认为8个字母。（如果您能解释这样的话，那真是太棒了，但超出了此挑战的范围。）
• 确保输入没有空格（除非您喜欢使用单个结尾的换行符（或更深奥的东西），在这种情况下可以提供）。当然不会有内部空格。

测试用例：

• 兰迪德诺，8
• 拉内利，6岁
• 瑞尔3
• Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch，（50岁，但我们算50）
• Tŷr，3
• 西摩（Cymru），5岁
• 格林多7岁

05AB1E，24 23 21字节

码：

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

说明：

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编码。在线尝试！

视网膜，23字节

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

在线尝试！

甚至是正则表达式。

JavaScript（ES6），44个字节

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

简单的答案可能是最短的。

重击52 50（sed + wc）41

-9感谢乔丹

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

如果需要大写字母，则i在sed命令的末尾需要一个。（我把它省略了，因为问题中的所有“单字母”都是小写的，即使不是某些示例也是如此）。

秸秆，30 58 35 33字节

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

用替换每次出现的正则表达式0，然后从一元转换为十进制。

可悲的是，Straw无法将标志传递给正则表达式。我忘了?flags:构造

在线尝试！（添加的代码用于验证所有测试用例）

Python 3，64个字节

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

再次使用正则表达式

伊迪恩！

PowerShell v2 +，52 50 48字节

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

做了-replace所有的两个符号的单字母的字母，改变“时间0（这样做，因为改变到一个非数字将需要引号），然后获取.length得到的字符串。

测试用例

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个字节

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

在线尝试，或验证所有测试用例！

它包含一些不可打印的字符，因此这是一个十六进制转储：

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字节

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

Java 7，156 73字节

@OlivierGrégoire节省了字节加载量。

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

非高尔夫球和测试用例：

在这里尝试。

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

输出：

8
6
3
50
3
5
7

R，54个字节

与其他答案非常相似。匹配两个字符字母中的任何一个并将其替换为字母@，然后计算字符数。从标准输入读取输入。使用选项ignore.case = TRUE（的第三个参数gsub）同时匹配大写和小写字符。

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

奖金

这两个gsub和nchar的矢量这意味着，这也适用于一个特征向量，如：

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

产生：

[1]  8  6  3 50  3  5  7

Perl 6、36字节

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

在线尝试！

XQuery，77个字节

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

演示

Perl 5，35 +1（-p）= 36字节

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

在线尝试！