Напишите программу или функцию, которая получает в качестве входных данных строку, представляющую собой валлийское слово (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 , в которой нг - не орграф, а две отдельные буквы. Это слово состоит из девяти букв, но вы можете ошибочно считать его как восемь. (Если вы можете объяснить такие слова, это круто, но выходит за рамки этой задачи.)
• У входа гарантированно не будет пробела (если вы не предпочитаете его с одним завершающим символом новой строки (или чем-то более эзотерическим), в этом случае это может быть предоставлено). Конечно, не будет внутреннего пробела.

Тестовые случаи:

• Лландудно, 8
• Лланелли, 6
• Рил, 3
• Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch, 50 (на самом деле 51, но мы будем считать 50)
• Тёр, 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 (сед + туалет) 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и преобразуйте из унарного в десятичное.

К сожалению, Солома не может передавать флаги регулярным выражениям. Я забыл о ?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@"

Попробуйте онлайн или проверьте все контрольные примеры!

Это содержит некоторые непечатаемые символы, поэтому вот 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();}

Ungolfed и тестовые случаи:

Попробуй это здесь.

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

Попробуйте онлайн!