Scrivi un programma o una funzione che riceve come input una stringa che rappresenta una parola gallese (UTF-8 se non diversamente specificato da te).

Le seguenti sono tutte lettere singole in gallese:

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

Per citare Wikipedia ,

Mentre i digrafi ch , dd , ff , ng , ll , ph , rh , th sono scritti ciascuno con due simboli, sono tutti considerati come lettere singole. Ciò significa, ad esempio, che Llanelli (una città nel Galles del Sud) è considerato avere solo sei lettere in gallese, rispetto alle otto lettere in inglese.

Queste lettere esistono anche in gallese, sebbene siano limitate al vocabolario tecnico preso in prestito da altre lingue:

k, q, v, x, z

Le lettere con segni diacritici non sono considerate lettere separate, ma la tua funzione deve accettarle ed essere in grado di contarle. Possibili lettere di questo tipo sono:

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

(Ciò significa che ASCII non è una codifica di input accettabile, poiché non può codificare questi caratteri.)

Gli appunti:

• Questo è il codice golf.
• Non devi tenere conto di parole come llongyfarch , in cui ng non è un digrafo, ma due lettere separate. Questa parola ha nove lettere, ma puoi contarla erroneamente come otto. (Se riesci a spiegare queste parole, è fantastico, ma al di fuori dell'ambito di questa sfida.)
• È garantito che l'input non abbia spazi bianchi (a meno che non lo si preferisca con una nuova riga finale (o qualcosa di più esoterico), nel qual caso può essere fornito). Non ci saranno certamente spazi bianchi interni.

Casi test:

• Llandudno, 8
• Llanelli, 6
• Rhyl, 3
• Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch, 50 (davvero 51, ma conteremo 50)
• Per, 3
• Cymru, 5
• Glyndŵr, 7

05AB1E , 24 23 21 byte

Codice:

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

Spiegazione:

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.

Utilizza la codifica CP-1252 . Provalo online!

Retina , 23 byte

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

Provalo online!

Persino gemere regex.

JavaScript (ES6), 44 byte

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

La banale risposta potrebbe essere la più breve.

BASH 52 50 (sed + wc) 41

-9 grazie alla Giordania

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

Se sono richieste lettere maiuscole, è necessario un ialla fine del comando sed. (L'ho lasciato fuori perché tutte le "lettere singole" nella domanda sono minuscole anche se alcuni esempi non lo sono).

Paglia , 30 58 35 33 byte

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

Sostituisci ogni ricorrenza della regex con 0e converti da unario a decimale.

Purtroppo, Straw non può passare le bandiere ai regex. Dimentico il ?flags:costrutto

Provalo online! (Il codice aggiunto è per verificare tutti i casi di test)

Python 3, 64 byte

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

Usa di nuovo regex

Ideone esso!

PowerShell v2 +, 52 50 48 byte

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

Fa una -replacesu tutte le lettere a due simboli di una sola lettera, le cambia in 0(fatto perché passare a un non-numerale richiederebbe virgolette), quindi ottiene la .lengthstringa risultante.

Casi 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 byte

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

Provalo online o verifica tutti i casi di test!

Questo contiene alcuni caratteri non stampabili, quindi ecco 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 byte

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

Java 7, 156 73 byte

Carichi di byte salvati grazie a @ OlivierGrégoire .

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

Casi non testati e test:

Provalo qui.

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

Produzione:

8
6
3
50
3
5
7

R, 54 byte

Molto simile alle altre risposte. Corrisponde a una qualsiasi delle lettere di due caratteri e le sostituisce con @e successivamente conta il numero di caratteri. Legge input da stdin. Utilizza l'opzione ignore.case = TRUE(terzo argomento a gsub) per abbinare sia i caratteri maiuscoli che minuscoli.

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

indennità

Entrambi gsube ncharsono vettoriali, il che significa che funziona anche su un vettore di caratteri, ad esempio:

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 byte

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

Provalo online!

XQuery, 77 byte

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

dimostrazione

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

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

Provalo online!