Giriş

Belirli bir dize İngilizce alfabenin ne kadarını kullanıyor? Önceki cümle% 77 kullanır. 20 benzersiz harf (howmucftenglisapbdvr) ve 20/26 ≃ 0.77 vardır.

Meydan okuma

Bir giriş dizesi için dizede bulunan İngilizce alfabenin harflerinin yüzdesini döndürün.

• Cevap yüzde veya ondalık biçimde olabilir.

• Giriş dizesi büyük ve küçük harflerin yanı sıra noktalama işaretlerini de içerebilir. Ancak, onların hiçbir aksan veya vurgulanan karakterleri olmadığını varsayabilirsiniz.

Test durumları

Giriş

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

Bazı geçerli çıktılar

77%, 76.9, 0.7692

Giriş:

The quick brown fox jumps over the lazy dog

Tüm geçerli çıktılar:

100%, 100, 1

Beklenen çıktı "@#$%^&*?!"ve ""0'dır.

Python 3 , 42 bayt

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

Çevrimiçi deneyin!

Alfabetik olmayan tüm karakterleri büyük ve küçük harf gösterimlerinin (set) farkını alarak dizgiden süzeriz. Sonra uzunluğu alırız ve 26'ya böleriz.

Python 3 , 46 bayt

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

Çevrimiçi deneyin!

Benzersiz alfabetik (küçük harf) karakterleri say ve 26 ile böl. Python 2'de 3 karakter daha gerekir; iki tanesini değiştirmek {*...}için set(...), diğeri 26'yı bir şamandıra haline getirmek için:, 26.zeminin bölünmesini önlemek için.

Python 3 , 46 bayt

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

Çevrimiçi deneyin!

Aynı uzunluk, esasen öncekiyle aynı, ancak "dahili" string yöntemi olmadan.

MATL , 8 bayt

2Y2jkmYm

MATL Online'da deneyin

açıklama

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

Octave / MATLAB, 33 bayt

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

Çevrimiçi deneyin!

açıklama

