Meydan okuma :

Bir kelime verildiğinde, bunun bir izogram olup olmadığını kontrol edin.

Ne :

İzogram, yalnızca kopya içermeyen harflerden (büyük / küçük harf duyarsız) oluşan bir kelimedir. Boş dize bir izogramdır.

Örnekler:

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

Giriş:

Girişi makul herhangi bir biçimde kabul edebilirsiniz

Giriş yalnızca harf ve / veya rakam içerecek, boşluk içermeyecek ( [a-zA-Z0-9])

Çıktı :

• true veya giriş bir izogram ise herhangi bir doğruluk değeri
• false veya aksi takdirde herhangi bir falsy değeri

Bu kod golf yani her dilde bayt en kısa kod kazanır.

Piton 2/ 3 36 52 48 bayt

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

Çevrimiçi deneyin!

setSadece benzersiz unsurlar içeren gerçeklerden faydalanıyorum . __len__Her birinin yöntemini çağırarak, syalnızca benzersiz öğeler içerip içermediğini belirleyebilirim (yoksayma durumu).

EDIT: Sayısal girişler için False döndürmek için önceden gözden kaçan gereksinimi karşılamak üzere güncelleştirildi. Tüm basamaklar kümesi olarak kodlanır set(str(56**7)).

DÜZENLEME 2: Bu kullanıcı önerisini izleyerek , şimdi kavrayışı ayarlamak için argümanları açmaktan faydalanıyorum. Bu Python 2 ile uyumluluğu resmi olarak bozar.

05AB1E , 5 bayt

lDáÙQ

Çevrimiçi deneyin!

açıklama

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

R , 41 bayt

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

Çevrimiçi deneyin!

Normal ifade yaklaşımı. !grepl(regex,scan(,""),F)işe yaramadı bu yüzden yakalama R büyük / küçük harf duyarsız eşleşmiyor sanırım? Genel olarak normal ifadede kötüyüm, bu yüzden sadece yanlış yapıyorsam şaşırmayacağım ...

R , 58 bayt

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

Çevrimiçi deneyin!

Basamakları 0:9(küçük harfli) karakter listesine ekler ve yinelenme olup olmadığını test eder.

Yakut , 25 23 21 bayt

Giuseppe sayesinde her ikisi de -2 bayt

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

Çevrimiçi deneyin!

Kirill L. sayesinde -2 bayt.

Yakut -n , 21 19 18 16 bayt

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

Çevrimiçi deneyin!

Brachylog , 4 bayt

ḷo⊆Ạ

Çevrimiçi deneyin!

Girdi bir izogram ise yüklem başarılı olur ve değilse başarısız olur, başarılı olursa küçük Latin alfabesinin çıktısını alır. Brachylog'un ⊆yerleşik yüklemi, bir alt küme ve üst küme arasındaki sıradan ilişkiyle tam olarak eşleşmediğinden, küçük harfli girdiyi sıralamak için bir bayt harcamak zorunda kaldım, ancak içindeki kopyaları açıkça kontrol etmek zorunda kalmadan bir bayt kaydettim. (Sayılarla başarısız olması gerekmiyorsa, sadece kullanabiliriz ḷ≠.)

Kabuk , 6 bayt

§=f√ü_

Çevrimiçi deneyin!

açıklama

§=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 bayt

;v
oC ‰ eUq

Açıklama:

;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

Burada deneyin.

MATL , 9 bayt

kt2Y2X&X=

Çevrimiçi deneyin!

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 bayt

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

Çevrimiçi deneyin!

Japt 2,0, 12 11 bayt

Nit sayesinde -1 bayt

v
f\l â eUq

Çevrimiçi test edin!

JavaScript (Node.js) , 29 25 bayt

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

Çevrimiçi deneyin!

@BMO , @ l4m2 , @KevinCruijssen yanıtındaki güncelleme için teşekkür ederiz

@KevinCruijssen sayesinde -4 bayt

Retina , 16 bayt

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

İade 1Truthy olarak ve 0Falsey değerleri olarak. İlk kodumdaki bir hatayı keşfettiğiniz ve düzelttiğiniz için @Neil'e
teşekkürler .

Çevrimiçi deneyin.

Açıklama:

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 bayt

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

Çevrimiçi deneyin!

