소개

주어진 문자열이 얼마나 많은 영어 알파벳을 사용합니까? 이전 문장은 77 %를 사용합니다. 20 개의 고유 한 문자 (howmucftenglisapbdvr)와 20/26 ≃ 0.77이 있습니다.

도전

입력 문자열의 경우 문자열에있는 영어 알파벳 문자의 백분율을 반환합니다.

• 답은 백분율 또는 10 진수 형식 일 수 있습니다.

• 입력 문자열은 구두점뿐만 아니라 대소 문자를 포함 할 수 있습니다. 그러나 분음 부호 나 강조 문자가 없다고 가정 할 수 있습니다.

테스트 사례

입력

"Did you put your name in the Goblet of Fire, Harry?" he asked calmly.

일부 유효한 출력

77%, 76.9, 0.7692

입력:

The quick brown fox jumps over the lazy dog

유효한 모든 출력 :

100%, 100, 1

예상되는 출력을 위해 "@#$%^&*?!"그리고 ""0이다.

파이썬 3 , 42 바이트

lambda s:len({*s.upper()}-{*s.lower()})/26

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

대문자와 소문자 표현의 (세트) 차이를 취하여 문자열에서 모든 비 알파벳 문자를 필터링합니다. 그런 다음 길이를 가져 와서 26으로 나눕니다.

파이썬 3 , 46 바이트

lambda s:sum(map(str.isalpha,{*s.lower()}))/26

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

고유 한 알파벳 (소문자) 문자 수를 세고 26으로 나눕니다. Python 2에서는 3 자 이상이 필요합니다. 두 변화 {*...}로 set(...)하고, 플로트 (26)를 만들기위한 하나 26.피 바닥 분할한다.

파이썬 3 , 46 바이트

lambda s:sum('`'<c<'{'for c in{*s.lower()})/26

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

동일한 길이, 본질적으로 이전 길이와 동일하지만 "내장"문자열 방법이 없습니다.

MATL , 8 바이트

2Y2jkmYm

MATL Online 에서 사용해보십시오

설명

2Y2    % Predefined literal for 'abcdefghijklmnopqrstuvwxyz'
j      % Explicitly grab input as a string
k      % Convert to lower-case
m      % Check for membership of the alphabet characters in the string. 
       % Results in a 26-element array with a 1 where a given character in 
       % the alphabet string was present in the input and a 0 otherwise
Ym     % Compute the mean of this array to yield the percentage as a decimal
       % Implicitly display the result

옥타브 / MATLAB, 33 바이트

