ウェールズ語を表す文字列を入力として受け取るプログラムまたは関数を作成します（ユーザーが特に指定しない限り、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、 th、u、w、y

ウィキペディアを引用するには、

有向グラフch、dd、ff、ng、ll、ph、rh、thはそれぞれ2つの記号で書かれていますが、それらはすべて単一の文字と見なされます。これは、たとえば、ラネリ（ウェールズ南部の町）は、英語の8文字と比較して、ウェールズ語では6文字しかないと見なされていることを意味します。

これらの文字はウェールズ語にも存在しますが、他の言語から借用した技術用語に限定されています。

k、q、v、x、z

分音記号付きの文字は個別の文字とは見なされませんが、関数はそれらを受け入れてカウントできる必要があります。可能なそのような手紙は次のとおりです：

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

（これは、これらの文字をエンコードできないため、ASCIIは受け入れ可能な入力エンコードではないことを意味します。）

ノート：

• これはコードゴルフです。
• ngが有向グラフではなく、2つの別々の文字であるllongyfarchのような単語を考慮する必要はありません。この単語には9文字ありますが、8文字と数えることができます。（そのような言葉を説明できるなら、それは素晴らしいことですが、この課題の範囲外です。）
• 入力には空白が含まれないことが保証されています（末尾に改行が1つ（またはより難解なもの）が必要な場合を除き、その場合は提供できます）。確かに内部の空白はありません。

テストケース：

• ランディドノー、8
• ラネリ、6
• リル、3
• Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch、50（実際には51ですが、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

些細な答えが一番短いかもしれません。

BASH 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、単項から10進数に変換します。

悲しいことに、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変更奴らは、すべての上に2つのシンボル・一文字文字に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@"

オンラインで試すか、すべてのテストケースを確認してください！

これには印刷できない文字が含まれているため、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バイト

<?=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バイト

他の回答と非常に似ています。2文字の文字のいずれかに一致し、それらを置き換えて@、文字数をカウントします。stdinから入力を読み取ります。オプションignore.case = TRUE（の3番目の引数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バイト

+*.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 + 1（-p）= 36バイト

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

オンラインでお試しください！