오늘날의 과제를 해결하려면 문자열을 대체하는 프로그램이나 함수를 작성해야합니다. 그러나 알파벳이 아닌 문자는 무시해야합니다. 이것은 모든 알파벳 문자가 선행 및 다음 알파벳 문자 와 다른 대소 문자를 가져야 함을 의미합니다 . 예를 들어 이것은 다른 모든 문자를 대문자로 쓰는 것보다 약간 더 복잡합니다. 다음과 같은 문자열을 사용하면

hello world

다른 모든 문자를 대문자로 변환하면 다음을 얻을 수 있습니다.

hElLo wOrLd

보다시피, 소문자 o뒤에 소문자 가옵니다 w. 유효하지 않습니다. 대신 공간을 무시하여 다음과 같은 결과를 제공해야합니다.

hElLo WoRlD

알파벳이 아닌 모든 문자는 동일하게 유지해야합니다. 출력은 지속적으로 교대로있는 한 대문자 또는 소문자로 시작할 수 있습니다. 이는 다음도 수용 가능한 출력이 될 것임을 의미합니다.

HeLlO wOrLd

입력의 경우에 관계없이 프로그램이 작동해야합니다.

입력 문자열에는 인쇄 가능한 ASCII 만 포함 되므로 인쇄 할 수없는 문자, 줄 바꿈 또는 유니 코드에 대해 걱정할 필요가 없습니다. 제출은 전체 프로그램 또는 기능 일 수 있으며, 합리적인 형식으로 입력 및 출력 할 수 있습니다. 예를 들어, 함수 인수 / 반환 값, STDIN / STDOUT, 파일 읽기 / 쓰기 등

예 :

ASCII                                   ->  AsCiI
42                                      ->  42
#include <iostream>                     ->  #InClUdE <iOsTrEaM>
LEAVE_my_symbols#!#&^%_ALONE!!!         ->  lEaVe_My_SyMbOlS#!#&^%_aLoNe!!!
PPCG Rocks!!! For realz.                ->  PpCg RoCkS!!! fOr ReAlZ.
This example will start with lowercase  ->  tHiS eXaMpLe WiLl StArT wItH lOwErCaSe
This example will start with uppercase  ->  ThIs ExAmPlE wIlL sTaRt WiTh UpPeRcAsE
A1B2                                    ->  A1b2

이것이 코드 골프 이기 때문에 표준 허점이 적용되고 바이트 단위의 최단 답변이 승리합니다!

자바 스크립트 (ES6), 66 63 바이트

대문자로 시작합니다.

s=>s.replace(/[a-z]/gi,c=>c[`to${(s=!s)?'Low':'Upp'}erCase`]())

테스트 사례

let f =

s=>s.replace(/[a-z]/gi,c=>c[`to${(s=!s)?'Low':'Upp'}erCase`]())

console.log(f("ASCII"))
console.log(f("42"))
console.log(f("#include <iostream>"))
console.log(f("LEAVE_my_symbols#!#&^%_ALONE!!!"))
console.log(f("PPCG Rocks!!! For realz."))
console.log(f("This example will start with lowercase"))
console.log(f("This example will start with uppercase"))
console.log(f("A1B2"))

05AB1E , 11 8 바이트

암호:

lvyJ¤aiš

05AB1E 인코딩을 사용합니다 . 온라인으로 사용해보십시오!

설명:

l           # Lowercase the input
 vy         # For each element..
   J        #   Join the entire stack into a single string
    ¤a      #   Check if the last character is alphabetic
      iš    #   If true, swapcase the entire string

GNU 세드, 33

• @TobySpeight 덕분에 5 바이트 절약

점수는 -rsed에 대한 +1을 포함 합니다.

s/([a-z])([^a-z]*.?)/\U\1\L\2/gi

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

젤리 , 13 바이트

nŒsTm2
ŒlŒuǦ

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

작동 원리