@(s)mean(any(65:90==upper(s)',1))

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

설명

@(s)                               % Anonymous function with input s: row vector of chars
             65:90                 % Row vector with ASCII codes of uppercase letters
                    upper(s)       % Input converted to uppercase
                            '      % Transform into column vector
                  ==               % Equality test, element-wise with broadcast. Gives a
                                   % matrix containing true and false
         any(                ,1)   % Row vector containing true for columns that have at
                                   % least one entry with value true
    mean(                       )  % Mean

05AB1E , 8 7 6 바이트

lASåÅA

@LuisMendo 덕분에 -1 바이트 .

온라인으로 시도 하거나 몇 가지 테스트 사례를 확인하십시오 .

@Grimy가 제공하는 6 바이트 대안 :

láÙg₂/

온라인으로 시도 하거나 몇 가지 테스트 사례를 확인하십시오 .

두 프로그램 모두 10 진수로 출력됩니다.

설명:

l       # Convert the (implicit) input-string to lowercase
 AS     # Push the lowercase alphabet as character-list
   å    # Check for each if it's in the lowercase input-string
        # (1 if truthy; 0 if falsey)
    ÅA  # Get the arithmetic mean of this list
        # (and output the result implicitly)

l       # Convert the (implicit) input-string to lowercase
 á      # Only leave the letters in this lowercase string
  Ù     # Uniquify it
   g    # Get the amount of the unique lowercase letters by taking the length
    ₂/  # Divide this by 26
        # (and output the result implicitly)

C # (Visual C # 대화 형 컴파일러) , 56 49 바이트

a=>a.ToUpper().Distinct().Count(x=>x>64&x<91)/26f

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

innat3 덕분에 -6 바이트

APL (Dyalog Extended) , 10 바이트 ^SBCS

익명의 암묵적 접두사 기능. 소수를 반환합니다.

26÷⍨∘≢⎕A∩⌈

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

⌈ 대문자

⎕A∩ 대문자 A lphabet 과의 교차

≢ 탈리 길이

∘ 그때

26÷⍨ 26으로 나누다

펄 6 , 27 24 바이트

nwellnhof 덕분에 -3 바이트

*.uc.comb(/<:L>/).Set/26

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

Bash 및 Gnu 유틸리티 ( 81 78 68 60 42 바이트)

bc -l<<<`grep -io [a-z]|sort -fu|wc -l`/26

@wastl 덕분에 -8 바이트

내가 알지 못했던 몇 가지 트릭을 사용 하는 Nahuel 덕분에 -18 바이트

• sort -f및 grep -i사례를 무시
• sort -u 의 대체품입니다 | uniq

K (oK) , 19 15 바이트

해결책:

1%26%+/26>?97!_

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

설명:

입력을 소문자로 변환, 모듈로 97 ( "az"는 ASCII에서 97-122, 모듈로 97은 0-25를 나타냄), 26보다 낮은 고유 한 결과를 취하고 26의 백분율로 변환합니다.

1%26%+/26>?97!_ / the solution
              _ / lowercase
           97!  / modulo (!) 97
          ?     / distinct
       26>      / is 26 greater than this?
     +/         / sum (+) over (/)
  26%           / 26 divided by ...
1%              / 1 divided by ...

노트:

• ngn 덕분에 -1 바이트 , 1-%[;26]=>1-1%26%
• ngn에서 영감을 얻은 -3 바이트#(!26)^ =>+/26>?

PowerShell , 55 52 바이트

($args|% *per|% t*y|sort|gu|?{$_-in65..90}).count/26

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

첫 번째 시도, 여전히 임의의 아이디어를 시도

편집 : @Veskah 지적 ToUpper는 숫자 범위로 인해 바이트를 저장하고 여분 ()의 공백 도 제거 했습니다.

확장:
($args|% ToUpper|% ToCharArray|sort|get-unique|where{$_-in 65..90}).count/26

문자열을 모두 소문자로 변경 하고, 배열로 확장하고, 요소를 정렬하고 고유 문자를 선택하고 (구는 정렬 된 입력 필요) ASCII 값 97 ~ 122 (a ~ z) 65 ~ 90 (A ~ Z)의 문자 만 유지 , 10 진수 출력에 대해 총계를 세고 26으로 나눕니다.

R , 47 바이트

function(x)mean(65:90%in%utf8ToInt(toupper(x)))

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

대문자로 변환 한 다음 ASCII 코드 포인트로 변환하고 A : Z에 해당하는 값 65:90을 확인합니다.

레티 나 0.8.2 , 45 바이트

T`Llp`ll_
+`(.)(.*\1)
$2
.
100$*
^
13$*
.{26}

온라인으로 사용해보십시오! 링크에는 테스트 사례가 포함됩니다. 설명:

T`Llp`ll_

소문자와 문장 부호를 삭제하십시오.

+`(.)(.*\1)
$2

중복 제거.

.
100$*

100을 곱하십시오.

^
13$*

추가 13.

.{26}

정수는 26으로 나누고 10 진수로 변환합니다.

APL (Dyalog Extended) , 8 바이트

⌹∘≤⍨⎕A∊⌈

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

Adám의 답변을 기반으로

⌈ 대문자

⎕A∊문자열 에있는 영어 A lbet의 문자를 나타내는 길이 26의 부울 (0 또는 1) 벡터

⌹∘≤⍨ 산술 평균, 즉 인수의 행렬 나누기와 길이가 같은 all-1 벡터

숯 , 11 바이트

Ｉ∕ＬΦβ№↧θι²⁶

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 출력은 10 진수 (또는 1팬 그램)입니다. 설명:

  Ｌ         Length of
    β       Lowercase alphabet
   Φ        Filtered on
     №      Count of
        ι   Current letter in
      ↧     Lowercased
       θ    Input
 ∕          Divided by
         ²⁶ Literal 26
Ｉ           Cast to string
            Implicitly printed

배치, 197 바이트

@set/ps=
@set s=%s:"=%
@set n=13
@for %%c in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z)do @call set t="%%s:%%c=%%"&call:c
@cmd/cset/an/26
@exit/b
:c
@if not "%s%"==%t% set/an+=100

STDIN에서 입력을 받고 반올림 백분율을 출력합니다. 설명:

@set/ps=

문자열을 입력하십시오.

@set s=%s:"=%

스트립 따옴표는 배치에서 다루어야 할 두통이기 때문입니다.

@set n=13

반올림 목적으로 반자로 시작하십시오.

@for %%c in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z)do @call set t="%%s:%%c=%%"&call:c

