Напишіть програму або функцію, яка отримує у якості введення рядок, що представляє валлійське слово (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, го, ю, ш, у

Щоб цитувати Вікіпедію ,

У той час, як диграфи ch , dd , ff , ng , ll , ph , rh , th написані двома символами, всі вони вважаються єдиними літерами. Це означає, що, наприклад, Лланеллі (місто в Південному Уельсі) вважається лише шістьма літерами у валійській мові, порівняно з вісьмома літерами англійською мовою.

Ці листи також є у валлійській мові, хоча вони обмежені технічною лексикою, запозиченою з інших мов:

k, q, v, x, z

Листи з діакритикою не розглядаються як окремі букви, але ваша функція повинна їх приймати і вміти їх рахувати. Можливі такі листи:

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

(Це означає, що ASCII не є прийнятним кодуванням вводу, оскільки він не може кодувати ці символи.)

Примітки:

• Це код гольфу.
• Вам не доведеться рахувати такі слова, як llongyfarch , у яких ng - це не диграф, а дві окремі літери. Це слово має дев'ять букв, але ви можете неправильно рахувати його як вісім. (Якщо ви можете пояснити такі слова, це дивним чином, але поза сферою цього виклику.)
• Гарантовано, що на вході не буде пробілів (якщо ви не віддасте перевагу одному осередковому рядку (або щось більш езотеричне), у цьому випадку це може бути надано). Звичайно, не буде внутрішнього простору.

Тестові приклади:

• Лладудно, 8
• Лланеллі, 6
• Ріл, 3
• Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch, 50 (дійсно 51, але ми порахуємо 50)
• Тŷр, 3
• Кімру, 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

If uppercase letter are required this needs an i at the end of the sed command. (I left it out because all of the "single letters" in the question are lowercase even though some examples aren't).

Straw, 30 58 35 33 bytes

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

Replace each occurence of the regex by 0, and convert from unary to decimal.

Sadly, Straw can't pass flags to regexs. I forget about the ?flags: construct

Try it online! (The added code is to verify all test cases)

Python 3, 64 bytes

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

Uses regex again

Ideone it!

PowerShell v2+, 52 50 48 bytes

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

Does a -replace on all the two-symbol-single-letter letters, changes 'em to 0 (done because changing to a non-numeral would require quotes), then gets the .length of the resultant string.

Test cases

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 bytes

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

Try it online, or Verify all test cases!

This contains some unprintable characters, so here is a 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 bytes

Loads of bytes saved thanks to @OlivierGrégoire.

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

Ungolfed & test cases:

Try it here.

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

Output:

8
6
3
50
3
5
7

R, 54 bytes

Very similar to the other answers. Matches any of the two character letters and replaces them with @ and subsequently counts the number of characters. Reads input from stdin. Uses the option ignore.case = TRUE (third argument to gsub) to match both upper and lowercase characters.

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

Bonus

Both gsub and nchar are vectorized which means that this also works on a character vector, e.g.:

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

produces:

[1]  8  6  3 50  3  5  7

Perl 6, 36 bytes

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

Try it online!

XQuery, 77 bytes

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 bytes

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

Try it online!