목표는 문자열을 입력으로 사용하여 각 라틴 문자를 복제하고 대소 문자를 "토글"하는 것입니다 (즉, 대문자는 소문자가되고 그 반대도 마찬가지 임).

입력 및 출력 예 :

Input      Output
bad        bBaAdD
Nice       NniIcCeE
T e S t    Tt eE Ss tT
s E t      sS Ee tT
1!1!1st!   1!1!1sStT!
n00b       nN00bB     
(e.g.)     (eE.gG.)
H3l|@!     Hh3lL|@!

입력은 인쇄 가능한 ASCII 기호로 구성됩니다.

비 라틴 문자, 숫자, 특수 문자는 복제해서는 안됩니다.

젤리, 5 바이트

żŒsQ€

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

작동 원리

żŒsQ€  Main link. Argument: s (string)

 Œs    Yield s with swapped case.
ż      Zip s with the result.
   Q€  Unique each; deduplicate each pair of characters.

파이썬, 56 54 바이트

lambda s:''.join(c+c.swapcase()*c.isalpha()for c in s)

Ideone에서 테스트하십시오 .

자바 스크립트 ES6, 70 68 66 64 바이트

Kenny가 아닌 @Kevin Lau 덕분에 2 바이트 절약

@ Cᴏɴᴏʀ O'Bʀɪᴇɴ 덕분에 2 바이트 절약

s=>s.replace(/[A-Z]/gi,l=>l+l[`to${l<"a"?"Low":"Upp"}erCase`]())

설명

이것은 정말로 해키를 사용합니다 :

l[`to${l<"a"?"Low":"Upp"}erCase`]()

ungolfed는 :

l[`to${
   l < "a" ?
   "Low" : 
   "Upp"
}erCase`]()

기본적으로 l < "a"문자의 코드 포인트가 코드 포인트 a(따라서 대문자)보다 작은 지 확인합니다. 이 경우는 다하겠습니다 to + Low + erCasebecomed있는 l['toLowerCase']()및 문자 소문자한다. `따옴표는 문자열 형식을 허용하므로 본질적으로 다음을 생각할 수 있습니다.

`to${l < "a" ?"Low" : "Upp"}erCase`

as : "to" + (l<"a" ? "Low" : "Upp") + "erCase"호출 할 함수를 생성합니다 (문자열을 대문자 또는 소문자로). 이를 대괄호로 묶어 [ ... ]이름이 문자열 인 속성에 액세스 할 수 있습니다. 이것은 적절한 함수를 반환 한 다음 호출합니다.

루비, 37 33 (30 + -p플래그) 바이트

swapcase구조에! 일종의. @Lynn에서 -4 바이트

gsub(/[a-z]/i){$&+$&.swapcase}

C, 63 60 바이트

f(char*s){for(;*s;s++)isalpha(putchar(*s))&&putchar(32^*s);}

등을 사용합니다 'a' XOR 32 == 'A'.

FryAmTheEggman 덕분에 3 바이트가 절약되었습니다.

CJam, 11 바이트

l_el_eu.+.|

여기에서 테스트하십시오.

설명

l      e# Read input.
_el    e# Duplicate, convert to lower case.
_eu    e# Duplicate, convert to upper case.
.+     e# Concatenate the two characters in matching positions from those two
       e# strings. E.g. "ab!" "AB!" would give ["aA" "bB" "!!"].
       e# For each character from the original string and the corresponding 
.|     e# string from this list, take the set union (which eliminates duplicates
       e# and keeps the order the values appear in from left to right, so that
       e# the original case of each letter comes first).

Pyth , 7 바이트

sm{+dr2

테스트 스위트 .

sm{+dr2    input: Q
sm{+dr2dQ  implicit arguments

        Q  input
 m         for each character as d:
     r2d       swapcase
   +d          prepend d
  {            deduplicate
s          join as string

Python 3.5, 60 56 바이트 :

for i in input():print(end=i+i.swapcase()[:i.isalpha()])

전체 프로그램. 더 골프하려고합니다.

온라인으로 사용해보십시오! (아이디어)

하스켈, 73 바이트

l=['a'..'z']
u=['A'..]
(>>= \c->c:maybe""pure(lookup c$zip l u++zip u l))

체다 , 118 104 바이트

(s)->s.chars.map((i)->{if String.letters has i.lower{if i<"a"{i+i.lower}else{i+i.upper}}else{i}}).join()

최초의 실제 체다 답변! 이것은 내가 생각했던 것보다 훨씬 덜 기후입니다 ...; _;

경쟁이 아닌 릴리스 1.0.0-beta.9 와 호환 됩니다.

내가 알 수 있듯이 체다가 골프가되도록 디자인하지 않았다 : /

언 골프 드 :

(str) -> str.chars.map(
    (i) -> {
        if String.letters has i {
            if i < "a" { // Check char code, meaning it's upper case if true
                i+i.lower
            }
            else {
                i+i.upper
            }
        } else {
            i
        }
    }
).join()

용법:

var doThing = <code here>;
doThing("input...");

업데이트 : 7/14/16 3 바이트를 완료하여 84 바이트로 줄였습니다.

체다, 84 바이트

(s)->s.chars.map((i)->String.letters has i.lower?i<"a"?i+i.lower:i+i.upper:i).join()

버전 v1.0.0-beta.14부터 작동

레티 나, 28 27 21 바이트

그것들은 공백이 아닌 탭입니다.

.
$&  $&
T`lL    p`Ll_`  .

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

