เขียนโปรแกรมหรือฟังก์ชั่นที่รับเป็นอินพุตสตริงที่แสดงคำภาษาเวลส์ (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, th, u, w, y

ที่จะพูดวิกิพีเดีย ,

ในขณะที่ digraphs ch , dd , ff , ng , ll , ph , rh , thแต่ละตัวจะถูกเขียนด้วยสัญลักษณ์สองตัวพวกมันทั้งหมดถือว่าเป็นตัวอักษรเดียว ซึ่งหมายความว่าตัวอย่างเช่น Llanelli (เมืองในเซาท์เวลส์) ได้รับการพิจารณาว่ามีเพียงหกตัวอักษรในภาษาเวลส์เมื่อเทียบกับตัวอักษรภาษาอังกฤษแปดตัว

จดหมายเหล่านี้มีอยู่ในเวลส์แม้ว่าพวกเขาจะถูก จำกัด ให้ใช้คำศัพท์ทางเทคนิคที่ยืมมาจากภาษาอื่น:

k, q, v, x, z

จดหมายที่มีเครื่องหมายกำกับการออกเสียงไม่ถือว่าเป็นตัวอักษรที่แยกจากกัน แต่ฟังก์ชั่นของคุณต้องยอมรับและสามารถนับได้ ตัวอักษรที่เป็นไปได้คือ:

â, ê, î, ô, û, á, á, é, í, ú, ú, ä, ä, ö, è, è, è, è, ù, ẁ

(ซึ่งหมายความว่า ASCII ไม่ใช่การเข้ารหัสอินพุตที่ยอมรับได้เนื่องจากไม่สามารถเข้ารหัสอักขระเหล่านี้ได้)

หมายเหตุ:

• นี่คือรหัสกอล์ฟ
• คุณไม่จำเป็นต้องคำนึงถึงคำเช่นllongyfarchซึ่งngไม่ใช่ digraph แต่เป็นตัวอักษรสองตัวแยกกัน คำนี้มีตัวอักษรเก้าตัว แต่คุณสามารถแก้ไขได้แปดตัว (หากคุณสามารถอธิบายถึงคำเหล่านี้ได้มันช่างยอดเยี่ยม แต่อยู่นอกขอบเขตของการท้าทายนี้)
• อินพุตนั้นรับประกันว่าจะไม่มีช่องว่าง (ยกเว้นว่าคุณจะชอบด้วยการขึ้นบรรทัดใหม่ต่อท้ายเดียว (หรือบางอย่างที่ลึกลับกว่า) ซึ่งในกรณีนี้สามารถให้ได้) แน่นอนจะไม่มีช่องว่างภายใน

กรณีทดสอบ:

• Llandudno, 8
• Llanelli, 6
• Rhyl, 3
• Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch, 50 (จริง ๆ 51 แต่เราจะนับ 50)
• ถึง, 3
• Cymru, 5
• Glyndŵr, 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|.

ลองออนไลน์!

แม้แต่ Regar moar

JavaScript (ES6), 44 ไบต์

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

คำตอบเล็กน้อยอาจสั้นที่สุด

BASH 52 50 (sed + wc) 41

-9 ขอบคุณจอร์แดน

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

หากต้องการตัวอักษรตัวพิมพ์ใหญ่จำเป็นต้องมีiคำสั่ง at ท้ายคำสั่ง sed (ฉันทิ้งไว้เพราะ "ตัวอักษรเดียว" ทั้งหมดในคำถามเป็นตัวพิมพ์เล็กแม้ว่าจะไม่ใช่ตัวอย่างบางส่วน)

ฟาง , 30 58 35 33 ไบต์

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

แทนที่การเกิดขึ้นของ regex แต่ละครั้ง0และแปลงจาก unary เป็นทศนิยม

น่าเศร้าที่ฟางไม่สามารถส่งธงไปยัง regex ได้ ฉันลืมเกี่ยวกับการ?flags:สร้าง

ลองออนไลน์! (รหัสเพิ่มเติมคือการตรวจสอบกรณีทดสอบทั้งหมด)

Python 3, 64 ไบต์

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

ใช้ regex อีกครั้ง

ไอเดียมัน!

PowerShell v2 +, 52 50 48 ไบต์

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

ทำ a -replaceบนตัวอักษรสองสัญลักษณ์ - ตัวอักษรเดียวทั้งหมดเปลี่ยน 'em เป็น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();}

กรณีที่ไม่ได้รับการทดสอบ &:

ลองที่นี่

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 ไบต์

คล้ายกันมากกับคำตอบอื่น ๆ จับคู่อักขระสองตัวใด ๆ และแทนที่ด้วย@แล้วนับจำนวนอักขระ อ่านอินพุตจาก stdin ใช้ตัวเลือกignore.case = TRUE(อาร์กิวเมนต์ที่สามถึงgsub) เพื่อจับคู่ทั้งอักขระบนและตัวพิมพ์เล็ก

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

โบนัส

ทั้งสองgsubและncharถูก vectorized ซึ่งหมายความว่าสิ่งนี้ยังทำงานบนเวกเตอร์อักขระเช่น:

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

ลองออนไลน์!