웨일스 어 단어를 나타내는 문자열을 입력으로받는 프로그램 또는 함수를 작성하십시오 (별도로 지정하지 않는 한 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

Wikipedia 를 인용하자면 ,

이중 음자는 동안 ch가 , DD , FF , 겨 , LL , 산도 , RH , 일 각각 두 개의 기호로 작성된은, 그들은 모두 하나의 문자로 간주됩니다. 예를 들어 Llanelli (사우스 웨일즈의 도시)는 영어로 된 8 글자에 비해 웨일스 어에서는 6 글자로만 간주됩니다.

이 서한은 웨일스 어에도 존재하지만 다른 언어에서 빌린 기술 용어로 제한됩니다.

k, q, v, x, z

분음 부호가있는 문자는 별도의 문자로 간주되지 않지만 기능에서 해당 문자를 승인하고 계산할 수 있어야합니다. 가능한 문자는 다음과 같습니다.

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

ASCII는 이러한 문자를 인코딩 할 수 없으므로 허용되는 입력 인코딩이 아닙니다.

노트:

• 이것은 코드 골프입니다.
• lngyfarch 와 같은 단어를 설명 할 필요는 없습니다 . 여기서 ng 는 digraph가 아니라 두 개의 별도 문자입니다. 이 단어에는 9 개의 문자가 있지만 8 자로 잘못 계산할 수 있습니다. ( 이러한 단어를 설명 할 수 있다면 정말 대단하지만이 과제의 범위를 벗어납니다.)
• 입력에는 공백이 없어야합니다 (단일 후행 줄 바꿈 (또는 더 난해한 것)을 선호하지 않는 한 제공 될 수 있음). 내부 공백이 없을 것입니다.

테스트 사례 :

• 랜디 드노, 8
• 라 넬리, 6
• 릴, 3
• Llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch, 50 (실제로 51, 그러나 우리는 50을 셉니다)
• 3 대
• 키 무루, 5
• 글린 더, 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|.

온라인으로 사용해보십시오!

심지어 무어 정규식.

자바 스크립트 (ES6), 44 바이트

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

사소한 답변이 가장 짧을 수 있습니다.

배쉬 52 50 (sed + wc) 41

요르단 덕분에 -9

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

대문자가 필요한 경우 ised 명령 끝에가 필요합니다 . (일부 예제는 아니지만 질문의 모든 단일 문자가 소문자이기 때문에 생략했습니다.)

밀짚 , 30 58 35 33 바이트

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

정규식의 각 발생을로 대체 0하고 단항에서 10 진수로 변환하십시오.

슬프게도 Straw는 정규식에 플래그를 전달할 수 없습니다. 나는 ?flags:구조물을 잊었다

온라인으로 사용해보십시오! (추가 된 코드는 모든 테스트 사례를 확인하는 것입니다)

파이썬 3, 64 바이트

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

정규식을 다시 사용합니다

무시 했어!

PowerShell v2 +, 52 50 48 바이트

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

않는 -replace변경 '안에 모두에있는 두 개의 심볼 - 단일 문자 편지에 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@"

온라인으로 시도 하거나 모든 테스트 사례를 확인하십시오!

여기에는 인쇄 할 수없는 문자가 포함되어 있으므로 다음은 16 진 덤프입니다.

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]);

자바 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이 또한 문자 벡터, 예를 작동하는 방법을 벡터화되어 있습니다 :

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

펄 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

온라인으로 사용해보십시오!