Виклик:

Давши слово, перевірте, чи це ізограма.

Що :

Ізограма - це слово, що складається лише з букв без дублікатів (без регістру). Порожній рядок - ізограма.

Приклади:

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

Вхід:

Ви можете прийняти вхід у будь-якому розумному форматі

Вхід буде містити лише літери та / або цифри, без пробілів ( [a-zA-Z0-9])

Вихід:

• true або будь-яке значення truthy, якщо вхід є ізограмою
• false або будь-яке хибне значення в іншому випадку

Це код-гольф, тому найкоротший код у байтах на кожній мові виграє.

Python 2/3 , 36 52 48 байт

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

Спробуйте в Інтернеті!

Я скористався тим, що setмістить лише унікальні елементи. За допомогою __len__методу кожного я можу визначити, чи sмістить він також лише унікальні елементи (ігнорування випадку).

EDIT: Оновлено, щоб задовольнити раніше переглянуту вимогу повернути False для числових входів. Набір усіх цифр кодується як set(str(56**7)).

РЕДАКТІВ 2: Після цієї пропозиції користувача я зараз скористався розпакуванням аргументів для встановлення розуміння. Це формально порушує сумісність із Python 2.

05AB1E , 5 байт

lDáÙQ

Спробуйте в Інтернеті!

Пояснення

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

R , 41 байт

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

Спробуйте в Інтернеті!

Підхід Реджекс. !grepl(regex,scan(,""),F)не спрацювало, так що я думаю, що зйомка не відповідає невідчутковій справі в R? Я взагалі поганий у регулярному вираженні, хоча не здивуюсь, якщо просто роблю це неправильно ...

R , 58 байт

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

Спробуйте в Інтернеті!

Додає цифри 0:9до списку символів (нижнього регістру) та тестів, якщо є дублікати.

Рубі , 25 23 21 байт

-2 байти на обидва завдяки Джузеппе

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

Спробуйте в Інтернеті!

-2 байти завдяки Кирилу Л.

Рубі -n , 21 19 18 16 байт

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

Спробуйте в Інтернеті!

Брахілог , 4 байти

ḷo⊆Ạ

Спробуйте в Інтернеті!

Присудок матиме успіх, якщо вхідний файл є ізограмою, а якщо він відсутній, виводиться з малої літери алфавіту, якщо він вдається. Оскільки ⊆вбудований предикат Brachylog точно не відповідає звичайному співвідношенню між підмножиною та супернабором, мені довелося витратити байт на сортування вхідних ліній нижнього регістру, але врятував байт на тому, щоб не потрібно чітко перевіряти наявність у ньому дублікатів. (Якщо не потрібно провалюватися з цифрами, ми можемо просто скористатися ḷ≠.)

Лушпиння , 6 байт

§=f√ü_

Спробуйте в Інтернеті!

Пояснення

§=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 байт

;v
oC ‰ eUq

Пояснення:

;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

Спробуйте тут.

MATL , 9 байт

kt2Y2X&X=

Спробуйте в Інтернеті!

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 байт

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

Спробуйте в Інтернеті!

Japt 2.0, 12 11 байт

-1 байт завдяки Nit

v
f\l â eUq

Перевірте це в Інтернеті!

JavaScript (Node.js) , 29 25 байт

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

Спробуйте в Інтернеті!

Дякуємо за оновлення щодо відповіді на @BMO , @ l4m2 , @KevinCruijssen

-4 байти завдяки @KevinCruijssen

Сітківка , 16 байт

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

Повертається 1як Truthy і 0як значення Falsey.
Дякую @Neil за те, що виявив і виправив помилку в своєму початковому коді.

Спробуйте в Інтернеті.

Пояснення:

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 байт

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

Спробуйте в Інтернеті!

Наївне рішення, але я не можу придумати кращий алгоритм. Бере введення $b, перетворює його ToUpperрегістр, charпередає його як- масив. Труби, Group-Objectщо створюють масив, в який будується об'єкт, що має пари імен / рахувати для кожної літери введення. Тоді ми, sortщо cгрунтуємося на унті, і беремо 0її. Ми перевіряємо, .Countчи -eqне відповідає .Countцій останній [-1]парі. Якщо так, то всі рахунки рівні, інакше у нас букви різної кількості.