문자열에서 각 문자를 차례로 삭제하십시오. 배치가 변수를 구문 분석하는 방식으로 인해 서브 루틴을 호출하여 변경된 사항이 있는지 확인하십시오.

@cmd/cset/an/26

결과를 백분율로 계산하십시오.

@exit/b
:c

서브 루틴 시작.

@if not "%s%"=="%t%" set/an+=100

문자를 삭제하면 문자열이 변경된 경우 문자 수가 증가합니다.

페페 , (155) 138 바이트

rEeEeeeeeEREeEeEEeEeREERrEEEEErEEEeReeReRrEeeEeeeeerEEEEREEeRERrErEErerREEEEEeREEeeRrEreerererEEEEeeerERrEeeeREEEERREeeeEEeEerRrEEEEeereEE

온라인으로 사용해보십시오! 출력은 10 진수 형식입니다.

설명:

rEeEeeeeeE REeEeEEeEe # Push 65 -> (r), 90 -> (R)
REE # Create loop labeled 90 // creates [65,66,...,89,90]
  RrEEEEE # Increment (R flag: preserve the number) in (r)
  rEEEe # ...then move the pointer to the last
Ree # Do this while (r) != 90

Re # Pop 90 -> (R)
RrEeeEeeeee rEEEE # Push 32 and go to first item -> (r)
REEe # Push input -> (R)
RE RrE # Push 0 on both stacks, (r) prepend 0
rEE # Create loop labeled 0 // makes input minus 32, so the
    # lowercase can be accepted, since of rEEEEeee (below)
  re # Pop 0 -> (r)
  rREEEEEe REEee # Push item of (R) minus 32, then go to next item 
  RrE # Push 0 -> (R)
ree # Do while (R) != 0

rere # Pop 0 & 32 -> (r)
rEEEEeee # Remove items from (r) that don't occur in (R)
         # Remove everything from (r) except the unique letters
rE # Push 0 -> (r)
RrEeee # Push reverse pointer pos -> (r)
REEEE # Move pointer to first position -> (R)
RREeeeEEeEe # Push 26 -> (R)
rRrEEEEee reEE # Divide it and output it

K (oK) , 19 바이트

1%26%26-#(!26)^97!_

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

J , 30 바이트

26%~26-u:@(97+i.26)#@-.tolower

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

망막 , 57 46 35 바이트

.
$L
[^a-z]

D`.
.
100*
^
13*
_{26}

나누기 전에 단항 13을 추가하는 @Neil 의 트릭 에서 영감을 얻은 -11 바이트 . @Neil
덕분에 또 다른 -11 바이트 . 정수 전체로 올바로 반올림합니다.

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

10 진수 출력으로 작동하는 57 46 40 바이트 버전 :

.
$L
[^a-z]

D`.
.
1000*
C`_{26}
-1`\B
.

