Escriba un programa o función que reciba como entrada una cadena que representa una palabra galesa (UTF-8 a menos que usted especifique lo contrario).

Las siguientes son todas letras individuales en galés:

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

Para citar Wikipedia ,

Si bien los dígrafos ch , dd , ff , ng , ll , ph , rh , th están escritos con dos símbolos, todos se consideran letras individuales. Esto significa, por ejemplo, que Llanelli (una ciudad en el sur de Gales) solo tiene seis letras en galés, en comparación con ocho letras en inglés.

Estas letras también existen en galés, aunque están restringidas al vocabulario técnico prestado de otros idiomas:

k, q, v, x, z

Las letras con signos diacríticos no se consideran letras separadas, pero su función debe aceptarlas y poder contarlas. Posibles tales letras son:

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

(Esto significa que ASCII no es una codificación de entrada aceptable, ya que no puede codificar estos caracteres).

Notas:

• Este es el código de golf.
• No tiene que dar cuenta de palabras como llongyfarch , en las que ng no es un dígrafo, sino dos letras separadas. Esta palabra tiene nueve letras, pero puedes contarla erróneamente como ocho. (Si puede explicar esas palabras, es algo increíble, pero está fuera del alcance de este desafío).
• Se garantiza que la entrada no tendrá espacios en blanco (a menos que lo prefiera con una nueva línea final (o algo más esotérico), en cuyo caso puede proporcionarse). Ciertamente no habrá espacios en blanco internos.

Casos de prueba:

• Llandudno, 8
• Llanelli, 6
• Rhyl, 3
• Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch, 50 (realmente 51, pero contaremos 50)
• Tŷr, 3
• Cymru, 5
• Glyndŵr, 7

05AB1E , 24 23 21 bytes

Código:

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

Explicación:

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.

Utiliza la codificación CP-1252 . Pruébalo en línea!

Retina , 23 bytes

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

Pruébalo en línea!

Incluso lloro regex.

JavaScript (ES6), 44 bytes

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

La respuesta trivial puede ser la más corta.

BASH 52 50 (sed + wc) 41

-9 gracias a Jordan

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

Si se requieren letras mayúsculas, esto necesita un ial final del comando sed. (Lo dejé fuera porque todas las "letras simples" en la pregunta son minúsculas, aunque algunos ejemplos no lo son).

Paja , 30 58 35 33 bytes

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

Reemplaza cada ocurrencia de la expresión regular por 0, y convierte de unario a decimal.

Lamentablemente, Straw no puede pasar banderas a expresiones regulares. Me olvido de la ?flags:construcción

Pruébalo en línea!(El código agregado es para verificar todos los casos de prueba)

Python 3, 64 bytes

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

Usa regex nuevamente

Ideone it!

PowerShell v2 +, 52 50 48 bytes

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

¿Hace una -replaceen todas las letras de una sola letra de dos símbolos, las cambia a 0(hecho porque cambiar a una no numérica requeriría comillas), luego obtiene el.length de la cadena resultante.

Casos de prueba

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@"

¡Pruébelo en línea o verifique todos los casos de prueba!

Contiene algunos caracteres no imprimibles, así que aquí hay un 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

Un montón de bytes guardados gracias a @ OlivierGrégoire .

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

Sin golf y casos de prueba:

Pruébalo aquí

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

Salida:

8
6
3
50
3
5
7

R, 54 bytes

Muy similar a las otras respuestas. Coincide con cualquiera de las letras de dos caracteres y las reemplaza por, @y posteriormente cuenta el número de caracteres. Lee la entrada de stdin. Utiliza la opción ignore.case = TRUE(tercer argumento para gsub) para que coincida con los caracteres en mayúscula y minúscula.

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

Prima

Ambos gsuby ncharestán vectorizados, lo que significa que esto también funciona en un vector de caracteres, por ejemplo:

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

produce:

[1]  8  6  3 50  3  5  7

Perl 6 , 36 bytes

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

Pruébalo en línea!

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

manifestación

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

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

Pruébalo en línea!