최근에 코드 골프에 참여하여 가장 작은 타우 토 그램 검사기를 작성하려고했습니다.

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?

모바일에서 이것을 설명하지 않았습니다.

파이썬 2 , 47 바이트

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

온라인으로 사용해보십시오!

모바일에서이 문제가 발생했습니다. 아마 더 골프를 칠 수 있습니다.

클로저 , 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공백에 넣습니다. 각 단어를 통해 루프,과를 취함으로써 첫 글자 잡고 substrin g위치에서 시작 0하고가는 1캐릭터. 그런 다음 sort와 문자 (기본적으로 대소 문자 구분)이야 -unique 플래그가 하나 개의 각 문자의 사본과를 검증 꺼내 count그 이름은 -eq에 연간를 1. 출력은 암시 적입니다.

mazzy 덕분에 -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.

하스켈 , 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

온라인으로 사용해보십시오!

펄 5 ( -p), 20 바이트

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

TIO

문장 부호가 잘못된 경우 주석 처리 (31 바이트)

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

31 바이트

그렇지 않으면 31 바이트의 또 다른 접근법이 있습니다.

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

31 바이트 기타

자바 스크립트 (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 # 대화식 컴파일러) , 41 바이트

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

거짓이면 예외를 던지고 참이면 아무것도 던지지 않습니다.

온라인으로 사용해보십시오!

펄 6 , 19 바이트

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

온라인으로 사용해보십시오!

자바 (36 바이트)

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

TIO