Потім ми -andперевіримо, чи вхід -notmatchпроти, \dщоб виключити будь-які цифри вхідних даних. Цей булевий результат залишається на конвеєрі, а вихід неявний.

Желе , 8 байт

ŒufØA⁼QƲ

Спробуйте в Інтернеті!

Python 2 , 57 56 байт

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

Спробуйте в Інтернеті!

Спочатку він перетворюється, потім вводиться в набір, виймаючи дублікати, потім видаляючи цифри (закодовані `763**4`), а потім перевіряє, чи довжина така, як і вихідний вхід

Java 8, 61 39 байт

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

Пояснення:

Спробуйте в Інтернеті.

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

Пояснення Regex:

String#matchesнеявно додає ^...$.

^(?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 байт

Анонімна негласна функція.

(∪≡~∘⎕D)819⌶

Спробуйте в Інтернеті!

819⌶ малі літери

(… ) Застосувати до цього наступну мовчазну функцію:

 ~∘⎕D вилучити D igits з аргументу

 ∪≡ чи ідентичні елементи аргументу ідентичні цьому?

Perl 6 , 22 байти

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

Спробуйте в Інтернеті!

Немає відповідностей для якогось персонажа, потім пізніше того ж персонажа. Неявна функція як блок коду, імпліцитно збігається з $ _, інвертувати книгу !. Додано |\d(та Адам), але також потрібно .uc~~, для чого потрібні дужки ...

Альтернатива з мішками, 23 байти

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

Спробуйте в Інтернеті!

У цьому випадку нормалізується випадок, коли виготовляється мішок (встановлений з кількістю випадків захворюваності). Підмножина або рівна лише тоді, якщо всі члени є членами Мішка порівняння, і всі показники захворюваності менші або рівні, ніж у Мішці порівняння. Отже, будь-яке повторення чи цифри зробить порівняння помилковим.

Свіфт , 81 байт

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

Спробуйте в Інтернеті!

Visual Basic для додатків (32 біт), 102 байти

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 0^xвиходить 1, якщо x дорівнює нулю, а 0 - в іншому випадку. Запустити в негайному (налагодженому) вікні.

Редагувати: як вказував Тейлор у коментарях, це працює лише у 32-бітових установках MS Office.

05AB1E , 4 байти

lDÔQ

Спробуйте в Інтернеті!

Пояснення

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 байт

• Збережено два чотири байти завдяки стельовій коті .

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

Спробуйте в Інтернеті!

К (нг / к) , 18 байт

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

Спробуйте в Інтернеті!

CJam , 11 байт

qelA,s+_L|=

Спробуйте в Інтернеті!

Пояснення

Основна ідея - додавати кожну цифру, а потім перевірити наявність дублікатів. Оскільки додаток гарантує, що кожна цифра вже присутня один раз, будь-яка подальша наявність цифр буде дублікатом, що призведе до повернення помилковим.

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

Червоний , 76 байт

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

Спробуйте в Інтернеті!

Маленький розмов, 57 байт

Метод, який слід визначити у класі String:

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

Це, швидше за все, само собою зрозуміле.

Pyth , 17 байт

.Am&!t/rz0d}dGrz0

Тестовий набір

.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 байти

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

редагувати: додано тест на шар

редагувати: використовуючи GroupBy, щоб скоротити його на 5 байт

APL (Dyalog Unicode) , 25 20 22 байт

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

Спробуйте в Інтернеті!

Повертає 1 для істинного, інакше 0.

Збережено 5 байт завдяки @ H.PWiz

Виправлено та збережено ще один байт завдяки @ Adám

Як?

''≡'(.).*\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 байт

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

Спробуйте в Інтернеті!

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}

Спробуйте в Інтернеті!

Ще занадто довго для мого смаку!