ŒlŒsǦ  Main link. Argument: s (string)

Œl      Cast to lowercase.
    Ǧ  At indices returned by the helper link...
  Œu        apply uppercase.


nŒsTm2      Helper link. Argument: s (string)

 Œs         Apply swapcase to s.
n           Perform vectorizing not-equal comparison.
   T        Compute the truthy indices.
    m2      Select every other one, starting with the first.

Japt , 16 14 바이트

r"%l"_m"uv"gT°

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

설명

r              // RegEx replace input
 "%l"          // [A-Za-z] as first arg to replace
     _         // created function Z=>Z as second arg to replace
       "uv"gT° // alternates "u" & "v"
      m        // map Z to either "u" upper or "v" lower

파이썬 3 , 86 76 68 66 63 바이트

^{DJMcMayhem 덕분에 -2 바이트 Cyoce 덕분에
-3 바이트}

x=0
for i in input():print(end=(2*i).title()[x]);x^=i.isalpha()

온라인으로 사용해보십시오! 또는 모든 테스트 사례를 시도하십시오

Alice , 18 바이트

/olZlYuN
@iy.u..//

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

설명

이 프로그램은 서수 모드에서 완전히 실행되는 홀수 길이 프로그램의 덜 알려진 템플릿을 따릅니다. 이 코드의 선형화 된 버전은 다음과 같습니다.

il.l.uN.YuZyo@

코드 설명 :

i - push input onto stack            ["Hello world!"]
l - convert to lowercase             ["hello world!"]
. - duplicate                        ["hello world!", "hello world!"]
l - convert to lowercase (should be no-op, but avoids what seems to be a bug in the TIO implementation)
. - duplicate again                  ["hello world!", "hello world!", "hello world!"]
u - convert to uppercase             ["hello world!", "hello world!", "HELLO WORLD!"]
N - difference between sets          ["hello world!", "helloworld"]
. - duplicate reduced string         ["hello world!", "helloworld", "helloworld"]
Y - unzip (extract even positions)   ["hello world!", "helloworld", "hlool", "elwrd"]
u - convert to uppercase             ["hello world!", "helloworld", "hlool", "ELWRD"]
Z - zip evens back into string       ["hello world!", "helloworld", "hElLoWoRlD"]
y - perform substitution             ["hElLo WoRlD!"]
o - output                           []
@ - terminate

l중복을 사용하지 않으면 이후의 스택 N은입니다 ["helloworld", "helloworld"]. 나는 이것이 버그라고 강력하게 의심한다.

C (tcc) , 60 57 56 바이트

비트 5를 인식하는 DigitalTrauma 덕분에 ASCII 대문자 / 소문자의 유일한 차이점입니다.

3 바이트 이상 골프를 해주신 zch에게 특별한 감사를드립니다.

RJHunter의 아이디어에서 하나 이상의 바이트를 저장하십시오.

l;f(char*s){for(;*s=isalpha(*s)?*s&95|++l%2<<5:*s;s++);}

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

자바 8, 99 바이트

a->{String r="";int i=0;for(int c:a)r+=(char)(c>64&c<91|c>96&c<123?i++%2<1?c|32:c&~32:c);return r;}

설명:

여기에서 시도하십시오.

a->{                          // Lambda with char-array parameter and String return-type
  String r="";                //  Result-String
  int i=0;                    //  Flag for alteration
  for(int c:a)                //  Loop over the characters of the input
    r+=(char)                 //   And append the result-String with the following (converted to char):
      (c>64&c<91|c>96&c<123?  //    If it's a letter:
       i++%2<1?               //     And the flag states it should be lowercase:
        (c|32)                //      Convert it to lowercase
       :                      //     Else (should be uppercase):
        (c&~32)               //      Convert it to uppercase
      :                       //    Else:
       c);                    //     Simply append the non-letter character as is
                              //  End of loop (implicit / single-line body)
  return r;                   //  Return result-String
}                             // End of method

