EKİM 22, ULUSLARARASI BAP KİLİDİ ​​GÜNÜDÜR ! Ne yazık ki, bazılarına, büyük harflerin kilidinin zerafetini yeniden bildirmeyin. Diyelim ki "OBNOXIOUS" VEYA "SHOUTING GİBİ" VEYA BAZI OLMADAN. BU İLERİ İLLOGİK VE İNAN ŞİKAYETLERİNE UYGUN OLARAK UYGUN OLARAK, LÜTFEN DURDURULMAK İÇİN "HAZIRLANABİLİR" VEYA "GEREKLİ" METİNE NORMAL METİN OLAN BİR PROGRAM YAZIN.

Açıklama

Çözümünüz için girdi ve çıktı, yalnızca yazdırılabilir ASCII karakterleri içeren dizeler olacaktır.

Giriş dizesi sıfır veya daha fazla büyük harf kilidi koşusu içerir . Bir caps lock run (veya kısaca CLR) aşağıdaki gibi tanımlanır:

• CLR , bir kelimenin ilk karakteri dışındaa-z , küçük harf ( ) içermemelidir .

  • Bu zorluğun amaçları için kullanılan bir sözcük , boşluk olmayan bir dizidir. Yani, PPCG, correcthorsebatterystapleve jkl#@_>00()@#__f-023\f[tüm kabul edilir kelime s.

• CLR ayrıca en az bir boşluk içermelidir; bu nedenle en az iki kelime olmalı .

• CLR’deki her kelimenin en az iki harf içermesi gerekir ( A-Za-z).

  • Bunun, CLR'ye dahil edilmemiş çevre karakterleri olmadan, kendi başına alınan CLR'ye atıfta bulunduğunu unutmayın. Örneğin, bir değil dize nedeniyle CLR kendiliğinden sahiptir kelime ler az iki harfle.foO BarO B

CLR'ler "açgözlülükle" ayrıştırılmalıdır - yani, daima mümkün olan en uzun CLR'yi bulmalısınız.

Giriş dizisindeki tüm CLR'leri tanımladıktan sonra, CLR'lerin içindeki tüm harflerin harflerini değiştirin ve elde edilen dizgeyi çıktılayın.

Test durumları

İlk satır girdi, ikincisi çıktı. Girişin kalın kısımları, CLR olarak kabul edilen alt dizilerdir.

CAPS LOCK IS THE BEST!
caps lock is the best!

I really LOVE pROGRAMMING pUZZLES AND cOde Golf!
I really love Programming Puzzles and Code Golf!

This is a challenge on PPCG. This is a test CASE. TEST
This is a challenge on PPCG. This is a test case. test

LorEM iPSUM DOLoR sIT amet, conSECTETur ADIPISciNG eLIT. MAECENAS iD orci
Lorem Ipsum doloR sIT amet, conSECTETur ADIPIScing Elit. maecenas Id orci

;'>}{/[]'"A*(389971(*(#$&B#@*(% c'>#{@D#$! :,>/;[e.[{$893F
;'>}{/[]'"a*(389971(*(#$&b#@*(% C'>#{@d#$! :,>/;[e.[{$893F

iT'S cAPS lOCK DAY!!! cELebraTE THis WONDERFUL key
It's Caps Lock day!!! Celebrate this WONDERFUL key

aBcDE fGHIj KLmNO pQrST (uVwXY) ZZ___Zz__Z
aBcde Fghij KLmno PqrST (uVwxy) zz___zz__Z

#aA# aA
#aA# aA

kurallar

• Girişin hiçbir zaman üst üste iki veya daha fazla boşluk içermeyeceğini ve hiçbir zaman bir satır veya sonda boşluk içermeyeceğini varsayabilirsiniz.

• Kodunuzun tamamı bir CLR ise% 20 bonus (kod uzunluğunuzu 0,8 ile çarpın). ;) (çoğunlukla sadece eğlence için, çünkü kazananların bu bonusu kazanması pek olası değil)

• Bu kod golf , yani bayt cinsinden en kısa kod kazanır.

CJam, 100 86 83 81 bayt

