Tantangan:

Diberi kata, periksa apakah isogram atau tidak.

Apa :

Isogram adalah kata yang hanya terdiri dari huruf-huruf tanpa duplikat (case-sensitive). String kosong adalah isogram.

Contoh:

"Dermatoglyphics"     ---> true
"ab"                  ---> true
"aba"                 ---> false
"moOse"               ---> false
"abc1"                ---> false
""                    ---> true

Memasukkan :

Anda dapat menerima input dalam format apa pun yang masuk akal

Input hanya akan berisi huruf dan / atau angka, tanpa spasi ( [a-zA-Z0-9])

Keluaran:

• true atau nilai kebenaran apa pun jika inputnya isogram
• false atau nilai falsy sebaliknya

Ini adalah kode-golf sehingga kode terpendek dalam byte menang di setiap bahasa.

Python 2/ 3 36 52 48 bytes

lambda s:len(s)==len({*s.lower()}-{*str(56**7)})

Cobalah online!

Saya memanfaatkan fakta yang sethanya mengandung elemen unik. Dengan memohon __len__metode masing-masing, saya dapat menentukan apakah sjuga hanya berisi elemen unik (mengabaikan kasus).

EDIT: Diperbarui untuk memenuhi persyaratan yang sebelumnya diabaikan untuk mengembalikan False untuk input numerik. Himpunan semua digit dikodekan sebagai set(str(56**7)).

EDIT 2: Mengikuti saran pengguna ini , saya sekarang mengambil keuntungan dari membongkar argumen untuk mengatur pemahaman. Ini secara resmi merusak kompatibilitas dengan Python 2.

05AB1E , 5 byte

lDáÙQ

Cobalah online!

Penjelasan

l        # convert input to lower-case
 D       # duplicate
  á      # keep only letters
   Ù      # remove duplicates
    Q     # compare for equality

R , 41 byte

!grepl("(.).*\\1|\\d",tolower(scan(,"")))

Cobalah online!

Pendekatan regex. !grepl(regex,scan(,""),F)tidak berfungsi jadi saya kira menangkap tidak cocok dengan huruf besar-kecil di R? Saya buruk di regex secara umum, jadi saya tidak akan terkejut jika saya salah melakukannya ...

R , 58 byte

!anyDuplicated(c(el(strsplit(tolower(scan(,"")),"")),0:9))

Cobalah online!

Tambahkan digit 0:9ke daftar karakter dan tes (lebih kecil) jika ada duplikat.

Ruby , 25 23 21 byte

-2 byte pada keduanya berkat Giuseppe

->s{/(.).*\1|\d/i!~s}

Cobalah online!

-2 byte terima kasih kepada Kirill L.

Ruby -n , 21 19 18 16 byte

p !/(.).*\1|\d/i

Cobalah online!

Brachylog , 4 byte

ḷo⊆Ạ

Cobalah online!

Predikat akan berhasil jika input isogram dan gagal jika tidak, menghasilkan alfabet Latin huruf kecil jika berhasil. Karena predikat bawaan Brachylog ⊆tidak persis cocok dengan hubungan biasa antara subset dan superset, saya harus menghabiskan satu byte untuk menyortir input yang lebih rendah, tetapi menyimpan satu byte karena tidak harus secara eksplisit memeriksa duplikat di dalamnya. (Jika tidak perlu gagal dengan angka, kita bisa menggunakan ḷ≠.)

Sekam , 6 byte

§=f√ü_

Cobalah online!

Penjelasan

§=f√ü_  -- takes a string as argument, eg: "sAad2"
§       -- fork the argument..
  f√    -- | filter out non-letters: "sad"
    ü_  -- | deduplicate by lower-case: "sAd2"
 =      -- ..and compare: 0

Japt , 12 byte

;v
oC ‰ eUq

Penjelasan:

;v
;         // Set alternative default vars, where C is the lowercase alphabet
 v        // Make the implicit input lowercase and reassign it
oC ‰ eUq
oC        // Remove all items from the input that are not in the alphabet
   ‰     // Split into chars and select unique array items
      eUq // Check if the result is equal to the input split into chars

Coba di sini.

MATL , 9 byte

kt2Y2X&X=

Cobalah online!

k   % Lowercase implicit input
t   % Duplicate that
2Y2 % Push lowercase alphabet
X&  % Intersection of alphabet and duplicate lowercase input
X=  % Check for exact equality.

Python 3 , 46 byte

lambda s:s.isalpha()*len(s)==len({*s.lower()})

Cobalah online!

