타이포그래피에서 카운터 는 문자 양식 또는 기호로 전체 또는 부분적으로 둘러싸인 문자 영역입니다. 닫힌 카운터는 문자 양식이나 기호로 완전히 둘러싸인 카운터입니다. 프로그램을 작성해야 문자열을 입력으로 받아서 텍스트에 닫힌 카운터의 총 수를 인쇄합니다.

입력 :

• 명령 행 입력일 수도 있고 STDIN에서 올릴 수도 있지만 어느 것을 지정해야합니다.

• 인쇄 가능한 ASCII 문자로 구성되며 32에서 126 사이의 모든 ASCII 값을 의미합니다. 공백이 포함됩니다. 추가 정보.

이제 글꼴마다 약간 다릅니다. 예를 들어이 글꼴을 읽는 글꼴은 'g'에 하나의 닫힌 카운터가있는 것으로 간주되는 반면 Google 글꼴에는 두 개의 닫힌 카운터가있는 'g'가 있습니다. 이것이 문제가되지 않도록하기 위해, 캐릭터 당 공식적인 폐쇄 카운터 수는 다음과 같습니다.

닫힌 카운터가없는 모든 기호 :

 !"'()*+,-./12357:;<=>?CEFGHIJKLMNSTUVWXYZ[\]^_`cfhijklmnrstuvwxyz{|}~

여기에는 공간이 포함됩니다.

닫힌 카운터가 하나 인 모든 기호는 다음과 같습니다.

#0469@ADOPQRabdegopq

다음은 2 개의 닫힌 카운터가있는 모든 기호입니다.

$%&8B

마지막으로 몇 가지 샘플 입력 및 출력이 있습니다.

Programming Puzzles and Code-Golf 인쇄해야합니다 13

4 8 15 16 23 42 인쇄해야합니다 5

All your base are belong to us 인쇄해야합니다 12

Standard loopholes apply 인쇄해야합니다 12

Shortest answer in bytes is the winner! 인쇄해야합니다 8

Pyth, 31 바이트

sm@tjC"cúÁ-ÈN%³rØ|­"3Cdz

데모.

ASCII가 아닌 문자를 사용하면 코드가 제대로 표시되지 않을 수 있습니다. 올바른 코드는 링크에 있습니다.

각 입력 문자에 대해 원하는 출력의 룩업 테이블을 만들고 Pyth의 모듈 식 인덱싱을 사용하기 위해 32로 회전하고 처음에 1을 붙인 다음 기본 3 숫자로 해석하여 숫자를 제공했습니다 2229617581140564569750295263480330834137283757. 그런 다음이 숫자를 기본 256으로 변환하고 응답으로 사용되는 문자열 인 문자열로 변환했습니다.

파이썬 3, 63

print(sum(map(input().count,"#0469@ADOPQRabdegopq$%&8B$%&8B")))

간단한 접근 방식. 닫힌 카운터로 각 문자를 반복하고 발생 횟수를 합산하여 두 개의 닫힌 카운터가있는 캐릭터에 대해 두 번 반복합니다. 대신 쓰는 길이는 같습니다

"#0469@ADOPQRabdegopq"+"$%&8B"*2

파이썬 3은 피해야 raw_input합니다.

CJam, 41 39 37 34 바이트

"$%&8Badopq#0469@Rbeg"_A<eu+qfe=1b

3 바이트를 골라내는 @ jimmy23013에게 감사드립니다!

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

작동 원리

"$%&8Badopq#0469@Rbeg"             e# Push that string.
                      _A<          e# Retrieve the first 10 characters.
                         eu+       e# Convert to uppercase and append.
                                   e# This pushes "$%&8Badopq#0469@Rbeg$%&8BADOPQ".
                            q      e# Read from STDIN.
                             fe=   e# Count the occurrences of each character. 
                                1b e# Base 1 conversion (sum).

sed, 51

@manatwork 및 @TobySpeight의 골프 도움말 :