루비, 57 55 47 41 바이트

바이트 수에는 명령 행 옵션을위한 2 바이트가 포함됩니다.
예를 들어 다음과 같이 실행하십시오.$ ruby -p0 alternate_case.rb <<< "some input"

gsub(/\p{L}/){($&.ord&95|32*$.^=1).chr}

이 p0옵션을 사용하면 전체 입력이 한 번에 소비되고 마법 글로벌 $.이 1로 증가합니다. 나중에 0과 1 사이에서 전환되어 상태를 유지하는 데 사용됩니다.

여러 줄 입력으로 작동합니다. 온라인으로 사용해보십시오!

놀라운 입력을위한 Ventero 덕분에 자세한 내용은 의견을 확인하십시오.

Brachylog , 25 바이트

{ḷ|ụ}ᵐ.{ḷ∈Ạ&}ˢ¬{s₂{∈Ạ}ᵐ}∧

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

이것은 길고 느립니다.

설명

{   }ᵐ.                       The Output is the result of mapping on each char of the Input:
 ḷ                              Lowecase the char
  |                             Or
   ụ                            Uppercase the char
       {    }ˢ                In the Ouput, select the chars that:
        ḷ∈Ạ&                    when lowercased are in "abc...xyz" (ie are letters)
              ¬{       }∧     In that new string, it is impossible to find:
                s₂              a substring of 2 consecutive chars
                  {∈Ạ}ᵐ         where both of them are in the lowercase alphabet

MATL , 16 15 바이트

Xktkyy-f2L))5M(

온라인으로 사용해보십시오! 또는 모든 테스트 사례를 확인하십시오 .

설명

입력 'hello world'를 고려하십시오

Xk    % To upper case
      % STACK: 'HELLO WORLD'
t     % Duplicate top element
      % STACK: 'HELLO WORLD', 'HELLO WORLD'
k     % To lower case
      % STACK: 'HELLO WORLD', 'hello word'
yy    % Duplicate top two elements
      % STACK: 'HELLO WORLD', 'hello word', 'HELLO WORLD', 'hello word'
-     % Difference (of code points; element-wise)
      % STACK: 'HELLO WORLD', 'hello word', [-32 -32 -32 -32 -32 0 -32 -32 -32 -32 -32]
f     % Indices of nonzeros
      % STACK: 'HELLO WORLD', 'hello word', [1 2 3 4 5 7 8 9 10 11]
2L)   % Keep only even-indexed values (*)
      % STACK: 'HELLO WORLD', 'hello word', [2 4 7 9 11]
)     % Reference indexing (get values at indices)
      % STACK: 'HELLO WORLD', 'elwrd'
5M    % Push (*) again
      % STACK: 'HELLO WORLD', 'elwrd', [2 4 7 9 11]
