เมื่อไม่นานมานี้ฉันได้เข้าสู่การเขียนโค้ดกอล์ฟและพยายามเขียนตัวตรวจสอบสัญลักษณ์ขนาดเล็กที่สุด

tautogramเป็นประโยคที่ทุกคำที่เริ่มต้นด้วยตัวอักษรเดียวกันตัวอย่างเช่น: ดอกไม้อวดจากฝรั่งเศส

ให้ประโยคเป็นอินพุตให้พิจารณาว่าเป็น tautogram หรือไม่

กรณีทดสอบ

Flowers flourish from France
    True

This is not a Tautogram
    False

ฉันใช้รหัสหลามนี้ (เพราะเป็นภาษาหลักของฉัน):

print(True if len(list(set([x.upper()[0] for x in __import__('sys').argv[1:]]))) == 1 else False)

การใช้งาน:

python3 tautogram.py Flowers flourish from France
# True
python3 tautogram.py This is not a Tautogram
# False

ประโยคอาจมีเครื่องหมายจุลภาคและระยะเวลา แต่ไม่มีอักขระพิเศษอื่น ๆ มีเพียงตัวอักษรและตัวพิมพ์เล็กและตัวพิมพ์ใหญ่

ขนาดของมันคือ 98 ไบต์ มีวิธีแก้ปัญหาเล็กน้อยในภาษาใด ๆ หรือไม่?

05AB1E , 5 ไบต์

l#€нË

ลองออนไลน์!

l      # Lowercase input.
 #     # Split on spaces.
  €н   # a[0] of each.
    Ë  # All equal?

ทำอย่างนี้ในข้ออ้างมือถือโดยไม่มีคำอธิบาย

Python 2 , 47 ไบต์

lambda s:len(set(zip(*s.lower().split())[0]))<2

ลองออนไลน์!

มากับสิ่งนี้บนมือถือ อาจจะสามารถเล่นกอล์ฟได้มากขึ้น

Clojure , 80 ไบต์

ลองออนไลน์! . TIO ไม่สนับสนุนไลบรารี String มาตรฐานของ Clojure ดังนั้นเวอร์ชันแรกจะแสดงข้อผิดพลาด "ไม่พบตัวพิมพ์เล็ก"

(fn[s](use '[clojure.string])(apply =(map first(map lower-case(split s #" ")))))

Ungolfed:

(defn tautogram? [s]
  (use '[clojure.string])
  (->> (split s #" ") ; Get words
       (map lower-case)
       (map first) ; Get first letter of each word
       (apply =))) ; And make sure they're all the same

ฉันสร้างเวอร์ชันที่หลีกเลี่ยงการนำเข้า:

(fn [s](apply =(map #(if(<(-(int %)32)65)(int %)(-(int %) 32))(map first(take-nth 2(partition-by #(= %\ )s))))))

 ; -----

(defn tautogram? [s]
  (->> s
       (partition-by #(= % \ )) ; Split into words
       (take-nth 2) ; Remove spaces
       (map first) ; Get first letter
       ; Convert to uppercased letter code
       (map #(if (< (- (int %) 32) 65) ; If attempting to uppercase puts the letter out of range,
               (int %) ; Go with the current code
               (- (int %) 32))) ; Else go with the uppercased  code
       (apply =))) ; And check if they're all equal

แต่มันเป็น112 Bytes

PowerShell , 57 50 41 ไบต์

(-split$args|% s*g 0 1|sort -u).count-eq1

ลองออนไลน์!

ใช้อินพุตและวางsplitไว้บนช่องว่าง วนลูปแต่ละคำและคว้าตัวอักษรตัวแรกโดยจับsubstrin gเริ่มต้นที่ตำแหน่ง0และไปสำหรับ1ตัวละคร แล้วsorts ตัวอักษร (กรณีตายตามค่าเริ่มต้น) กับ-uธง nique จะดึงออกมาเพียงหนึ่งสำเนาของแต่ละตัวอักษรและสามารถตรวจสอบcountรายชื่อผู้ที่มี-eqUAL 1ไป เอาท์พุทเป็นนัย

-9 bytes เพื่อ mazzy

05AB1E (ดั้งเดิม) 5 ไบต์

#€¬uË

ลองออนไลน์!

#     // split on spaces
 €¬   // get the first letter of each word
   uË // check if they're the same (uppercase) letter

Brachylogขนาด 5 ไบต์

ḷṇ₁hᵛ

ลองออนไลน์!

         The input
ḷ        lowercased
 ṇ₁      and split on spaces
   hᵛ    is a list of elements which all start with the same thing.

Haskell , 71 ไบต์

f s|c<-fromEnum.head<$>words s=all(`elem`[-32,0,32]).zipWith(-)c$tail c

ลองออนไลน์!

Haskell , 61 58 ไบต์ (ใช้Data.Char.toLower)

• ที่บันทึกไว้สามไบต์ขอบคุณที่Nimi

import Data.Char
(all=<<(==).head).(toLower.head<$>).words

ลองออนไลน์!

Perl 5 ( -p), 20 ไบต์

$_=!/^(.).* (?!\1)/i

TIO

ติดตามความคิดเห็นในกรณีที่เครื่องหมายวรรคตอนไม่ถูกต้อง (31 ไบต์)

$_=!/^\W*+(.).*(?=\b\w)(?!\1)/i

31 ไบต์

มิฉะนั้นจะมีวิธีการอื่นเช่นเดียวกันกับ 31 ไบต์:

$h{ord()%32}++for/\w+/g;$_=2>%h

อื่น ๆ 31 ไบต์

JavaScript (Node.js) , 54 ไบต์

s=>!s.match(/\b\w+/g).some(p=s=>p-(p=Buffer(s)[0]&31))

ลองออนไลน์!

หรือ47 ไบต์หากแต่ละคำ (แต่คำแรก) รับประกันว่าจะนำหน้าด้วยช่องว่าง

Japt -¡ 5 ไบต์

¸mÎro

ลองมัน

¸mÎro     :Implicit input of string
¸         :Split on spaces
 m        :Map
  Î       :  Get first character
   r      :Reduce by
    o     :  Keeping the characters that appear in both, case-insensitive
          :Implicit output as boolean

C # (Visual C # Interactive Compiler) , 41 ไบต์

n=>n.Split().GroupBy(c=>c[0]|32).Single()

โยนข้อยกเว้นถ้าเป็นเท็จไม่มีอะไรจะเป็นจริง

ลองออนไลน์!

Perl 6 , 19 ไบต์

{[eq] m:g/<<./}o&lc

ลองออนไลน์!

Java, (36 ไบต์)

s->!s.matches("(?i)(.).* (?!\\1).*")

TIO