Ml{_,),{1$<_S/(4$!>\1f>s+_eu=*S%_{'[,_el^:Af&s,2<},!*1>},_{W=/(AA26m>er}{;(}?\s}h

Bu kemanı CJam yorumlayıcısında deneyin veya tüm test durumlarını bir kerede doğrulayın .

Algoritma

1. İlk karakterle başlayan mümkün olan en uzun CLR'yi tanımlayın.

2. Varsa, büyük / küçük harfini değiştirin, yazdırın ve dizenin başından çıkarın.

   Aksi halde, dizenin başındaki tek bir karakteri kaldırın ve değiştirilmemiş şekilde yazdırın.

3. Daha fazla karakter kaldıysa, 1. adıma geri dönün.

Nasıl çalışır

Ml         e# Push an empty string and a line from STDIN.
{          e# Do:
  _,       e#   Copy the string on the stack and compute its length (L).
  ),       e#   Push [0 ... L].
  {        e#   Filter; for each integer I in that array:
    1$<    e#     Copy the string and keep its first I characters.
    _S/    e#     Push a copy and split at spaces.
    (      e#     Shift out the first word.
    4$!    e#     Push the logical NOT of the fifth topmost item of the stack.
           e#     This pushes 1 for the empty string on the bottom, and 0
           e#     for non-empty strings and printable characters.
    >      e#     Remove that many characters from the beginning of the first word.
           e#     This will remove the first character iff the string on the
           e#     stack is the entire input. This is to account for the fact that
           e#     the first word is not preceded by a space.
    \1f>   e#     Remove the first character of all remaining words.
    s+     e#     Concatenate all of them.
    _eu=   e#     Convert a copy to uppercase and check for equality.
    *      e#     Repeat the I characters 1 or 0 times.
    S%_    e#     Split at runs of spaces, and push a copy.
    {      e#     Filter; for each non-empty word:
      '[,  e#       Push the string of all ASCII characters up to 'Z'.
      _el  e#       Push a copy and convert to lowercase.
      ^    e#       Perform symmetric difference, pushing all letters (both cases).
      :A   e#       Store the result in A.
      f&s  e#       Intersect A with each character of the word. Cast to string.
      s    e#       This removes all non-letters from the word.
      ,2<  e#       Count the letters, and compare the result to 2.
    },     e#     If there are less than 2 letters, keep the word.
    !      e#     Push the logical NOT of the result.
           e#     This pushes 1 iff all words contain enough letters.
    *      e#     Repeat the array of words that many times.
    1>     e#     Remove the first word.
  },       e#   Keep I if there are still words left.
  _{       e#   If at least one I was kept:
    W=     e#     Select the last (highest) one.
    /      e#     Split the string on the stack into chunks of that length.
    (      e#     Shift out the first chunk.
    AA26m> e#     Push "A...Za...z" and "a...zA...Z".
    er     e#     Perform transliteration to swap cases.
  }{       e#   Else:
    ;      e#     Discard the filtered array.
    (      e#     Shift out the first character of the string on the stack.
  }?       e#
  \s       e#   Swap the shifted out chunk/character with the rest of the string.
}h         e# If the remainder of the string is non-empty, repeat.

Perl, 96 82 80 bayt

-pe'$y=qr/[^a-z ]{2,}|\b\S[^a-z ]+/;s#$y( $y)+#join$,,map{uc eq$_?lc:uc}$&=~/./g#eg'

Tüm testleri geçiyor. Girdiyi varsayar STDIN, yazdırır STDOUT.

Nasıl çalışır:

• eşleşen bir regex ( $y) oluşturun

  • en az iki küçük harf olmayan, beyaz olmayan karakter VEYA
  • bir sözcük sınırı, ardından boşluk olmayan bir karakter, ardından bir veya daha fazla küçük harf olmayan boşluk olmayan karakter

• Büyük / küçük harf eşlemeli dizeleri eşleştir $y, s///büyük / küçük harf ters çevir

İyileştirme için oda olduğuna eminim. Tüm join-map-splitanlaşmadan kurtulmanın bir yolu varsa , bonusa hak kazanma şansınız hala olabilir :)

Javascript, 193

decapslock =

a=>a.replace(/(^[a-z][^a-z ]+|[^a-z ]{2,})( [a-z][^a-z ]+| [^a-z ]{2,})+/g,b=>b.split` `.some(f=>f.split(/[a-z]/i).length<3)?b:b.split``.map(e=>e==(E=e.toUpperCase())?e.toLowerCase():E).join``)

<!-- Snippet UI -->
<input placeholder='sAMPLE tEXT' oninput="document.getElementsByTagName('p')[0].innerText=decapslock(this.value)" />
<p></p>

Açıklama:

a=>a.replace(/* giant regex */,
  b=>
    b.split` `.some(
      f=>
        f.split(/[a-z]/i).length < 3   // check for 2+ letters
    )
      ? b                              // .some() immediately returns true if it's invalid
      : b.split``.map(                 // otherwise it's valid, so flip case
          e=>
            e == (E = e.toUpperCase()) // is it uppercase?
              ? e.toLowerCase()        // change it to LC
              : E                      // change it to UC, which was already done for
                                       // the case check
            ).join``
        )

(
^[a-z][^a-z ]+ // check for a CLR starting at the beginning with LC
|
[^a-z ]{2,}    // check for a CLR that begins in the middle of a word or starts at the
               // beginning with UC
               // in both cases, 2+ letters are required
)
(
 [a-z][^a-z ]+ // check for the next word of the CLR, starting with LC
|
 [^a-z ]{2,}   // check for the next word of the CLR, starting with UC
)+             // check for 1 or more next words