Saf bir çözüm, ama daha iyi bir algoritma bulamıyorum. Girdi alır $b, durumu dönüştürür ToUpper, bir chardizi olarak çevirir. Group-ObjectHer bir giriş harfi için ad / sayı çiftine sahip bir nesne oluşturan diziyi pipetler. Sonra biz ount sortdayalı cve 0th almak . Biz onun kontrol .Countolduğunu -eqiçin ual .Countson bir [-1]çifti. Eğer öyleyse, sayımların hepsi eşittir, aksi takdirde farklı miktarda harfimiz vardır.

Daha sonra -and, girişteki herhangi bir haneyi dışlamak için girişin -notmatchters olup olmadığını kontrol ederek \d. Bu Boolean sonucu boru hattında kalır ve çıktı örtüktür.

Jöle , 8 bayt

ŒufØA⁼QƲ

Çevrimiçi deneyin!

Python 2 , 57 56 bayt

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

Çevrimiçi deneyin!

Öncelikle daha sonra bir kümeye girin, kopyaları kaldırın, ardından rakamları (kodlanmış `763**4`) çıkarın , ardından uzunluğun orijinal girişle aynı olup olmadığını kontrol edin

Java 8, 61 39 bayt

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

Açıklama:

Çevrimiçi deneyin.

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

Normal ifade açıklaması:

String#matchesdolaylı olarak ekler ^...$.

^(?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 bayt

Anonim zımni fonksiyonu.

(∪≡~∘⎕D)819⌶

Çevrimiçi deneyin!

819⌶ küçük

(… ) Üzerine aşağıdaki örtük işlevini uygulayın:

 ~∘⎕Dargümandan D igits  kaldırmak

 ∪≡ argümanın benzersiz unsurları bununla aynı mı?

Perl 6 , 22 bayt

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

Çevrimiçi deneyin!

Bazı karakterler için eşleşme yok, daha sonra aynı karakter. Kod bloğu olarak örtük işlev, $ _ ile örtük olarak eşleşir, kitabı tersine çevirir !. Eklenen |\d(Adam ta) değil, aynı zamanda gerekli .uc~~parantez gerekli olan ...

Çantalı Alternatif, 23 bayt

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

Çevrimiçi deneyin!

Bu durumda normalize bir çanta yapar (insidans sayımları ile ayarlanır). Alt küme veya eşit, ancak tüm üyeler karşılaştırma Çantası'nın üyesiyse ve tüm insidans sayıları karşılaştırma Çantası'ndakilerden küçük veya eşitse doğrudur. Böylece tekrarlar veya rakamlar karşılaştırmayı yanlış yapar.

Swift , 81 bayt

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

Çevrimiçi deneyin!

Uygulamalar için Visual Basic (32 bit), 102 bayt

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

VBA'da 0^xx sıfırsa 1, aksi takdirde 0 verir. Anında (hata ayıklama) penceresinde çalıştır.

Düzenleme: yorumlarda Taylor tarafından işaret edildiği gibi bu sadece MS Office 32 bit yüklemelerinde çalışır.

05AB1E , 4 bayt

lDÔQ

Çevrimiçi deneyin!

açıklama

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 bayt

• Kaydedilen iki -e doğru dört bayt sayesinde 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;}

Çevrimiçi deneyin!

K (ngn / k) , 18 bayt

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

Çevrimiçi deneyin!

CJam , 11 bayt

qelA,s+_L|=

Çevrimiçi deneyin!

açıklama

Temel fikir, her bir basamağı eklemek ve yinelemeleri kontrol etmektir. Ek, her basamağın zaten bir kez mevcut olmasını sağladığından, basamakların başka bir varlığı da yinelenir ve yanlış döndürür.

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

Kırmızı , 76 bayt

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

Çevrimiçi deneyin!

Smalltalk, 57 bayt

Dize sınıfında tanımlanacak yöntem:

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

Bu büyük olasılıkla kendi kendini açıklayıcı niteliktedir.

Pyth , 17 bayt

.Am&!t/rz0d}dGrz0

Test odası

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

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

düzenleme: char için test eklendi

edit: 5 bayt kısaltmak için GroupBy kullanma

APL (Dyalog Unicode) , 25 20 22 bayt

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

Çevrimiçi deneyin!

True için 1, başka 0 için döndürür.

@ H.PWiz sayesinde 5 bayt kurtardı

@ Adám sayesinde düzeltildi ve başka bir bayt kurtardı

Nasıl?

''≡'(.).*\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 bayt

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

Çevrimiçi deneyin!

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}

Çevrimiçi deneyin!

Hala benim zevkime göre çok uzun!