제안 해 주셔서 감사합니다.

C, 87 80

문자열을 입력으로 전달 f()하면 출력이 STDOUT에 기록됩니다. 문자열은 수정되지 않습니다.

f(char*v){for(;*v;++v)putchar(*v),isalpha(*v)?putchar(*v-32+64*!islower(*v)):0;}

sed, 30 바이트

29 바이트 코드 + 1 바이트 매개 변수 -r

s/([a-z])|([A-Z])/&\u\1\l\2/g

용법:

echo -e 'bad\nNice\nT e S t\ns E t\n1!1!1st!\nn00b\n(e.g.)\nH3l|@!' |\
sed -r 's/([a-z])|([A-Z])/&\u\1\l\2/g'

J, 31 29 바이트

[:;]<@~."1@,.tolower,.toupper

설명

[:;]<@~."1@,.tolower,.toupper  Input: s
                      toupper  Convert s to all uppercase
             tolower           Convert s to all lowercase
                    ,.         Join them as columns in a 2d array
   ]                           Identity function, get s
           ,.                  Prepend s as a column to the 2d array
      ~."1@                    Take the unique chars on each row
    <@                         Box them
[:;                            Unbox the list of boxes and join their contents and return

하스켈, 121, 101, 85, 82

import Data.Char
g n|isLower n=toUpper n|1<2=toLower n
(>>= \x->x:[g x|isAlpha x])

펄, 36 바이트 (35 + -n플래그)

s/[a-z]/$&.(ord$&<97?lc$&:uc$&)/ige

( -p태그 필요)

(@Dom Hasting 덕분에 2 바이트)

간단한 설명 :
ord문자의 숫자 값을 반환합니다. ord(any lower case) >= 97, ord(any upper case) <= 90).

로 실행 :

perl -pe 's/[a-z]/$&.(ord$&<97?lc$&:uc$&)/ige'

루비, 31 + 1 = 32 30 + 1 = 31 바이트

와 -p플래그, 실행

gsub(/(?<=(.))/){$1.swapcase!}

블록에서 반환 될 때 빈 문자열로 변환되는 ASCII 문자 이외의 다른 문자를 swapcase!반환 한다는 사실을 이용 nil합니다 gsub. @Jordan은 이전 문자를 뒤에서 캡처하여 바이트를 절약했습니다.

R, 191 187 168 156 98 99 바이트

