Ostatnio zacząłem grać w golfa i próbowałem napisać najmniejszy program do sprawdzania tautogramów.

Tautogram to zdanie, w którym wszystkie słowa zaczynają się od tej samej litery, na przykład: kwiaty rozkwitać z Francji .

Biorąc pod uwagę zdanie, określ, czy jest to tautogram.

Przypadki testowe

Flowers flourish from France
    True

This is not a Tautogram
    False

Wymyśliłem ten kod python (ponieważ jest to mój główny język):

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

Stosowanie:

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

To zdanie może zawierać przecinki i kropki, ale nie może zawierać żadnych innych znaków specjalnych, tylko wielkie i małe litery oraz spacje.

Jego rozmiar to 98 bajtów. Czy istnieje mniejsze rozwiązanie w jakimkolwiek języku?

05AB1E , 5 bajtów

l#€нË

Wypróbuj online!

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

Czy to na telefon usprawiedliwia brak wyjaśnienia.

Python 2 , 47 bajtów

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

Wypróbuj online!

Przyszedł do tego na telefonie komórkowym. Prawdopodobnie można golfa więcej.

Clojure , 80 bajtów

Wypróbuj online! . TIO nie obsługuje jednak standardowej biblioteki ciągów Clojure, więc pierwsza wersja zgłosi błąd „Nie można znaleźć małych liter”.

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

Nie golfowany:

(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

Stworzyłem wersję, która unika importu:

(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

Ale to 112 bajtów .

PowerShell , 57 50 41 bajtów

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

Wypróbuj online!

Pobiera dane wejściowe i splitjest w białych znakach. Pętla przechodzi przez każde słowo i chwyta pierwszą literę, biorąc substrin gzaczynając od pozycji 0i idąc za 1postacią. Następnie sorts litery (domyślnie bez rozróżniania wielkości liter) z -uflagą nique, aby wyciągnąć tylko jedną kopię każdej litery i sprawdzić, czy countte nazwy są -eqprawdziwe 1. Wynik jest niejawny.

-9 bajtów dzięki mazzy.

05AB1E (starsza wersja) , 5 bajtów

#€¬uË

Wypróbuj online!

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

Brachylog , 5 bajtów

ḷṇ₁hᵛ

Wypróbuj online!

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

Haskell , 71 bajtów

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

Wypróbuj online!

Haskell , 61 58 bajtów (za pomocą Data.Char.toLower)

• Zapisany trzy bajty dzięki Nimi .

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

Wypróbuj online!

Perl 5 ( -p), 20 bajtów

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

TIO

następujące komentarze w przypadku złej interpunkcji (31 bajtów)

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

31 bajtów

w przeciwnym razie istnieje inne podejście, również z 31 bajtami:

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

31 bajtów innych

JavaScript (Node.js) , 54 bajty

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

Wypróbuj online!

Lub 47 bajtów, jeśli każde słowo (ale pierwsze) z pewnością będzie poprzedzone spacją.

Japt -¡ , 5 bajtów

¸mÎro

Spróbuj

¸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 # (interaktywny kompilator Visual C #) , 41 bajtów

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

Zgłasza wyjątek, jeśli jest fałszywy, nic, jeśli jest prawdziwy.

Wypróbuj online!

Perl 6 , 19 bajtów

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

Wypróbuj online!

Java, (36 bajtów)

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

TIO