Japt 2.0, 12 11 byte

-1 byte terima kasih kepada Nit

v
f\l â eUq

Uji secara online!

JavaScript (Node.js) , 29 25 byte

s=>!/(.).*\1|\d/i.test(s)

Cobalah online!

Terima kasih atas pembaruan jawaban @BMO , @ l4m2 , @KevinCruijssen

-4 byte terima kasih kepada @KevinCruijssen

Retina , 16 byte

Ci`(.).*\1|\d
^0

Kembali 1sebagai nilai Kebenaran dan 0sebagai Falsey.
Terima kasih @Neil untuk menemukan dan memperbaiki bug di kode awal saya.

Cobalah online.

Penjelasan:

C             Check if the input matches part of the following regex:
 i`            Case insensitivity enabled
               Check if part of the input matches either:
  (.)           A character `C`
     .*         followed by zero or more characters
       \1       followed by the same character `C` again
         |     Or
          \d    A digit
^0             Invert Truthy/Falsey, basically replacing every 0 with a 1,
               and every other value with a 1

PowerShell , 91 byte

param($b)($a=[char[]]$b.ToUpper()|group|sort c*)[0].Count-eq$a[-1].count-and$b-notmatch'\d'

Cobalah online!

Solusi naif, tapi saya tidak bisa menghasilkan algoritma yang lebih baik. Mengambil input $b, mengonversinya ToUppercase, melemparkannya sebagai char-array. Pipes array Group-Objectyang membangun objek yang memiliki pasangan nama / hitungan untuk setiap huruf input. Kami kemudian sortberdasarkan count dan mengambil yang 0satu daripadanya. Kami memeriksa apakah .Countini asli -eqke.Count[-1] pasangan terakhir . Jika demikian, maka jumlah semuanya sama, jika tidak kita memiliki jumlah huruf yang berbeda.

Kami kemudian -anddengan memeriksa apakah input -notmatchmenentang \duntuk mengesampingkan digit dalam input. Hasil Boolean ditinggalkan di jalur pipa dan hasilnya tersirat.

Jelly , 8 byte

ŒufØA⁼QƲ

Cobalah online!

Python 2 , 57 56 byte

x=input().lower()
print len(set(x)-set(`763**4`))/len(x)

Cobalah online!

Pertama-tama giliran lalu input ke dalam satu set, menghapus duplikat, kemudian menghapus digit (dikodekan dalam `763**4`), lalu periksa apakah panjangnya sama dengan input asli

Java 8, 61 39 byte

s->!s.matches("(?i).*((.).*\\2|\\d).*")

Penjelasan:

Cobalah online.

s->  // Method with String parameter and boolean return-type
  !s.matches("(?i).*((.).*\\2|\\d).*")
     //  Return whether the input does not match the regex

Penjelasan regex:

String#matchessecara implisit menambahkan ^...$.

^(?i).*((.).*\2|\d).*$
 (?i)                      Enable case insensitivity
^    .*                    Zero or more leading characters
       (       |  )        Followed by either:
        (.)                 Any character `C`
           .*               with zero or more characters in between
             \2             followed by that same character `C` again
               |           Or:
                \d          Any digit
                   .*$     Followed by zero or more trailing characters

APL (Dyalog Unicode) , 12 byte

Fungsi diam-diam anonim.

(∪≡~∘⎕D)819⌶

Cobalah online!

819⌶ huruf kecil

(...)  terapkan fungsi tersembunyi berikut pada itu:

 ~∘⎕D hapus D igits dari argumen

 ∪≡ Apakah elemen unik dari argumen itu identik dengan itu?

Perl 6 , 22 byte

{!(.uc~~/(.).*$0|\d/)}

Cobalah online!

Tidak ada kecocokan untuk beberapa karakter, kemudian karakter yang sama. Fungsi tersirat sebagai blok kode, cocok secara implisit dengan $ _, invert book with !. Ditambahkan|\d (ta Adam) tetapi juga dibutuhkan.uc~~ , yang membutuhkan kurung ...

Alternatif dengan Tas, 23 byte

{.uc.ords.Bag⊆65..97}

Cobalah online!

Kasus yang normal ini kemudian membuat tas (diatur dengan jumlah kejadian). Subset atau sama hanya benar jika semua anggota adalah anggota Tas pembanding, dan semua jumlah insiden kurang dari atau sama dengan yang ada dalam Tas pembanding. Jadi setiap pengulangan atau angka akan membuat perbandingan salah.

Swift , 81 byte

let s=readLine()!.lowercased().characters;print(s.count<1||Set(s).count==s.count)

