도전 :

단어가 주어지면 isogram인지 확인하십시오.

뭐 :

isogram은 사본이없는 문자로만 구성된 단어입니다 (대소 문자 구분). 빈 문자열은 isogram입니다.

예 :

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

입력 :

합리적인 형식으로 입력을 수락 할 수 있습니다

입력은 공백없이 문자 및 / 또는 숫자 만 포함합니다 ( [a-zA-Z0-9])

출력 :

• true 입력 값이 이소 그램 인 경우 진실한 값
• false 그렇지 않으면 허위 가치

이것은 코드 골프 이므로 각 언어에서 가장 짧은 바이트 단위의 코드가 승리합니다.

파이썬 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}

온라인으로 사용해보십시오!

Kirill L 덕분에 -2 바이트

루비 -n , 21 19 18 16 바이트

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

온라인으로 사용해보십시오!

Brachylog , 4 바이트

ḷo⊆Ạ

온라인으로 사용해보십시오!

입력이 isogram 인 경우 술어는 성공하고 그렇지 않은 경우 실패하여 성공하면 소문자 라틴 알파벳을 출력합니다. 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.

파이썬 3 , 46 바이트

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

온라인으로 사용해보십시오!

apt 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 및 0Falsey 값으로 반환 합니다. 초기 코드에서 버그를 발견하고 수정 해 주신 @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'

온라인으로 사용해보십시오!

순진한 솔루션이지만 더 나은 알고리즘을 만들 수는 없습니다. input을 가져 $b와서 대 / ToUpper소문자를 변환 한 후이를 char배열 로 캐스팅합니다 . Group-Object각 입력 문자에 대한 이름 / 카운트 쌍을 가진 오브젝트를 구성하는 배열을 파이프합니다 . 그런 다음 우리는 그 ount sort를 바탕으로 그 중 하나를 c취합니다 0. 우리는 그것의 확인 .Count이다 -eq받는 연간 .Count마지막의 [-1]쌍. 그렇다면 카운트가 모두 같고 그렇지 않으면 글자 수가 다릅니다.

그런 다음 -and입력의 숫자를 배제하기 위해 입력이 -notmatches 인지 여부를 확인합니다 \d. 해당 부울 결과는 파이프 라인에 남아 있으며 출력은 암시 적입니다.

젤리 , 8 바이트

ŒufØA⁼QƲ

온라인으로 사용해보십시오!

파이썬 2 , 57 56 바이트

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

온라인으로 사용해보십시오!

먼저 세트로 입력하고 중복을 제거한 다음 숫자를 제거하고 (로 인코딩 됨 `763**4`) 길이가 원래 입력과 같은지 확인하십시오

자바 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을

 ∪≡ 논쟁의 독특한 요소가 그것과 동일합니까?

펄 6 , 22 바이트

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

온라인으로 사용해보십시오!

일부 문자와 일치하지 않으며 나중에 동일한 문자와 일치하지 않습니다. 코드 블록으로서의 암시 적 함수 !. |\d(아담 아담)이 추가 되었지만 .uc~~괄호가 필요했습니다 ...

Bags, 23 바이트를 대체

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

온라인으로 사용해보십시오!

이것은 케이스를 정규화 한 다음 가방을 만듭니다 (발생 횟수로 설정). 부분 집합 또는 같음 모든 구성원이 비교 백의 구성원이고 모든 발생 횟수가 비교 백의 수보다 작거나 같은 경우에만 true입니다. 따라서 반복이나 숫자가 있으면 비교가 잘못됩니다.

스위프트 , 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^xx가 0이면 1을 산출하고 그렇지 않으면 0을 산출 한다는 사실을 사용했습니다 . 즉시 (디버그) 창에서 실행하십시오.

편집 : 주석에서 Taylor가 지적한대로 이것은 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 바이트

• 저장된 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|=

온라인으로 사용해보십시오!

설명

기본 아이디어는 각 숫자를 추가 한 다음 중복을 확인하는 것입니다. 추가하면 각 숫자가 이미 한 번 존재하므로 숫자가 더 있으면 중복되어 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

빨강 , 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))));

편집 : char 테스트 추가

편집 : GroupBy를 사용하여 5 바이트 단축

APL (Dyalog Unicode) , 25 20 22 바이트

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

온라인으로 사용해보십시오!

true이면 1을, 그렇지 않으면 0을 반환합니다.

@ H.PWiz 덕분에 5 바이트 절약

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

온라인으로 사용해보십시오!

아직도 내 취향이 너무 길다!