pengantar

Seberapa banyak alfabet bahasa Inggris yang digunakan string? Kalimat sebelumnya menggunakan 77%. Ini memiliki 20 huruf unik (howmucftenglisapbdvr), dan 20/26 ≃ 0,77.

Tantangan

Untuk string input, kembalikan persentase huruf alfabet Inggris yang ada dalam string.

• Jawabannya bisa dalam bentuk persentase atau dalam bentuk desimal.

• String input dapat memiliki huruf besar dan kecil, serta tanda baca. Namun Anda dapat menganggap mereka tidak memiliki karakter diakritik atau aksentuasi.

Uji kasus

Memasukkan

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

Beberapa output yang valid

77%, 76.9, 0.7692

Memasukkan:

The quick brown fox jumps over the lazy dog

Semua output yang valid:

100%, 100, 1

Output yang diharapkan untuk "@#$%^&*?!"dan ""adalah 0.

Python 3 , 42 byte

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

Cobalah online!

Kami memfilter semua karakter non-alfabet dari string dengan mengambil (set) perbedaan representasi huruf besar dan huruf kecil. Kemudian, kami mengambil panjangnya dan membaginya dengan 26.

Python 3 , 46 byte

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

Cobalah online!

Hitung karakter alfabet (huruf kecil) yang unik, dan bagi dengan 26. Dalam Python 2 dibutuhkan 3 karakter lagi; dua untuk mengubah {*...}menjadi set(...), dan satu untuk membuat 26 float:, 26.untuk menghindari pembagian lantai.

Python 3 , 46 byte

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

Cobalah online!

Panjang yang sama, pada dasarnya sama dengan yang sebelumnya, tetapi tanpa metode string "bawaan".

MATL , 8 byte

2Y2jkmYm

Cobalah di MATL Online

Penjelasan

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

Oktaf / MATLAB, 33 byte

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

Cobalah online!

Penjelasan

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

lASåÅA

-1 byte terima kasih kepada @LuisMendo .

Cobalah secara online atau verifikasi beberapa kasus uji lagi .

6 byte alternatif yang disediakan oleh @Grimy :

láÙg₂/

Cobalah secara online atau verifikasi beberapa kasus uji lagi .

Output kedua program sebagai desimal.

Penjelasan:

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 # Interactive Compiler) , 56 49 byte

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

Cobalah online!

-6 byte terima kasih untuk innat3

APL (Dyalog Extended) , 10 byte ^SBCS

Fungsi awalan diam-diam anonim. Mengembalikan pecahan desimal.

26÷⍨∘≢⎕A∩⌈

Cobalah online!

⌈ huruf besar

⎕A∩ persimpangan dengan huruf besar A lphabet

≢ jumlah penghitungan

∘ kemudian

26÷⍨ bagi dengan dua puluh enam

Perl 6 , 27 24 byte

-3 byte terima kasih kepada nwellnhof

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

Cobalah online!

Bash and Gnu utils ( 81 78 68 60 42 bytes)

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

-8 byte terima kasih kepada @wastl

-18 byte terima kasih kepada Nahuel menggunakan beberapa trik yang saya tidak tahu:

• sort -fdan grep -iabaikan case
• sort -u adalah pengganti untuk | uniq

K (oK) , 19 15 byte

Larutan:

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

Cobalah online!

Penjelasan:

Ubah input menjadi huruf kecil, modulo 97 ("az" adalah 97-122 di ASCII, modulo 97 memberi 0-25), ambil unik, jumlahkan hasil yang lebih rendah dari 26, dan konversikan ke persentase 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 ...

Catatan:

• -1 byte, terima kasih kepada ngn, 1-%[;26]=>1-1%26%
• -3 byte terinspirasi oleh ngn #(!26)^=>+/26>?

PowerShell , 55 52 byte

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

Cobalah online!

Upaya pertama, masih mencoba ide-ide acak

EDIT: @Veskah menunjukkan ToUpper menyimpan byte karena rentang nomor, juga menghapus ekstra ()dan spasi

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

Perubahan string untuk semua yang lebih rendah huruf besar, memperluas ke array, macam elemen dan memilih huruf yang unik (gu membutuhkan masukan diurutkan), tetap hanya karakter dari nilai ascii 97-122 (a sampai z) 65-90 (A ke Z), hitung total dan bagi dengan 26 untuk output desimal

R , 47 byte

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

Cobalah online!

Konversi ke huruf besar kemudian ke titik kode ASCII, dan periksa nilai 65:90 yang sesuai dengan A: Z.

Retina 0.8.2 , 45 byte

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

