ถาม:

ให้คำตรวจสอบว่าเป็น isogram หรือไม่

อะไร :

isogram เป็นคำที่ประกอบด้วยตัวอักษรเท่านั้นโดยไม่มีการซ้ำซ้อน สตริงว่างคือ isogram

ตัวอย่าง :

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

อินพุต:

คุณอาจยอมรับอินพุตในรูปแบบที่สมเหตุสมผล

ข้อมูลที่ป้อนจะมีเฉพาะตัวอักษรและ / หรือตัวเลขเท่านั้นไม่มีช่องว่าง ( [a-zA-Z0-9])

ผลผลิต:

• true หรือค่าความจริงใด ๆ หากอินพุตเป็น isogram
• false หรือค่าเท็จใด ๆ

นี่คือโค้ดกอล์ฟที่สั้นที่สุดในหน่วยไบต์ในแต่ละภาษาที่ชนะ

งูหลาม2/ 3 36 52 48 ไบต์

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

ลองออนไลน์!

ฉันใช้ประโยชน์จากความจริงที่setมีองค์ประกอบเฉพาะเท่านั้น ด้วยการเรียกใช้__len__เมธอดของแต่ละตัวฉันสามารถตรวจสอบได้ว่าsมีองค์ประกอบที่ไม่ซ้ำกันหรือไม่

แก้ไข: อัปเดตเพื่อตอบสนองความต้องการที่ถูกมองข้ามก่อนหน้านี้เพื่อส่งคืนค่าเท็จสำหรับอินพุตตัวเลข 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(,"")))

ลองออนไลน์!

วิธีการ Regex !grepl(regex,scan(,""),F)ไม่ทำงานดังนั้นฉันเดาว่าการจับภาพไม่ตรงกับตัวพิมพ์ใหญ่ - เล็กใน R แต่ฉันไม่ดีที่ regex โดยทั่วไปดังนั้นฉันจะไม่แปลกใจถ้าฉันทำผิด ...

R , 58 ไบต์

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

ลองออนไลน์!

ต่อท้ายตัวเลข0:9ลงในรายการตัวละครและการทดสอบหากมีการซ้ำซ้อน

Ruby , 25 23 21 ไบต์

ทั้ง 2 ไบต์ขอบคุณ Giuseppe

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

ลองออนไลน์!

-2 ไบต์ขอบคุณ Kirill L.

Ruby -n , 21 19 18 16 ไบต์

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

ลองออนไลน์!

Brachylogขนาด 4 ไบต์

ḷo⊆Ạ

ลองออนไลน์!

เพรดิเคตจะประสบความสำเร็จหากอินพุตเป็นไอโซแกรมและล้มเหลวหากไม่เป็นเช่นนั้นให้ส่งออกตัวอักษรละตินตัวพิมพ์เล็กถ้าทำได้ เนื่องจากเพรดิเคตใน⊆ตัวของ Brachylog ไม่ตรงกับความสัมพันธ์ทั่วไประหว่างเซตย่อยและเซ็ตเซ็ตฉันจึงต้องใช้ไบต์ในการเรียงลำดับอินพุตที่ลดระดับลง แต่บันทึกไบต์ไว้โดยไม่ต้องตรวจสอบซ้ำกันอย่างชัดเจน (ถ้ามันไม่จำเป็นต้องล้มเหลวกับตัวเลขเราก็สามารถใช้ḷ≠)

Husk , 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-array ไพพ์นั้นอาร์เรย์Group-Objectที่สร้างวัตถุที่มีคู่ชื่อ / นับสำหรับจดหมายอินพุตแต่ละตัว จากนั้นเราก็sortขึ้นอยู่กับcจำนวนและนำ0สิ่งนั้นมา เราตรวจสอบว่ามัน.Countเป็น-equal .Countของ[-1]คู่สุดท้าย หากเป็นเช่นนั้นการนับมีค่าเท่ากันมิฉะนั้นเราจะมีจำนวนตัวอักษรต่างกัน

จากนั้นเรา-andด้วยการตรวจสอบว่าอินพุต-notmatches ต่อต้าน\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⌶ ตัวพิมพ์เล็ก

(... ) ใช้ฟังก์ชัน tacit ต่อไปนี้กับสิ่งนั้น:

 ~∘⎕D ลบD igits ออกจากอาร์กิวเมนต์

 ∪≡ องค์ประกอบที่เป็นเอกลักษณ์ของการโต้แย้งนั้นเหมือนกันหรือไม่

Perl 6 , 22 ไบต์

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

ลองออนไลน์!

ไม่มีการแข่งขันสำหรับตัวละครบางตัวต่อมาตัวละครเดียวกัน ฟังก์ชั่นโดยปริยายเป็นบล็อกรหัสตรงโดยปริยายเมื่อ $ _, !สลับหนังสือด้วย เพิ่ม|\d(ta Adam) แต่ยังต้องการ.uc~~ซึ่งต้องการวงเล็บ ...

ทางเลือกที่มีถุง 23 ไบต์

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

ลองออนไลน์!

กรณีนี้ปกติแล้วทำให้กระเป๋า (ตั้งค่าด้วยการนับเหตุการณ์) การจัดกลุ่มหรือเท่ากับความจริงก็ต่อเมื่อสมาชิกทุกคนเป็นสมาชิกของกระเป๋าเปรียบเทียบและจำนวนอุบัติการณ์ทั้งหมดจะน้อยกว่าหรือเท่ากับในกระเป๋าเปรียบเทียบ ดังนั้นการทำซ้ำหรือตัวเลขใด ๆ จะทำให้การเปรียบเทียบเท็จ

Swift , 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 เป็นอย่างอื่น ทำงานในหน้าต่างทันที (ดีบัก)

แก้ไข: เทย์เลอร์ชี้ให้เห็นในความคิดเห็นนี้ใช้งานได้ในการติดตั้ง 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 ไบต์

• ที่บันทึกไว้สองสี่ไบต์ขอบคุณที่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|=

ลองออนไลน์!

คำอธิบาย

แนวคิดพื้นฐานคือการผนวกแต่ละหลักแล้วตรวจสอบซ้ำกัน เนื่องจากการต่อท้ายทำให้แน่ใจว่าแต่ละหลักนั้นมีอยู่แล้วหนึ่งครั้งการปรากฏตัวของตัวเลขใด ๆ เพิ่มเติมจะเป็นซ้ำกันทำให้มันกลับเท็จ

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]]]

ลองออนไลน์!

Smalltalk, 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}

ลองออนไลน์!

ยังนานเกินไปสำหรับรสนิยมของฉัน!