(     % Assignment indexing (write values at indices). Implicit display
      % STACK: 'HeLlO wOrLd

'

펄 6 ,  32  30 바이트

{S:g/<:L><-:L>*<:L>?/$/.tclc()/}

시도 해봐

{S:g{<:L><-:L>*<:L>?}=$/.tclc}

시도 해봐

넓히는:

{  # bare block lambda with implicit parameter ｢$_｣

  S            # string replace (not in-place) implicitly against ｢$_｣

  :global

  {

    <+ :L >    # a letter
    <- :L >*   # any number of non-letters
    <+ :L >?   # an optional letter

  }

  =

  $/.tclc()    # uppercase the first letter, lowercase everything else
}

q / kdb +, 51 42 38 바이트

해결책:

{@[x;;upper]1#'2 cut(&)x in .Q.a}lower

예:

q){@[x;;upper]1#'2 cut(&)x in .Q.a}lower"hello world"
"HeLlO wOrLd"

노트:

.Q.a        // abcde...xyz lowercase alphabet
(&) x in    // where, returns indices for where x (hello world) is an alpha
2 cut       // splits list into 2-item lists
1#'         // takes first item of each 2-item list; ie the indices to uppercase
@[x;;upper] // apply (@) upper to x at these indices

V , 17 , 13 바이트

VUÍშáü$©/ì&

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

또는 모든 테스트 사례를 확인하십시오!

HeXdUmP :

00000000: 5655 cde1 83a8 e1fc 24a9 2fec 26         VU......$./.&

설명:

이 사용하는 압축 정규식 ™ ️, 그래서 그것을 설명하기 전에,하자가 밖으로 정규식을 확장 :

:%s/\v\a.{-}(\a|$)/\l&

VU변환의 모든 대문자입니다. 그런 다음 우리는 이것을 실행합니다 :

:%                      " On every line:
  s/\v                  "   Substitute:
      \a                "     A letter
        .{-}            "     Followed by as few characters as possible
            (\a|$)      "     Followed by either another letter or an EOL
                  /     "   With:
                   \l   "     The next character is lowercased
                     &  "     The whole text we matched

오래되고 흥미로운 답변 :

:se nows
Vuò~h2/á

PHP, 71 바이트

for(;a&$c=$argn[$i++];)echo ctype_alpha($c)?(ul[$k++&1].cfirst)($c):$c;

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

CJam , 26 24 바이트

qeu{_'[,65>&,T^:T{el}&}%

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

설명

q         e# Read all input.
eu        e# Uppercase it.
{         e# For each character:
 _        e#  Duplicate it.
 '[,65>&  e#  Set intersection with the uppercase alphabet.
 ,        e#  Length (either 0 or 1 in this case).
 T^:T     e#  XOR with T (T is initially 0), then store the result back in T.
 {el}&    e#  If The result of the XOR is true, lowercase the character.
}%        e# (end for)

Pyth, 11 바이트

srR~xZ}dGrZ

여기 사용해보십시오

설명

              # Z = 0; Q = eval(input())
srR~xZ}dGrZQ  # Auto-fill variables
         rZQ  # lowercase the input
 rR           # Apply the r function to each letter of the input with
   ~xZ}dG     # ... this as the other argument
   ~          # use the old value of the variable Z, then update it with the value of ...
    xZ        # Z xor ...
      }dG     # the variable d is a lowercase letter
              # because of how mapping works in pyth, d will contain the current letter
              # This causes Z to flip between 0 and 1, alternately upper and lower casing
              # the current character if it is a letter

PowerShell, 86 바이트

-join($args[0]|%{if($_-match"[a-z]"-and($i=!$i)){"$_".toupper()}else{"$_".tolower()}})

입력은 [char[]]배열입니다.

설명을위한 코드 주석

# Join the array of string and char back together.
-join
    # Take the first argument and pass each element ([char]) down the pipe. 
    ($args[0]|%{
        # Check if this is a letter. Second condition is a boolean that changes at every pass 
        # but only if the current element is a letter. If not the condition never fires
        if($_-match"[a-z]"-and($i=!$i)){
            # Change the character to uppercase
            "$_".toupper()
        }else{
            # Output the character to lowercase. 
            # Special characters are not affected by this method
            "$_".tolower()
        }
    })

Haskell, 105 83 + 2 4 + 1 바이트의 구분 기호 = 108 86 88 바이트

import Data.Char
f#(x:y)|isLetter x=([toUpper,toLower]!!f)x:(1-f)#y|1>0=x:f#y
_#l=l