Giuseppe 및 MickyT의 개선으로 인한 99 바이트 .

paste0(x<-unlist(strsplit(readline(),"")),gsub("[^A-Za-z]","",chartr("a-zA-Z","A-Za-z",x)),collapse="")

05AB1E , 7 바이트

암호:

vyyš«Ù?

설명:

v       # For each in input.
 yyš    # Push y and y swapcased.
    «Ù  # Concatentate and uniquify.
      ? # Print without a newline.

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

파이크, 8 6 바이트

FDl4+}

여기 사용해보십시오!

V , 21 바이트

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

너무 많은 바이트 ...

Ó./°ò
Íá/°°
Îlg~lÎHògJ

실제로 8 바이트

`;Öo╔`MΣ

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

설명:

`;Öo╔`MΣ
`;Öo╔`M   for each character in input:
 ;          duplicate the character
  Ö         swap case
   o        append to original character
    ╔       remove duplicated characters
       Σ  concatenate

MATL, 11 9 바이트

tYov"@uv!

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

설명

        % Implicitly grab input as string
t       % Duplicate the input
Yo      % Swap case of all characters
v       % Vertically concatenate the original and swap-cased versions
"       % For each column (letter in the original)
  @u    % Compute the unique values (without sorting)
  v!    % Vertically concatenate with the existing output and transpose
        % Implicit end of for loop and implicit display

Perl, 28 22 21 바이트 (20 + -p플래그)

s/[a-z]/$&.$&^$"/ige

Stax , 7 6 바이트

바이트를 저장 한 @recursive 덕분에!

┤§ÆP♦■

staxlang.xyz에서 실행하고 디버그하십시오! (링크는 압축 해제 버전입니다)

압축 해제 (7 바이트) :

c:~\{um

설명:

c:~\{um
c          Copy the top element of the stack (the input, in this case).
 :~        Switch case of each letter in the copy.
   \       Zip. This produces an array of two-character strings.
    { m    Map a block over this array of two-character strings.
     u       Get all unique elements.
           Implicit concatenate and print.

파이썬, 59 바이트

lambda s:''.join((x,x+x.swapcase())[x.isalpha()]for x in s)

알파벳이 아닌 문자를 반복 수정하도록 편집

줄리아, 40 바이트

!s=[print(c,isalpha(c)?c$' ':"")for c=s]

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

PHP 4.1, 57 바이트

이 코드는 기본 구성을 사용하여 웹 서버 (예 : Apache)를 통한 액세스를 가정합니다.

당신은 키를 전송하여 문자열을 전달할 수 S있는 수단으로 ( POST, GET, COOKIE, SESSION...).

<?for($i=0;$c=$S[$i++];)echo$c,ctype_alpha($c)?$c^' ':'';

C #, 82 71 바이트

s=>string.Concat(s.Select(c=>c+(char.IsLetter(c)?(char)(c^32)+"":"")));

입력과 출력은 C # 1 람다 string. 온라인으로 사용해보십시오 .

@Lynn 트릭 덕분에 11 바이트.

공통 Lisp (Lispworks), 262 바이트

(defun f(s)(let((b""))(dotimes(i(length s))(if(lower-case-p(elt s i))(progn #1=(setf b(concatenate 'string b(string #2=(elt s i))))(setf b(concatenate 'string b(string(char-upcase #2#)))))(progn #1#(setf b(concatenate 'string b(string(char-downcase #2#)))))))b))

언 골프 :

(defun f (s)
  (let ((b ""))
    (dotimes (i (length s))
      (if (lower-case-p (elt s i))
          (progn
           #1=(setf b (concatenate 'string b (string #2=(elt s i))))
           (setf b (concatenate 'string b (string (char-upcase #2#)))))
        (progn
          #1#
          (setf b (concatenate 'string b (string (char-downcase #2#)))))))
    b))

용법:

CL-USER 1 > (f "abc")
"aAbBcC"

CL-USER 2 > (f "bad")
"bBaAdD"