Cobalah online! Tautan termasuk kasus uji. Penjelasan:

T`Llp`ll_

Huruf kecil dan hapus tanda baca.

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

Deduplicate.

.
100$*

Kalikan dengan 100.

^
13$*

Tambahkan 13.

.{26}

Bilangan integer sebesar 26 dan dikonversi ke desimal.

APL (Dyalog Extended) , 8 byte

⌹∘≤⍨⎕A∊⌈

Cobalah online!

longgar berdasarkan jawaban Adm

⌈ huruf besar

⎕A∊boolean (0 atau 1) vektor dengan panjang 26 yang menunjukkan huruf dari bahasa Inggris A lphabet berada dalam string

⌹∘≤⍨ rata-rata aritmatika, yaitu pembagian matriks dari argumen dan vektor semua-1 dengan panjang yang sama

Arang , 11 byte

Ｉ∕ＬΦβ№↧θι²⁶

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Output adalah sebagai desimal (atau 1untuk pangrams). Penjelasan:

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

Batch, 197 byte

@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

Mengambil input pada STDIN dan menghasilkan persentase bulat. Penjelasan:

@set/ps=

Masukkan string.

@set s=%s:"=%

Hapus kutipan, karena mereka sakit kepala untuk berurusan dengan di Batch.

@set n=13

Mulailah dengan setengah huruf untuk tujuan pembulatan.

@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

Hapus setiap huruf pada gilirannya dari string. Aktifkan subrutin untuk memeriksa apakah ada yang berubah, karena cara Batch mem-parsing variabel.

@cmd/cset/an/26

Hitung hasilnya sebagai persentase.

@exit/b
:c

Mulai dari subrutin.

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

Jika menghapus surat, mengubah string maka menambah jumlah surat.

Pepe , 155 138 byte

rEeEeeeeeEREeEeEEeEeREERrEEEEErEEEeReeReRrEeeEeeeeerEEEEREEeRERrErEErerREEEEEeREEeeRrEreerererEEEEeeerERrEeeeREEEERREeeeEEeEerRrEEEEeereEE

Cobalah online! Output dalam bentuk desimal.

Penjelasan:

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 byte

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

Cobalah online!

J , 30 byte

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

Cobalah online!

Retina , 57 46 35 byte

.
$L
[^a-z]

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

-11 bytes mengambil inspirasi dari @ Neil trik 's menambahkan unary 13 sebelum membagi .
Lain -11 byte berkat @Neil secara langsung.
Rounds (benar) ke seluruh bilangan bulat.

Cobalah online.

57 46 40 byte versi yang bekerja dengan output desimal:

.
$L
[^a-z]

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

Sama-11 byte serta tambahan -6 byte berkat @Neil .

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

Cobalah online.

Penjelasan:

Ubah semua huruf menjadi huruf kecil:

.
$L

Hapus semua bukan huruf:

[^a-z]

Uniquify all letters:

D`.

Ganti setiap huruf unik dengan 1000 garis bawah:

.
1000*

Hitung jumlah kali 26 garis bawah yang berdekatan masuk ke dalamnya:

C`_{26}

Masukkan titik di tempat yang benar:

-1`\B
.

Java 8, 62 59 byte

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

-3 byte terima kasih kepada @ OlivierGrégoire .

Cobalah online.

Penjelasan:

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 byte

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

Menggunakan versi vektor dari operator ∈, memeriksa isi dalam string untuk semua karakter dalam rentang dari a hingga z. Kemudian jumlahkan BitArray yang dihasilkan dan bagi dengan jumlah total huruf yang mungkin.

Cobalah online!

C, 96 byte

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

Cobalah online!

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

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

Cobalah online!

Stax , 9 byte

░║üy$}╙+C

Jalankan dan debug itu

Jelly , 8 byte

ŒuØAe€Æm

Cobalah online!

Penjelasan

Œ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 byte

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

Cobalah online!

JavaScript (Node.js) , 47 byte

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

Cobalah online!

Python 3 , 51 49 byte

51 -> 49 byte, terima kasih kepada alexz02

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

Cobalah online!

Japt , 9 byte

;CoU Ê/26

Cobalah

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

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

Cobalah online!

Sedikit lebih lama dari jawaban Python 3 dari ArBo tetapi diposting sebagai pendekatan yang berbeda dalam Python 2 pula.

Ruby -n , 38 34 byte

-4 byte dari @historcrat!

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

Cobalah online!

C, 95 byte

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

(catatan: bulat ke bawah)

Versi pengembalian-desimal alternatif (95 byte):

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

Ini meminjam sebagian dari jawaban @Steadybox '.