最近コードゴルフを始めて、最小のオートグラムチェッカーを書こうとしました。

tautogramは、たとえば、すべての単語は、同じ文字で始まるした文である：花がフランスから頭角を現します。

文を入力として、それがトートグラムかどうかを判別します。

テストケース

Flowers flourish from France
    True

This is not a Tautogram
    False

私はこのpythonコードを思いつきました（それが私の主な言語であるため）：

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はClojureの標準文字列ライブラリをサポートしていないため、最初のバージョンでは「小文字が見つかりません」というエラーがスローされます。

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

非ゴルフ：

(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バイトです。

PowerShell、57 50 41バイト

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

オンラインでお試しください！

入力を取りsplit、空白でそれをsします。各単語をループし、最初の文字を取得します。これは、substrin gを位置から開始して、文字を取得0し1ます。次にsort、-uniqueフラグを使用して文字（デフォルトでは大文字と小文字を区別しない）をsして、各文字のコピーを1つだけ引き出しcount、それらの名前がに-eq一致することを確認し1ます。出力は暗黙的です。

-9バイトはマジーのおかげです。

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のおかげで3バイト節約されました。

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()

falseの場合は例外をスローし、trueの場合は何もスローしません。

オンラインでお試しください！

Perl 6、19バイト

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

オンラインでお試しください！

Java、（36バイト）

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

TIO