Gần đây tôi đã tham gia chơi golf mã và cố gắng viết trình kiểm tra tautogram nhỏ nhất.

Một tautogram là một câu trong đó tất cả các từ bắt đầu bằng cùng một chữ cái, ví dụ: Hoa nở rộ từ Pháp .

Đưa ra một câu làm đầu vào, xác định xem đó là một tautogram.

Các trường hợp thử nghiệm

Flowers flourish from France
    True

This is not a Tautogram
    False

Tôi đã đưa ra mã python này (vì đó là ngôn ngữ chính của tôi):

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

Sử dụng:

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

Câu có thể chứa dấu phẩy và dấu chấm, nhưng không có ký tự đặc biệt nào khác, chỉ có chữ và chữ in hoa và chữ thường.

Kích thước của nó là 98 byte. Có một giải pháp nhỏ hơn trong bất kỳ ngôn ngữ?

05AB1E , 5 byte

l#€нË

Hãy thử trực tuyến!

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

Đã làm điều này trên điện thoại di động xin lỗi không có lời giải thích.

Python 2 , 47 byte

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

Hãy thử trực tuyến!

Đã đến với điều này trên điện thoại di động. Có lẽ có thể được chơi golf nhiều hơn.

Clojure , 80 byte

Hãy thử trực tuyến! . TIO không hỗ trợ thư viện Chuỗi tiêu chuẩn của Clojure, vì vậy phiên bản đầu tiên sẽ đưa ra lỗi "Không thể tìm thấy chữ thường".

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

Ung dung:

(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

Tôi đã tạo một phiên bản để tránh việc nhập:

(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

Nhưng đó là 112 Byte .

PowerShell , 57 50 41 byte

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

Hãy thử trực tuyến!

Đưa đầu vào và splits vào khoảng trắng. Vòng lặp qua từng từ và lấy chữ cái đầu tiên bằng cách lấy substrin gbắt đầu từ vị trí 0và tìm 1ký tự. Sau đó sort, các chữ cái (không phân biệt chữ hoa chữ thường theo mặc định) với -ucờ nique để chỉ lấy ra một bản sao của mỗi chữ cái và xác minh tên countcủa các tên đó là -equal 1. Đầu ra là ẩn.

-9 byte nhờ mazzy.

05AB1E (di sản) , 5 byte

#€¬uË

Hãy thử trực tuyến!

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

Brachylog , 5 byte

ḷṇ₁hᵛ

Hãy thử trực tuyến!

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

Haskell , 71 byte

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

Hãy thử trực tuyến!

Haskell , 61 58 byte (sử dụng Data.Char.toLower)

• Lưu ba byte nhờ nimi .

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

Hãy thử trực tuyến!

Perl 5 ( -p), 20 byte

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

TIO

Nhận xét sau trong trường hợp dấu câu xấu (31 byte)

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

31 byte

mặt khác, có một cách tiếp cận khác, với 31 byte:

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

31 byte khác

JavaScript (Node.js) , 54 byte

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

Hãy thử trực tuyến!

Hoặc 47 byte nếu mỗi từ (nhưng từ đầu tiên) được đảm bảo đứng trước khoảng trắng.

Japt -¡ , 5 byte

¸mÎro

Thử nó

¸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 # (Trình biên dịch tương tác Visual C #) , 41 byte

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

Ném một ngoại lệ nếu sai, không có gì nếu đúng.

Hãy thử trực tuyến!

Perl 6 , 19 byte

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

Hãy thử trực tuyến!

Java, (36 byte)

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

TIO