@Neil 덕분에 동일한 -11 바이트와 추가 -6 바이트가 있습니다.

$0.1538$$\frac{4}{26}$15.315.4$\lfloor{\frac{1000 × \text{unique_letters}}{26}\rfloor}$

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

설명:

모든 문자를 소문자로 변환하십시오.

.
$L

비 레터를 모두 제거하십시오.

[^a-z]

모든 문자를 균등화하십시오.

D`.

모든 고유 문자를 1000 밑줄로 바꿉니다.

.
1000*

26 개의 인접한 밑줄이 그에 맞는 횟수를 세십시오.

C`_{26}

올바른 위치에 점을 삽입하십시오.

-1`\B
.

자바 8, 62 59 바이트

s->s.map(c->c&95).distinct().filter(c->c%91>64).count()/26.

덕분에 -3 바이트 @ OlivierGrégoire .

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

설명:

s->                     // Method with IntStream as parameter and double return-type
  s.map(c->c&95)        //  Convert all letters to uppercase
   .distinct()          //  Uniquify it
   .filter(c->c%91>64)  //  Only leave letters (unicode value range [65,90])
   .count()             //  Count the amount of unique letters left
    /26.                //  Divide it by 26.0

줄리아 1.0 , 34 바이트

s->sum('a':'z'.∈lowercase(s))/26

벡터화 된 사용to 연산자 버전을 a에서 z까지의 모든 문자에 대해 문자열의 포함을 확인합니다. 그런 다음 결과 BitArray를 합산하고 가능한 총 문자 수로 나눕니다.

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

C, 96 바이트

float f(char*s){int i=66,l[256]={};for(;*s;)l[1+*s++&~32]=1;for(;i<92;*l+=l[i++]);return*l/26.;}

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

펄 5 -MList::Util=uniq -p , 24 바이트

$_=uniq(lc=~/[a-z]/g)/26

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

Stax , 9 바이트

░║üy$}╙+C

실행 및 디버깅

젤리 , 8 바이트

ŒuØAe€Æm

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

설명

Œu       | Convert to upper case
  ØAe€   | Check whether each capital letter is present, returning a list of 26 0s and 1s
      Æm | Mean

자바 스크립트 (Node.js) , 45 바이트

s=>~-s.match(/$|([a-z])(?!.*\1)/ig).length/26

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

자바 스크립트 (Node.js) , 47 바이트

s=>(s.match(/([a-z])(?!.*\1)/ig)||[]).length/26

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

파이썬 3 , 51 49 바이트

alexz02 덕분에 51-> 49 바이트

lambda s:len({*filter(str.isalpha,s.lower())})/26

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

Japt , 9 바이트

;CoU Ê/26

시도 해봐

;CoU Ê/26     :Implicit input of string U
;C            :Lowercase alphabet
  oU          :Remove the characters not included in U, case insensitive
     Ê        :Length
      /26     :Divide by 26

파이썬 2 , 57 바이트

lambda i:len(set(o for o in i.lower()if o.isalpha()))/26.

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

ArBo 의 Python 3 답변 보다 약간 길지만 어쨌든 Python 2에서는 다른 접근법으로 게시되었습니다.

루비 -n , 38 34 바이트

@historcrat에서 -4 바이트!

p (?A..?Z).count{|c|~/#{c}/i}/26.0

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

C, 95 바이트

f(char*s){int a[256]={},z;while(*s)a[*s++|32]=1;for(z=97;z<'z';*a+=a[z++]);return(*a*100)/26;}

(참고 : 반올림)

다른 10 진수 리턴 버전 (95 바이트) :

float f(char*s){int a[256]={},z;while(*s&&a[*s++|32]=1);for(z=97;z<'z';*a+=a[z++]);return*a/26.;}

이것은 @Steadybox의 답변에서 일부를 빌립니다.