チャレンジ：

単語が与えられたら、それがアイソグラムかどうかを確認します。

何 ：

アイソグラムは、重複のない文字のみで構成される単語です（大文字と小文字は区別されません）。空の文字列はアイソグラムです。

例：

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

入力：

合理的な形式の入力を受け入れることができます

入力には文字や数字のみが含まれ、スペースは含まれません（[a-zA-Z0-9]）

出力：

• true または入力がアイソグラムである場合、任意の真実の値
• false または偽の値

これはコードゴルフなので、各言語のバイト単位の最短コードが優先されます。

Pythonの2/ 3 36の 52 48バイト

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

オンラインでお試しください！

setユニークな要素のみが含まれているという事実を利用しています。__len__それぞれのメソッドを呼び出すことで、s一意の要素のみが含まれているかどうかを判断できます（大文字と小文字は区別されません）。

編集：数値入力に対して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}

オンラインでお試しください！

キリルLのおかげで-2バイト

ルビー -n、21 19 18 16バイト

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

オンラインでお試しください！

Brachylog、4バイト

ḷo⊆Ạ

オンラインでお試しください！

入力がアイソグラムの場合、述語は成功し、そうでない場合は失敗し、成功した場合は小文字のラテンアルファベットを出力します。Brachylogの⊆組み込み述語はサブセットとスーパーセットの通常の関係と完全には一致しないため、小文字の入力の並べ替えに1バイトを費やす必要がありましたが、重複を明示的にチェックする必要がないため1バイトを節約しました。（数字で失敗する必要がない場合は、単に使用できますḷ≠。）

殻、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バイト

Nitのおかげで-1バイト

v
f\l â eUq

オンラインでテストしてください！

JavaScript（Node.js）、29 25バイト

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

オンラインでお試しください！

答えに更新してくれてありがとう@BMO、@ l4m2、@KevinCruijssen

@KevinCruijssenのおかげで-4バイト

網膜、16バイト

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

1TruthyおよびFalseyの値として返します0。最初のコードのバグを発見して修正して
くれた@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-array としてキャストします。Group-Object入力文字ごとに名前/カウントのペアを持つオブジェクトを構築する配列のパイプ。それからsort、私たちはそのc誓約に基づいて、0その1つ目を取ります。私たちは、そのことを確認してくださいが.Countある-eqにUAL .Count最後の[-1]ペア。その場合、カウントはすべて等しくなります。そうでない場合は、文字の量が異なります。

その後、我々-and入力するかどうかをチェックすると、その-notmatch反対ESが\d入力で任意の数字を除外するために。そのブール結果はパイプラインに残り、出力は暗黙的です。

ゼリー、8バイト

ŒufØA⁼QƲ

オンラインでお試しください！

パイソン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

正規表現の説明：

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（ta Adam）を追加しましたが.uc~~、括弧も必要でした。

Bagsの代替、23バイト

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

オンラインでお試しください！

この1つは、ケースを正規化してからバッグを作成します（発生カウントで設定）。すべてのメンバーが比較バッグのメンバーであり、すべての発生件数が比較バッグのメンバー数以下である場合にのみ、サブセットまたは等しい。したがって、繰り返しまたは数字があると、比較が偽になります。

Swift、81バイト

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

オンラインでお試しください！

Visual Basic for Applications（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、xがゼロの場合は1、それ以外の場合は0になるという事実を使用しました。イミディエイト（デバッグ）ウィンドウで実行します。

編集：テイラーがコメントで指摘したように、これはMS Officeの32ビットインストールでのみ機能します。

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バイト

• 保存された2 4は、おかげバイト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;}

オンラインでお試しください！

K（ngn / k）、18バイト

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

オンラインでお試しください！

CJam、11バイト

qelA,s+_L|=

オンラインでお試しください！

説明

基本的な考え方は、各桁を追加してから重複をチェックすることです。追加により、各桁がすでに1回存在することが保証されるため、それ以降の数字の存在は重複し、falseを返します。

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

Red, 76 bytes

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

Try it online!

Smalltalk, 57 bytes

Method to be defined in class String:

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

This is most likely self-explanatory.

Pyth, 17 bytes

.Am&!t/rz0d}dGrz0

Test suite

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

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

edit: added test for char

edit: using GroupBy to shorten it by 5 byte

APL (Dyalog Unicode), 25 20 22 bytes

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

Try it online!

Returns 1 for true, else 0.

Saved 5 bytes thanks to @H.PWiz

Fixed, and saved another byte thanks to @Adám

How?

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

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

Try it 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}

Try it online!

Still too long for my taste!