Ecrivez un programme ou une fonction qui reçoit en entrée une chaîne représentant un mot gallois (UTF-8, sauf indication contraire de votre part).

Ce qui suit sont toutes des lettres simples en gallois:

a, b, c, ch, d, jj, e, f, ff, g, ng, h, i, j, l, ll, m, n, o, p, ph, r, rh, s, t, th, u, w, y

Pour citer Wikipedia ,

Bien que les digraphes ch , dd , ff , ng , ll , ph , rh , th soient chacun écrits avec deux symboles, ils sont tous considérés comme des lettres simples. Cela signifie, par exemple, que Llanelli (une ville du sud du Pays de Galles) n’a que six lettres en gallois, contre huit en anglais.

Ces lettres existent également en gallois, bien qu’elles soient limitées au vocabulaire technique emprunté à d’autres langues:

k, q, v, x, z

Les lettres avec signes diacritiques ne sont pas considérées comme des lettres séparées, mais votre fonction doit les accepter et pouvoir les compter. Les lettres possibles sont:

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

(Cela signifie que l'ASCII n'est pas un codage d'entrée acceptable, car il ne peut pas coder ces caractères.)

Remarques:

• C'est du code golf.
• Vous ne devez pas tenir compte des mots comme llongyfarch , dans lequel le ng est pas un digraphe, mais deux lettres distinctes. Ce mot a neuf lettres, mais vous pouvez le dénombrer comme huit. (Si vous pouvez rendre compte de tels mots, c'est génial, mais sort du cadre de ce défi.)
• Il est garanti que l’entrée n’a pas d’espace (sauf si vous le préférez avec un retour à la ligne simple (ou quelque chose de plus ésotérique), auquel cas cela peut être fourni). Il n'y aura certainement pas d'espaces internes.

Cas de test:

• Llandudno, 8
• Llanelli, 6
• Rhyl, 3
• Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogogoch, 50 (vraiment 51, mais nous compterons 50)
• Tŷr, 3
• Cymru, 5
• Glyndŵr, 7

05AB1E , 24 23 21 octets

Code:

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

Explication:

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.

Utilise le codage CP-1252 . Essayez-le en ligne!

Retina , 23 octets

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

Essayez-le en ligne!

Même regex moar.

JavaScript (ES6), 44 octets

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

La réponse triviale peut être la plus courte.

BASH 52 50 (sed + wc) 41

-9 grâce à la Jordanie

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

Si une lettre majuscule est requise, une commande ià la fin de la commande sed est nécessaire . (Je l'ai laissé de côté car toutes les "lettres simples" de la question sont en minuscule, même si certains exemples ne le sont pas).

Straw , 30 58 35 33 octets

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

Remplacez chaque occurrence de l'expression rationnelle par 0et convertissez unaire en décimal.

Malheureusement, Straw ne peut pas passer les drapeaux aux regex. J'oublie la ?flags:construction

Essayez-le en ligne! (Le code ajouté est destiné à vérifier tous les cas de test)

Python 3, 64 octets

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

Utilise regex à nouveau

Ideone ça!

PowerShell v2 +, 52 50 48 octets

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

Effectue une commande -replacesur toutes les lettres à une seule lettre avec deux symboles, les remplace par 0(effectuée car le passage à une valeur non numérique nécessiterait des guillemets), puis récupère la .lengthchaîne résultante.

Cas de test

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 octets

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

Essayez-le en ligne ou vérifiez tous les cas de test!

Cela contient des caractères non imprimables, donc voici 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 octets

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

Java 7, 156 73 octets

Charges d'octets enregistrés grâce à @ OlivierGrégoire .

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

Ungolfed & cas de test:

Essayez ici.

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

Sortie:

8
6
3
50
3
5
7

R, 54 octets

Très similaire aux autres réponses. Correspond à n'importe laquelle des lettres de caractères et les remplace par @, puis compte le nombre de caractères. Lit les entrées de stdin. Utilise l'option ignore.case = TRUE(troisième argument de gsub) pour faire correspondre les majuscules et les minuscules.

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

Prime

Les deux gsubet ncharsont vectorisés, ce qui signifie que cela fonctionne également sur un vecteur de caractère, par exemple:

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

produit:

[1]  8  6  3 50  3  5  7

Perl 6 , 36 octets

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

Essayez-le en ligne!

XQuery, 77 octets

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

démo

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

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

Essayez-le en ligne!