s/[$%&8B]/oo/g
s/[^#0469@ADOPQRabdegopq]//g
s/./1/g

STDIN에서 입력. 함께 염두에 메타 질문 , 출력은 단항에 있습니다 :

$ echo 'Programming Puzzles and Code-Golf
4 8 15 16 23 42
All your base are belong to us
Standard loopholes apply
Shortest answer in bytes is the winner!' | sed -f countercounter.sed
1111111111111
11111
111111111111
111111111111
11111111
$ 

펄, 41

$_=y/#0469@ADOPQRabdegopq//+y/$%&8B//*2

41-p플래그의 경우 +1 문자

y /// 를 사용 하여 문자 수를 계산합니다.

echo 'Programming Puzzles and Code-Golf' | perl -pe'$_=y/#0469@ADOPQRabdegopq//+y/$%&8B//*2'

GNU APL, 39 바이트

+/⌈20÷⍨26-'$%&8B#0469@ADOPQRabdegopq'⍳⍞

GNU APL.js 에서 온라인으로 사용해보십시오 .

작동 원리

                                      ⍞ Read input.
          '$%&8B#0469@ADOPQRabdegopq'⍳  Compute the indexes of the input characters
                                        in this string. Indexes are 1-based.
                                        26 == 'not found'
       26-                              Subtract each index from 26.
   20÷⍨                                 Divide those differences by 20.
  ⌈                                     Round up to the nearest integer.
+/                                      Add the results.

자바 스크립트, 86

팝업을 통한 I / O 어떤에서 미리보기 실행 D 테스트에 최신 브라우저를.

for(c of prompt(t=0))c='$%&8B#0469@ADOPQRabdegopq'.indexOf(c),~c?t+=1+(c<5):0;alert(t)

K, 54 43 42 37 바이트

+//(30#"$%&8B#0469@ADOPQRabdegopq"=)'

@JohnE 덕분에 5 바이트를 줄였습니다!

이전 버전 :

f:+/(#&"#0469@ADOPQRabdegopq$%&8B$%&8B"=)'

기발한:

f:+/{2-(5="$%&8B"?x;20="#0469@ADOPQRabdegopq"?x;0)?0}'

C, 127 바이트

n;f(char*i){char*o="#0469@ADOPQRabdegopq",*t="$%&8B";for(;*i;i++)if(strchr(o,*i))n++;else if(strchr(t,*i))n+=2;printf("%d",n);}

꽤 직설적 인. 언 골프 버전 :

int num = 0;
void f(char* input)
{
    char *one="#0469@ADOPQRabdegopq";
    char *two="$%&8B";

    for(;*input;input++)
        if(strchr(one, *input))     //If current character is found in first array
            num ++;
        else if(strchr(two, *input))//If cuurent character is found in second array
            num += 2;

    printf("%d", num);
}

여기에서 테스트

함수 인수가 허용되지 않으면 stdin버전은 최대 141 바이트를 차지합니다.

n;f(){char*o="#0469@ADOPQRabdegopq",*t="$%&8B",i[99],*p;gets(i);for(p=i;*p;p++)if(strchr(o,*p))n++;else if(strchr(t,*p))n+=2;printf("%d",n);}

위 버전에서는 입력 길이가 최대 98 자라고 가정합니다.

여기에서 테스트

명령 줄 인수 버전 (143 바이트) :

n;main(c,v)char**v;{char*o="#0469@ADOPQRabdegopq",*t="$%&8B",*p=v[1];for(;*p;p++)if(strchr(o,*p))n++;else if(strchr(t,*p))n+=2;printf("%d",n);}

여기에서 테스트

파이썬 2, 96 90 75 67 + 2 = 69 바이트

이 작업을 수행하는 다른 방법을 생각할 수 없습니다 ... xnor의 솔루션을 볼 때까지 내가 생각했던 것입니다. 어쨌든 내가 가지고있는 것을 게시 할 것입니다.

6 바이트를 절약 한 FryAmTheEggman에게 감사합니다

좋아, 이제 나는 이것에 만족한다.

찾기 트릭에 대한 xnor 덕분에 4 바이트를 절약했습니다.

입력을 따옴표로 묶어야하므로 2 바이트가 추가되었습니다.

print sum('#0469@ADOPQRabdegopq$%&8B'.find(x)/20+1for x in input())

자바, 162

class C{public static void main(String[]a){System.out.print(-a[0].length()+a[0].replaceAll("[#0469@ADOPQRabdegopq]","..").replaceAll("[$%&8B]","...").length());}}

그런데이 경우 가 전체 프로그램 수 ... 그것은 단지 한 줄의 그 일치 캐릭터와 더 긴 문자열을 대체 그들을. 그런 다음 원본과의 길이 차이를 반환합니다. 불행히도, java는 실제로 일치 횟수를 세는 것이 없습니다.

다음은 줄 바꿈입니다.

class C{
    public static void main(String[]a){
        System.out.print(
                -a[0].length() +
                a[0].replaceAll("[#0469@ADOPQRabdegopq]","..")
                .replaceAll("[$%&8B]","...")
                .length()
                        );
    }
}

Pyth-35 바이트

첫 번째 + * 2의 명백한 방법을 사용합니다. @FryTheEggman에게 감사합니다.

s/Lz+"#0469@ADOPQRabdegopq"*2"$%&8B

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

자바 스크립트, 114 95 바이트

alert(prompt().replace(/[#046@ADOPQRabdegopq]/g,9).replace(/[$%&8B]/g,99).match‌​(/9/g).length)

골프를 도와 주신 Ismael Miguel에게 감사드립니다.

루비, 59 바이트

a=gets;p a.count('#0469@ADOPQRabdegopq')+2*a.count('$%&8B')

명령 행 또는 stdin에서 입력 비 비전 어를 사용하여 지금까지 가장 짧은.

업데이트 : chilemagic이 나를 이겼습니다.

레티 나 , 44 바이트

1

[#0469@ADOPQRabdegopq]
1
[$%&8B]
11
[^1]
<empty line>

단항으로 출력합니다.

각 줄은 자체 파일로 이동하거나 -s플래그를 사용할 수 있습니다 . 예 :

> echo "pp&cg"|retina -s counter
11111

라인 쌍 (패턴-대체 쌍)은 다음 대체 단계를 수행합니다.

• 제거 1'들
• 1 카운터 문자를 1
• 2 자리 문자를 11
• 제거 모든하지만 1의

J, 43

기능으로서 :

   f=:[:+/[:,30$'$%&8B#0469@ADOPQRabdegopq'=/]
   f 'text goes here'
6

46 바이트 (명령 줄)

독립형 명령 행 프로그램으로 :

echo+/,30$'$%&8B#0469@ADOPQRabdegopq'=/>{:ARGV

위의 행을 다른 이름으로 저장하고 counter2.ijs명령 행에서 호출하십시오.

$ jconsole counter2.ijs 'Programming Puzzles and Code Golf'
13

줄리아, 77 74 바이트

t=readline();length(join(t∩"#0469@ADOPQRabdegopq")*join(t∩"\$%&8B")^2)

STDIN에서 텍스트를 읽고 결과를 STDOUT에 인쇄합니다.

언 골프 + 설명 :

# Read text from STDIN
t = readline()

# Print (implied) to STDOUT the length of the intersection of t with the
# 1-closed counter list joined with the duplicated intersection of t with
# the 2-closed counter list
length(join(t ∩ "#0469@ADOPQRabdegopq") * join(t ∩ "\$%&8B")^2)

예:

julia> t=readline();length(join(t∩"#0469@ADOPQRabdegopq")*join(t∩"\$%&8B")^2)
Programming Puzzles and Code Golf
13

rs , 56 바이트

_/
[#0469@ADOPQRabdegopq]/_
[$%&8B]/__
[^_]/
(_+)/(^^\1)

라이브 데모.

GNU APL, 37 자

+/,⍞∘.=30⍴'$%&8B#0469@ADOPQRabdegopq'

2 카운터 문자를 두 번 포함하는 문자형 벡터를 구성합니다 (30⍴)

각 입력 문자를 벡터의 모든 문자와 비교 (∘. =)

래블 링 된 경기 요약 (+ /,)

자바 스크립트 159 , 130 바이트

function c(b){return b.split("").map(function(a){return-1!="$%&8B".indexOf(a)?2:-1!="#0469@ADOPQRabdegopq".indexOf(a)?1:0}).reduce(function(a,b){return a+b})};

축소되지 않은 :

function c(b) {
    return b.split("").map(function(a) {
        return -1 != "$%&8B".indexOf(a) ? 2 : -1 != "#0469@ADOPQRabdegopq".indexOf(a) ? 1 : 0
    }).reduce(function(a, b) {
        return a + b
    })
};

@ edc65의 도움으로 :

function c(b){return b.split('').reduce(function(t,a){return t+(~"$%&8B".indexOf(a)?2:~"#0469@ADOPQRabdegopq".indexOf(a)?1:0)},0)}

하스켈, 117

a="#0469@ADOPQRabdegopq"
b="$%&8B"
c n[]=n
c n(x:s)
 |e a=f 1
 |e b=f 2
 |True=f 0
 where
 e y=x`elem`y
 f y=c(n+y)s

c는 c :: Int -> String -> Int카운터와 문자열을 가져와 현재 문자가 1 포인트 배열 또는 2 포인트 배열의 멤버인지 확인하고 증분 후 나머지 문자열을 호출 하는 함수 입니다. 카운터 적절한 금액.

ghci에서 counter = 0 인 전화 :

ghci> c 0 "All your base are belong to us"
12

C #, 157

void Main(string s){int v=0;v=s.ToCharArray().Count(c=>{return "#0469@ADOPQRabdegopq".Contains(c)||"$%&8B".Contains(c)?++v is int:false;});Console.Write(v);}

언 골프 드 :

void Main(string s)
{
    int v = 0;

    v = s.ToCharArray()
    .Count(c => 
    {
        return "#0469@ADOPQRabdegopq".Contains(c) || "$%&8B".Contains(c) ? ++v is int:false;
    });

    Console.Write(v);
}

문자열을 char 배열로 변환 한 다음 각 문자가 어느 카운터에 있는지 확인합니다. 두 번째에 있으면 카운터를 다시 증가시킵니다.

얼랭, 103 바이트

이것은 escript를 사용하여 실행되는 완전한 프로그램입니다. 파일의 첫 줄은 비워 두어야합니다 (1 바이트 추가).

main([L])->io:write(c(L,"#0469@ADOPQRabdegopq")+2*c(L,"$%&8B")).
c(L,S)->length([X||X<-L,S--[X]/=S]).

샘플 실행 :

$ escript closed.erl 'Shortest answer in bytes is the winner!'
8$

C, 99 바이트

n;f(char*i){for(char*o="#0469@ADOPQRabdegopq$%&8B",*t=o+20;*i;)n+=2-!strchr(o,*i)-!strchr(t,*i++);}

설명

나는 Cool Guy의 답을 더 골프로 쳤다 . 댓글이 너무 길었습니다. if/ 대신 포인터를 bool로 변환하는 else이점을 얻었습니다 !. 또한 총 카운터 수에 대해 "is in "및 "is in "을 추가 할 수 있도록 o포함했습니다 .tot

확장 코드

#include <string.h>
int num = 0;

void f(char* input)
{
    char *one = "#0469@ADOPQRabdegopq"  "$%&8B";
    char *two = strchr(one, '$');

    while (*input) {
        num += 2 - !strchr(one, *input) - !strchr(two, *input));
        ++input;
    }
}

출력은에 있으며 num, 각 호출 전에 지워 져야합니다.

테스트 프로그램 및 결과

#include <stdio.h>
int main() {
    const char* a[] = {
        "Programming Puzzles and Code-Golf",
        "4 8 15 16 23 42",
        "All your base are belong to us",
        "Standard loopholes apply",
        "Shortest answer in bytes is the winner!",
        NULL
    };
    for (const char** p = a;  *p;  ++p) {
        n=0;f(*p);
        printf("%3d: %s\n", n, *p);
    }
    return 0;
}

 13: Programming Puzzles and Code-Golf
  5: 4 8 15 16 23 42
 12: All your base are belong to us
 12: Standard loopholes apply
  8: Shortest answer in bytes is the winner!
 37: n;f(char*i){for(char*o="#0469@ADOPQRabdegopq$%&8B",*t=o+20;*i;)n+=2-!strchr(o,*i)-!strchr(t,*i++);}

코드 자체에는 자체 메트릭으로 37 개의 카운터가 있습니다.