เป้าหมายคือใช้สตริงเป็นอินพุตทำซ้ำตัวอักษรละตินแต่ละตัวและ "สลับ" ในกรณีของมัน (เช่นตัวพิมพ์ใหญ่กลายเป็นตัวพิมพ์เล็กและในทางกลับกัน)

ตัวอย่างอินพุตและเอาต์พุต:

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.

Python 56 56ไบต์

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

ทดสอบบนIdeone

JavaScript ES6, 70 68 66 64 ไบต์

บันทึก 2 ไบต์ขอบคุณ@Kevin Lau - ไม่ใช่ Kenny

บันทึก 2 ไบต์ขอบคุณ@ CᴏɴᴏʀO'Bʀɪᴇɴ

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

คำอธิบาย

สิ่งนี้ใช้แฮ็คจริงๆ:

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

สิ่งที่ไม่ดีงามคือ:

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

l < "a"ตรวจสอบโดยทั่วไปว่าจุดรหัสของตัวอักษรน้อยกว่าจุดรหัสของa(ดังนั้นจึงเป็นตัวอักษรตัวพิมพ์ใหญ่) ถ้ามันจะทำto + Low + erCaseซึ่งl['toLowerCase']()จะกลายเป็นและทำให้ตัวละครตัวเล็ก `เครื่องหมายคำพูดอนุญาตการจัดรูปแบบสตริงดังนั้นโดยพื้นฐานแล้วคุณสามารถคิดถึง:

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

as: "to" + (l<"a" ? "Low" : "Upp") + "erCase"ซึ่งสร้างฟังก์ชันที่จะเรียกใช้ (ทำสตริงตัวพิมพ์ใหญ่หรือตัวพิมพ์เล็ก) เราใส่สิ่งนี้ลงในวงเล็บเหลี่ยม[ ... ]ซึ่งทำให้เราสามารถเข้าถึงคุณสมบัติที่กำหนดชื่อเป็นสตริงได้ นี่จะส่งคืนฟังก์ชันที่เหมาะสมแล้วเราก็เรียกมันว่า

Ruby, 37 33 (30 + -pค่าสถานะ) ไบต์

swapcaseช่วยเหลือ! เรียงจาก -4 ไบต์จาก @Lynn

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

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

โปรแกรมเต็มรูปแบบ จะพยายามตีกอล์ฟให้มากขึ้น

ลองออนไลน์! (Ideone)

Haskell, 73 ไบต์

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

Cheddar , 118 104 bytes

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

คำตอบของ Cheddar ตัวจริง !!! นี่เป็นจุดสูงสุดน้อยกว่าที่ฉันคิดว่ามันจะเป็น ... ; _;

ทำงานร่วมกับรีลีส1.0.0-beta.9ซึ่งไม่ใช่การแข่งขัน

อย่างที่คุณบอกได้ว่าฉันไม่ได้ออกแบบเชดดาร์ให้เป็นกอล์ฟ: /

Ungolfed:

(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 ฉันได้เสร็จสิ้นการทำไตรภาคทำให้เรื่องนี้ลดลงถึง 84 ไบต์

Cheddar, 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

Retina, 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

Haskell, 121, 101, 85, 82

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

Perl, 36 ไบต์ ( -nธง+ 35 )

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

( -pจำเป็นต้องติดแท็ก)

(-2 ไบต์ขอบคุณ @Dom Hasting)

คำอธิบายสั้น ๆ :
ordคืนค่าตัวเลขของถ่าน และord(any lower case) >= 97ord(any upper case) <= 90)

ทำงานด้วย:

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

Ruby, 31 + 1 = 32 30 + 1 = 31 bytes

ด้วยการ-pตั้งค่าสถานะเรียกใช้

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

ใช้ประโยชน์จากความจริงที่ว่าswapcase!จะส่งคืนnilในทุกสิ่งยกเว้นตัวอักษร ASCII ซึ่งแปลเป็นสตริงว่างเมื่อส่งคืนจากgsubบล็อก @Jordan บันทึก byte โดยการจับตัวอักษรก่อนหน้าในลักษณะที่อยู่เบื้องหลัง

R, 191 187 168 156 98 99 ไบต์

99 ไบต์เนื่องจากการปรับปรุงเทียวจูเซปเป้และMickyT

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 ลองออนไลน์!

Pyke, 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.

Python ขนาด 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 # stringแลมบ์ดาที่เข้าและส่งออกที่มี ลองมันออนไลน์

11 ไบต์ต้องขอบคุณ @Lynn trick

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

ungolfed:

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