Ich habe mich kürzlich mit Code-Golf beschäftigt und versucht, den kleinsten Tautogramm-Checker zu schreiben.

Ein Tautogramm ist ein Satz, in dem alle Wörter mit demselben Buchstaben beginnen, zum Beispiel: Blumen gedeihen aus Frankreich .

Bestimmen Sie anhand eines Satzes als Eingabe, ob es sich um ein Tautogramm handelt.

Testfälle

Flowers flourish from France
    True

This is not a Tautogram
    False

Ich habe mir diesen Python-Code ausgedacht (weil er meine Hauptsprache ist):

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

Verwendungszweck:

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

Der Satz darf Kommas und Punkte enthalten, aber keine anderen Sonderzeichen, nur Groß- und Kleinbuchstaben und Leerzeichen.

Seine Größe beträgt 98 Bytes. Gibt es eine kleinere Lösung in irgendeiner Sprache?

05AB1E , 5 Bytes

l#€нË

Probieren Sie es online aus!

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

Hat dies auf dem Handy die keine Erklärung entschuldigt.

Python 2 , 47 Bytes

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

Probieren Sie es online aus!

Kam mit diesem auf dem Handy. Kann wahrscheinlich mehr Golf gespielt werden.

Clojure , 80 Bytes

Probieren Sie es online aus! . TIO unterstützt die Standard-String-Bibliothek von Clojure jedoch nicht, sodass die erste Version den Fehler "Kleinbuchstaben können nicht gefunden werden" auslöst.

(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

Ich habe eine Version erstellt, die den Import vermeidet:

(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

Aber es sind 112 Bytes .

PowerShell , 57 50 41 Byte

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

Probieren Sie es online aus!

Nimmt Eingaben auf und setzt splitsie auf Leerzeichen. Durchläuft jedes Wort und greift nach dem ersten Buchstaben, indem der sUbstrin gan der Position beginnt 0und nach dem 1Charakter sucht . Dann sorts die Buchstaben (standardmäßig ohne -uBerücksichtigung der Groß- und Kleinschreibung) mit dem Nique-Flag, um nur eine Kopie jedes Buchstabens herauszuziehen, und überprüft, ob countdiese Namen -eqzutreffend sind 1. Die Ausgabe ist implizit.

-9 Bytes dank mazzy.

05AB1E (Legacy) , 5 Bytes

#€¬uË

Probieren Sie es online aus!

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

Brachylog , 5 Bytes

ḷṇ₁hᵛ

Probieren Sie es online aus!

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

Haskell , 71 Bytes

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

Probieren Sie es online aus!

Haskell , 61 58 Bytes (unter Verwendung Data.Char.toLower)

• Dank nimi drei Bytes gespeichert .

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

Probieren Sie es online aus!

Perl 5 ( -p), 20 Bytes

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

TIO

folgende Kommentare bei fehlerhafter Interpunktion (31 Bytes)

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

31 Bytes

Ansonsten gibt es einen anderen Ansatz, ebenfalls mit 31 Bytes:

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

31 Bytes andere

JavaScript (Node.js) , 54 Byte

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

Probieren Sie es online aus!

Oder 47 Bytes, wenn jedem Wort (außer dem ersten) garantiert ein Leerzeichen vorangestellt ist.

Japt -¡ , 5 Bytes

¸mÎro

Versuch es

¸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 Byte

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

Löst eine Ausnahme aus, wenn false, nichts, wenn true.

Probieren Sie es online aus!

Perl 6 , 19 Bytes

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

Probieren Sie es online aus!

Java, (36 Bytes)

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

TIO