기능은 (1#)이며 소문자로 시작합니다. 온라인으로 사용해보십시오!

슬픈 점은 이것이 자바와 C #보다 길다는 것입니다. Ørjan Johansen 덕분에 3 줄을 하나로 묶어 22 바이트를 절약 할 수있었습니다!

Google 스프레드 시트, 264 바이트

=ArrayFormula(JOIN("",IF(REGEXMATCH(MID(A1,ROW(OFFSET(A1,0,0,LEN(A1))),1),"[A-Za-z]"),CHAR(CODE(UPPER(MID(A1,ROW(OFFSET(A1,0,0,LEN(A1))),1)))+MOD(LEN(REGEXREPLACE(LEFT(A1,ROW(OFFSET(A1,0,0,LEN(A1)))),"[^A-Za-z]","")),2)*32),MID(A1,ROW(OFFSET(A1,0,0,LEN(A1))),1))))

큰 혼란이지만 확장하면 조금 더 쉽습니다.

=ArrayFormula(
  JOIN(
    "",
    IF(REGEXMATCH(MID(A1,ROW(OFFSET(A1,0,0,LEN(A1))),1),"[A-Za-z]"),
      CHAR(
        CODE(UPPER(MID(A1,ROW(OFFSET(A1,0,0,LEN(A1))),1)))
        +
        MOD(LEN(REGEXREPLACE(LEFT(A1,ROW(OFFSET(A1,0,0,LEN(A1)))),"[^A-Za-z]","")),2)*32
      ),
      MID(A1,ROW(OFFSET(A1,0,0,LEN(A1))),1)
    )
  )
) 

의사 논리는 다음과 같이 실행됩니다.

For each character {                                    // ArrayFormula()
  If (character is a letter) {                          // REGEXMATCH(MID())
    Return CHAR(                                        // CHAR()
      CODE(UPPER(letter))                               // CODE(UPPER(MID()))
      +
      If (nth letter found and n is odd) {32} else {0}  // MOD(LEN(REGEXREPLACE(LEFT())))
    )
  } else {
    Return character                                    // MID()
  }
}

펄 5 , 24 바이트

용 1 바이트 + 23 바이트 -p.

-2 바이트에 대한 @Dada 덕분 입니다.

s/\pl/--$|?uc$&:lc$&/eg

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

레티 나 , 46 바이트

T`L`l
T`l`L`.(?=([^a-z]*|[a-z][^a-z]*[a-z])*$)

온라인으로 사용해보십시오! 테스트 사례를 포함합니다.

C 64 바이트

B;R(char *s){for(;*s=isalpha(*s)?(B=!B)?*s|=32:*s&=~32:*s;s++);}

대문자와 소문자가 0x20으로 오프셋되는 ASCII 인코딩을 활용합니다.

레티 나 , 32 바이트

T`l`L
01T`L`l`[A-Z][^A-Z]*[A-Z]?

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

먼저 입력을 대문자로 변환 한 다음 입력을 최대 2 개의 대문자를 포함하는 일치 항목으로 그룹화합니다. 마지막 문자에 쌍이없는 경우에만 문자가 하나만 포함됩니다. 그런 다음 각 일치 항목의 첫 글자를 소문자로 사용합니다.

01두 번째 단계에서 대략로 번역 : 경기의 수에 따라이 단계의 동작을 변경할 수 있지만, 각 경기의 첫 번째 문자로 변경 사항을 적용하지 않는다.

PHP 5, 54 바이트

<?=preg_filter('/\pL/e','($0|" ")^a^aA[$i^=1]',$argn);

C #, 100 바이트

s=>{var r="";int m=0;foreach(var c in s)r+=char.IsLetter(c)?(char)(++m%2>0?c|32:c&~32):c;return r;};

그루비, 79 바이트

{x=0;it.toUpperCase().collect{(it==~/\w/)?x++%2?it:it.toLowerCase():it}.join()}

파이썬 3 , 192 바이트

x=list(input())
s=[]
for i in x[1::2]:
 s.append(i)
 x.remove(i)
s.reverse()
while len(x)<len(s):
 x.append("")
while len(x)>len(s):
 s.append("")
for i in range(len(x)):
 print(end=x[i]+s[i])

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

볼록한 16 바이트

¯{_U&,R^:R{¬}&}%

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

의 볼록 포트 @business 고양이의 대답 .