@(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 bayt

lASåÅA

@ LouisMendo sayesinde -1 bayt .

Çevrimiçi deneyin ya da birkaç test vakası daha doğrulayın .

@Grimy tarafından sağlanan 6 byte alternatif :

láÙg₂/

Çevrimiçi deneyin ya da birkaç test vakası daha doğrulayın .

Her iki program da ondalık olarak verilir.

Açıklama:

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 # Etkileşimli Derleyici) , 56 49 bayt

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

Çevrimiçi deneyin!

İnnat3 sayesinde -6 bayt

APL (Dyalog Genişletilmiş) , 10 bayt ^SBCS

Anonim zımni önek işlevi. Ondalık kesir döndürür.

26÷⍨∘≢⎕A∩⌈

Çevrimiçi deneyin!

⌈ büyük harf

⎕A∩ Büyük A lphabet ile kesişme

≢ taksitli uzunluk

∘ sonra

26÷⍨ yirmi altıya bölmek

Perl 6 , 27 24 bayt

Nwellnhof sayesinde -3 bayt

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

Çevrimiçi deneyin!

Bash ve Gnu yardımcı programları ( 81 78 68 60 42 bayt)

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

@Wastl sayesinde -8 bayt

-18 sayesinde bayt Nahuel bilmiyordum bazı hileler kullanılarak:

• sort -fve grep -idavayı yoksay
• sort -u yerine | uniq

K (OK) , 19 15 bayt

Çözüm:

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

Çevrimiçi deneyin!

Açıklama:

Girişi küçük harfe dönüştürün, modulo 97 ("az" ASCII'de 97-122'dir, modulo 97 0-25 verir), benzersiz olsun, 26'dan düşük sonuçları toplayın ve 26 yüzdesine dönüştürün.

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 ...

Notlar:

• Ngn sayesinde -1 bayt , 1-%[;26]=>1-1%26%
• Ngn #(!26)^=> esinlenerek -3 bayt+/26>?

PowerShell , 55 52 bayt

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

Çevrimiçi deneyin!

İlk deneme, hala rastgele fikirler denemek

EDIT: @Veskah, ToUpper'ın sayı aralığı nedeniyle fazladan ()ve bir boşluktan dolayı bir bayt tasarrufu yaptığını belirtti

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

Dizgiyi küçük harfe dönüştürür, diziye genişletir, öğeleri sıralar ve benzersiz harfleri seçer (gu'nin sıralı giriş yapması gerekir), yalnızca 97 - 122 ( a'dan z'ye) 65 - 90 (A'dan Z'ye) ascii değerindeki karakterleri tutar , toplamı sayın ve ondalık çıktının 26'ya bölün

R , 47 bayt

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

Çevrimiçi deneyin!

Büyük harfe ve ardından ASCII kod noktalarına dönüştürür ve A: Z'ye karşılık gelen 65:90 değerlerini kontrol eder.

Retina 0.8.2 , 45 bayt

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

Çevrimiçi deneyin! Link, test durumlarını içerir. Açıklama:

T`Llp`ll_

Küçük harfler ve noktalama işaretlerini silin.

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

Deduplicate.

.
100$*

100 ile çarp.

^
13$*

13'ü ekleyin.

.{26}

Tamsayı 26 ile bölmek ve ondalık dönüştürmek.

APL (Dyalog Genişletilmiş) , 8 bayt

⌹∘≤⍨⎕A∊⌈

Çevrimiçi deneyin!

gevşek bir şekilde Adám’ın cevabına dayanarak

⌈ büyük harf

⎕A∊ingilizce A lphabet'in hangi harflerinin ipte olduğunu gösteren 26 boolean (0 veya 1) vektör uzunluğu

⌹∘≤⍨ aritmetik ortalama, yani argümanın matris bölümü ve aynı uzunluktaki bir all-1 vektörü

Kömür , 11 bayt

Ｉ∕ＬΦβ№↧θι²⁶

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı bir versiyonudur. Çıktı 1ondalıktır (veya pangramlar için). Açıklama:

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

Toplu iş, 197 bayt

@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'e girdi alır ve yuvarlak bir yüzde verir. Açıklama:

@set/ps=

Dize girin.

@set s=%s:"=%

Alıntılar, çünkü Batch'le başa çıkmak için bir baş ağrısıdır.

@set n=13

Yuvarlama amaçlı yarım harf ile başlayın.

@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

Her harfi sırasından sırayla silin. Batch değişkenlerini ayrıştırma biçimi nedeniyle herhangi bir şeyin değişip değişmediğini kontrol etmek için alt rutini çağırın.

@cmd/cset/an/26

Sonucu yüzde olarak hesaplayın.

@exit/b
:c

Alt yordamın başlangıcı.

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

Bir harfi silmek dizgeyi değiştirdiyse, harf sayısını arttırın.

Pepe , 155 138 bayt

rEeEeeeeeEREeEeEEeEeREERrEEEEErEEEeReeReRrEeeEeeeeerEEEEREEeRERrErEErerREEEEEeREEeeRrEreerererEEEEeeerERrEeeeREEEERREeeeEEeEerRrEEEEeereEE

Çevrimiçi deneyin! Çıktı ondalık biçimdedir.

Açıklama:

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 bayt

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

Çevrimiçi deneyin!

J , 30 bayt

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

Çevrimiçi deneyin!

Retina , 57 46 35 bayt

.
$L
[^a-z]

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

@Neil'den ayrılmadan önce, 13 unary ekleme hilesinden ilham alan -11 bayt . @Neil'e doğrudan
başka bir -11 bayt teşekkürler . Tam bir tamsayıya yuvarlar (doğru).

Çevrimiçi deneyin.

57 46 40 baytlık sürüm ile çalışan sürüm:

.
$L
[^a-z]

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

@Neil sayesinde aynı -11 bayt, ek bir -6 bayt .

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

Çevrimiçi deneyin.

Açıklama:

Tüm harfleri küçük harfe dönüştür:

.
$L

Tüm harfleri kaldır:

[^a-z]

Tüm harfleri benzersizleştir:

D`.

Her benzersiz harfi 1000 alt çizgi ile değiştirin:

.
1000*

26 bitişik alt çizgi içine sığdıran miktarları sayın:

C`_{26}

Doğru yere bir nokta ekleyin:

-1`\B
.

Java 8, 62 59 bayt

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

@ OlivierGrégoire sayesinde -3 bayt .

Çevrimiçi deneyin.

Açıklama:

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

Julia 1.0 , 34 bayt

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

∈ operatörünün vectorized versiyonunu kullanır, a ile z arasındaki aralıktaki tüm karakterlerin dizgesindeki çevreyi kontrol eder. Ardından ortaya çıkan BitArray üzerinde toplanır ve toplam olası harf sayısına bölünür.

Çevrimiçi deneyin!

C, 96 bayt

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.;}

Çevrimiçi deneyin!

Perl 5 -MList::Util=uniq -p , 24 bayt

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

Çevrimiçi deneyin!

Stax , 9 bayt

░║üy$}╙+C

Koş ve hata ayıkla

Jöle , 8 bayt

ŒuØAe€Æm

Çevrimiçi deneyin!

açıklama

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

JavaScript (Node.js) , 45 bayt

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

Çevrimiçi deneyin!

JavaScript (Node.js) , 47 bayt

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

Çevrimiçi deneyin!

Python 3 , 51 49 bayt

51 -> 49 bayt, alexz02 sayesinde

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

Çevrimiçi deneyin!

Japt , 9 bayt

;CoU Ê/26

Dene

;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

Python 2 , 57 bayt

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

Çevrimiçi deneyin!

Python 3'ten biraz daha uzun ArBo'nun cevabını verdi ama yine de Python 2'de farklı bir yaklaşım olarak yayınlandı.

Ruby -n , 38 34 bayt

@Historcrat'dan -4 bayt!

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

Çevrimiçi deneyin!

C, 95 bayt

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

(not: aşağı yuvarlar)

Alternatif ondalık döndüren sürüm (95 bayt):

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.;}

Bu @ Steadybox'ın cevabından biraz ödünç alır.