Viết chương trình hoặc hàm nhận đầu vào là một chuỗi đại diện cho một từ tiếng Wales (UTF-8 trừ khi bạn có quy định khác).

Sau đây là tất cả các chữ cái duy nhất trong tiếng Wales:

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

Để trích dẫn Wikipedia ,

Trong khi các chữ viết tắt ch , dd , ff , ng , ll , ph , rh , th được viết bằng hai ký hiệu, chúng đều được coi là các chữ cái đơn. Điều này có nghĩa là, ví dụ Llanelli (một thị trấn ở Nam Wales) được coi là chỉ có sáu chữ cái bằng tiếng Wales, so với tám chữ cái bằng tiếng Anh.

Những chữ cái này cũng tồn tại trong tiếng Wales, mặc dù chúng bị giới hạn trong các từ vựng kỹ thuật mượn từ các ngôn ngữ khác:

k, q, v, x, z

Các chữ cái có dấu phụ không được coi là các chữ cái riêng biệt, nhưng chức năng của bạn phải chấp nhận chúng và có thể đếm chúng. Những chữ cái như vậy có thể là:

â, ê, î, ô, û,, ŵ, á, é, í, ó, ú, ê ù,

(Điều này có nghĩa là ASCII không phải là mã hóa đầu vào có thể chấp nhận được, vì nó không thể mã hóa các ký tự này.)

Ghi chú:

• Đây là mã golf.
• Bạn không cần phải tính đến các từ như llongyfarch , trong đó ng không phải là một chữ viết tắt, mà là hai chữ cái riêng biệt. Từ này có chín chữ cái, nhưng bạn có thể hiểu nhầm thành tám chữ cái. (Nếu bạn có thể giải thích cho những từ như vậy, điều đó thật tuyệt vời, nhưng nằm ngoài phạm vi của thử thách này.)
• Đầu vào được đảm bảo không có khoảng trắng (trừ khi bạn thích nó với một dòng mới duy nhất (hoặc một cái gì đó bí truyền hơn), trong trường hợp có thể được cung cấp). Chắc chắn sẽ không có khoảng trắng nội bộ.

Các trường hợp thử nghiệm:

• Llandudno, 8
• Llanelli, 6
• Rhyl, 3
• Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch, 50 (thực sự 51, nhưng chúng tôi sẽ tính 50)
• T ,r, 3
• Cymru, 5
• Glyndŵr, 7

05AB1E , 24 23 21 byte

Mã số:

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

Giải trình:

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.

Sử dụng mã hóa CP-1252 . Hãy thử trực tuyến!

Võng mạc , 23 byte

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

Hãy thử trực tuyến!

Ngay cả regex moar.

JavaScript (ES6), 44 byte

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

Câu trả lời tầm thường có thể là ngắn nhất.

BASH 52 50 (sed + wc) 41

-9 cảm ơn Jordan

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

Nếu chữ in hoa được yêu cầu, cái này cần iở cuối lệnh sed. (Tôi bỏ nó đi vì tất cả các "chữ cái đơn" trong câu hỏi đều là chữ thường mặc dù một số ví dụ không có).

Rơm , 30 58 35 33 byte

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

Thay thế từng lần xuất hiện của regex bằng 0và chuyển đổi từ đơn nguyên sang thập phân.

Đáng buồn thay, Straw không thể chuyển cờ đến regex. Tôi quên mất việc ?flags:xây dựng

Hãy thử trực tuyến! (Mã được thêm là để xác minh tất cả các trường hợp thử nghiệm)

Python 3, 64 byte

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

Sử dụng regex một lần nữa

Nghĩa là nó!

PowerShell v2 +, 52 50 48 byte

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

Liệu một chữ cái -replacetrên tất cả các ký tự hai ký tự, thay đổi chúng thành 0(được thực hiện bởi vì thay đổi thành một chữ số sẽ yêu cầu dấu ngoặc kép), sau đó nhận được .lengthchuỗi kết quả.

Các trường hợp thử nghiệm

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

Hãy thử trực tuyến hoặc Xác minh tất cả các trường hợp thử nghiệm!

Điều này có chứa một số ký tự không thể in được, vì vậy đây là một 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

Tải các byte được lưu nhờ vào @ OlivierGrégoire .

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

Các trường hợp bất ngờ & thử nghiệm:

Hãy thử nó ở đây.

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

Đầu ra:

8
6
3
50
3
5
7

R, 54 byte

Rất giống với các câu trả lời khác. Khớp bất kỳ một trong hai chữ cái ký tự và thay thế chúng bằng @và sau đó đếm số lượng ký tự. Đọc đầu vào từ stdin. Sử dụng tùy chọn ignore.case = TRUE(đối số thứ ba để gsub) để khớp cả ký tự chữ hoa và chữ thường.

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

Tiền thưởng

Cả hai gsubvà ncharđược vector hóa có nghĩa là điều này cũng hoạt động trên một vectơ ký tự, ví dụ:

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

sản xuất:

[1]  8  6  3 50  3  5  7

Perl 6 , 36 byte

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

Hãy thử trực tuyến!

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

bản giới thiệu

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

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

Hãy thử trực tuyến!