Cobalah online!

Visual Basic for Applications (32 bit), 102 byte

s=LCase(InputBox(u)):j=1:For i=1To Len(s):k=Mid(s,i,1):j=j*0^Instr(i+1,s,k)*(k Like"[a-z]"):Next:?j<>0

Menggunakan fakta bahwa di VBA 0^x menghasilkan 1 jika x adalah nol dan 0 sebaliknya. Jalankan di jendela (debug) langsung.

Sunting: seperti yang ditunjukkan oleh Taylor dalam komentar ini hanya berfungsi dalam 32 bit instal MS Office.

05AB1E , 4 byte

lDÔQ

Cobalah online!

Penjelasan

l      # convert input to lowercase
 D     # duplicate and push to stack
  Ô    # uniquify the list of characters
   Q   # check for equality

C (gcc) , 87 85 83 byte

• Disimpan dua empat byte berkat ceilingcat .

f(s,p,b,P)char*s,*p;{for(b=s;*s;++s)for(p=b*=*s>64;b&&p<s;b=(*s^*p++)&95?b:0);s=b;}

Cobalah online!

K (ngn / k) , 18 byte

{(a^,/$!10)~?a:_x}

Cobalah online!

CJam , 11 byte

qelA,s+_L|=

Cobalah online!

Penjelasan

Ide dasarnya adalah menambahkan setiap digit kemudian memeriksa duplikat. Karena append memastikan bahwa setiap digit sudah ada satu kali, setiap kehadiran lebih lanjut dari digit akan menjadi duplikat, yang menyebabkannya kembali salah.

q      e# read the input:            | "MOoSE1"
el     e# convert to lowercase:      | "moose1"
A      e# push 10:                   | "moose1" 10
,      e# range [0,N):               | "moose1" [0 1 2 3 4 5 6 7 8 9]
s      e# string representation:     | "moose1" "0123456789"
+      e# concatenate:               | "moose10123456789"
_      e# duplicate:                 | "moose10123456789" "moose10123456789"
L|     e# union with the empty list: | "moose10123456789" "mose1023456789"
       e# (this gets rid of duplicates)
=      e# Equal to original:         | 0

Merah , 76 byte

func[s][a: charset[#"a"-#"z"#"A"-#"Z"]parse s[any[copy c a ahead not to c]]]

Cobalah online!

Smalltalk, 57 byte

Metode yang akan didefinisikan dalam kelas String:

s^(self select:#isLetter)asUppercase asSet size=self size

Ini kemungkinan besar cukup jelas.

Pyth , 17 byte

.Am&!t/rz0d}dGrz0

Suite uji

.Am&!t/rz0d}dGrz0 # Code
  m           rz0 # Map the following over the lowercase input:
      /rz0d       #  Count occurrences of d in lowercase input
     t            #   minus 1
    !             #    inverted (0 -> True)
   &              #     and
           }dG    #      d is in the lowercase alphabet
.A                # Print whether all values are truthy

z=input()
print(all(map(lambda d:not z.lower().count(d)-1and d in "abcdefghijklmnopqrstuvwxyz",z.lower())))

C #, 82 byte

bool f(string s)=>!!(s.GroupBy(c=>c).Any(c=>c.Count()>1|(!Char.IsLetter(c.Key))));

sunting: tes tambahan untuk char

sunting: menggunakan GroupBy untuk mempersingkatnya dengan 5 byte

APL (Dyalog Unicode) , 25 20 22 byte

''≡'(.).*\1|\d'⎕S'&'⍠1

Cobalah online!

Mengembalikan 1 untuk true, kalau tidak 0.

Disimpan 5 byte berkat @ H.PWiz

Memperbaiki, dan menyimpan byte lain berkat @ Adám

Bagaimana?

''≡'(.).*\1|\d'⎕S'&'⍠1 ⍝ Tacit fn
                    ⍠1 ⍝ Ignore case
               ⎕S'&'   ⍝ Search and return the match(es)
   '(.).*\1|\d'        ⍝ For this regex
''≡                    ⍝ And compare to the empty string

Tcl , 114 byte

proc I w {lmap c [set L [split $w ""]] {if {[regexp -all -nocase $c $w]>1|![string is alp $c]} {return 0}}
expr 1}

Cobalah online!

proc I w {lmap c [set L [split $w ""]] {if {[llength [lsearch -al -noc $L $c]]>1|![string is alp $c]} {return 0}}
expr 1}

Cobalah online!

Masih terlalu lama untuk seleraku!