ข้อมูลที่คุณป้อนจะเป็นประโยควลีหรือคำภาษาอังกฤษ a-zA-Z' -,.!?มันจะมี งานของคุณคือการป้อนข้อมูลลบช่องว่างแล้วกระจายการใช้อักษรตัวพิมพ์ใหญ่เช่นตัวอักษรที่ดัชนีที่เป็นตัวพิมพ์ใหญ่ก่อน

ตัวอย่างเช่นถ้าใส่เป็นA Quick Brown Fox Jumped Over The Lazy Dogที่ (0-based) 0, 2, 8, 14, 18, 25, 30, 34, 39ดัชนีของตัวอักษรที่มี AQuickBrownFoxJumpedOverTheLazyDogถัดไปลบช่องว่างจากการป้อนข้อมูล: ถัดไปพิมพ์เล็กตัวอักษรทั้งหมด แต่พิมพ์ใหญ่ที่0, 2, 8, 14, 18, 25, 30, 34, 39: AqUickbrOwnfoxJumpEdovertHelazYdogซึ่งเป็นผลลัพธ์ของคุณ

อินพุต

ข้อมูลที่คุณป้อนจะเป็นประโยควลีหรือคำภาษาอังกฤษ มันสามารถมีตัวอักษรตัวพิมพ์เล็กตัวอักษรตัวพิมพ์ใหญ่เครื่องหมายยัติภังค์, เครื่องหมายจุลภาค, เครื่องหมายจุลภาค, จุด, เครื่องหมายคำถามเครื่องหมายอัศเจรีย์และช่องว่าง

เอาท์พุต

อินพุตที่มีช่องว่างถูกลบออกเป็นตัวพิมพ์เล็ก -d พร้อมตัวอักษรที่ดัชนีของตัวพิมพ์ใหญ่ในอินพุตตัวพิมพ์ใหญ่ -d

หมายเหตุ: โปรแกรมของคุณไม่สามารถผิดพลาดได้ (ข้อผิดพลาดการดำเนินการดังกล่าวสิ้นสุดลง) พร้อมกับ IndexOutOfRange หรือข้อผิดพลาดที่คล้ายกัน

กรณีทดสอบ

Hi! Test!
Hi!tEst!

A Quick Brown Fox Jumped Over The Lazy Dog
AqUickbrOwnfoxJumpEdovertHelazYdog

testing TESTing TeStING testing testing TESTING
testingtESTIngteStInGTEstingtestingtestiNG

TESTING... ... ... success! EUREKA???!!! maybe, don't, NOOOOO
TESTING.........success!eureKA???!!!maybe,don't,nooooo

Enter        PASSWORD ---------
Enterpassword---------

A a B b C c D d E e F f G g H h I i J j K k L l M m N n O o P p Q q R r S s T t U u V v W w X x Z z
AabbCcddEeffGghhIijjKkllMmnnOoppQqrrSsttUuvvWwxxZz

  TEST
teST

เยลลี่ , 14 13 ไบต์

nŒlTɓḲFŒlŒuṛ¦

ลองออนไลน์!

มันทำงานอย่างไร

nŒlTɓḲFŒlŒuṛ¦  Main link. Argument: s (string)

 Œl            Convert s to lowercase.
n              Perform character-wise "not equal" comparison.
   T           Get the indices of all truthy elements, i.e., the indices of all
               uppercase letters in s. Let's call the resulting array J.
    ɓ          Begin a dyadic chain with left argument s and right argument J.
     ḲF        Split s at spaces and flatten, removing the spaces.
       Œl      Convert s to lowercase.
            ¦  Sparse application:
         Œu        Convert s to uppercase.
           ṛ       Take the resulting items of the uppercased string at all indices
                   in J, the items of the lowercased string at all others.

C (gcc) , 82 79 74 72 69 67 66 ไบต์

f(c){for(char*s=c,*p=c;c=*s++;c&&putchar(c^(*p++|~c/2)&32))c&=95;}

ลองออนไลน์!

Python 2 , 114 ไบต์

x=input()
X=x.replace(' ','')
print''.join([X[i].upper()if x[i].isupper()else X[i].lower()for i in range(len(X))])

ลองออนไลน์!

เท่า:

Python 2 , 114 ไบต์

lambda x:''.join([[str.lower,str.upper][x[i].isupper()](x.replace(' ','')[i])for i in range(len(x)-x.count(' '))])

ลองออนไลน์!

Python 3 , 78 75 72 ไบต์

s=input()
for c in s:s=s[c>' '!=print(end=(c+c).title()[s<'@'or'['<s]):]

ขอบคุณ @xnor สำหรับการเล่นกอล์ฟขนาด 6 ไบต์!

ลองออนไลน์!

05AB1E , 15 14 ไบต์

-1 ไบต์ต้องขอบคุณEmigna

ðKuvy¹Nè.lil}?

ลองออนไลน์!

ðK             # Remove spaces
  u            # Convert to uppercase
   vy          # For each character...
     ¹Nè       #   Get the character at the same index from the original input
        .lil}  #   If it was a lowercase letter change this one to lowercase
             ? # Print without a newline

Haskell , 98 95 89 88 81 ไบต์

ขอขอบคุณ @name, @nimi, @Zgarb และ @Laikoni ที่ช่วยให้โกนได้ทั้งหมด 14 ไบต์

import Data.Char
\s->zipWith(\p->last$toLower:[toUpper|isUpper p])s$filter(>' ')s

Ungolfed:

import Data.Char
\sentence -> zipWith (\oldChar newChar ->
                        if isUpper oldChar
                        then toUpper newChar
                        else toLower newChar)
                     sentence
                     (filter (/= ' ') sentence)

V , 24 ไบต์

ÄVuÓó
ejlDò/¥2lõ
vuk~òGd

ลองออนไลน์!

ความท้าทายเหล่านี้เป็นสิ่งที่ V สร้างขึ้นมา :)

คำอธิบาย:

Ä           " Duplicate this line
 Vu         " Convert it to lowercase
   Óó       " Remove all spaces
e           " Move to the end of this line
 j          " Move down a line (to the original)
  l         " Move one char to the right
   D        " And delete the end of this line
    ò       " Recursively:
     /      "   Search for:
         õ  "     An uppercase character
      ¥2l   "     On line 2
            "     (This will break the loop when there are no uppercase characters left)
vu          "   Convert it to lowercase
  k         "   Move up a line
   ~        "   Convert this to uppercase also
    ò       " Endwhile
     G      " Move to the last line
      d     " And delete it

Python 2, 100 ไบต์

s=input()
print"".join([c.lower(),c.upper()][s[i].isupper()]for i,c in enumerate(s.replace(" ","")))

อลิซ 32 ไบต์

/..- ~l+u~mSloy
\ia''-y.'Qa.+a@/

ลองออนไลน์!

คำอธิบาย

นี่เป็นเทมเพลตมาตรฐานสำหรับโปรแกรมที่ทำงานในโหมดปกติทั้งหมด Unwrapped โปรแกรมจะเป็นดังนี้:

i.' -l.uQm.lay.a-'~y+'~aS+o@

i       take input as string
.       duplicate
' -     remove spaces from copy
l.u     create all-lowercase and all-uppercase versions
Q       reverse stack, so original string is on top
m       truncate original string to length of spaces-removed string
.lay    convert everything except uppercase characters to \n
.a-'~y  convert everything except \n (i.e., convert uppercase characters) to ~
+       superimpose with lowercase string
        \n becomes the corresponding lowercase character, and ~ remains as is
'~aS    convert ~ to \n
+       superimpose with uppercase string
        lowercase in existing string stays as is because it has a higher code point
        \n becomes corresponding uppercase character
o       output
@       terminate

JavaScript (ES6), 94 91 85 ไบต์

s=>s.replace(/./g,c=>c==" "?"":c[`to${"@"<s[x]&s[x++]<"["?"Upp":"Low"}erCase`](),x=0)

• บันทึก 6 ไบต์ด้วยความช่วยเหลือจาก ETHproductions & Arnauld

ลองมัน

o.innerText=(f=

s=>s.replace(/./g,c=>c==" "?"":c[`to${"@"<s[x]&s[x++]<"["?"Upp":"Low"}erCase`](),x=0)

)(i.value="Hi! Test!");oninput=_=>o.innerText=f(i.value)

<input id=i><pre id=o>

เรติน่า , 77 71 ไบต์

.+
$&¶$&
T`L `l_`.+$
+`((.)*)[A-Z].*(¶(?<-2>.)*)
$1$3 
.+¶

T`l `L_` .?

ลองออนไลน์! การเชื่อมโยงรวมถึงชุดทดสอบ คำอธิบาย: สเตจแรกทำซ้ำบรรทัดในขณะที่สเตจที่สองลดขนาดที่ซ้ำกันและลบช่องว่าง ขั้นตอนที่สามจะวนตัวอักษรตัวพิมพ์ใหญ่แต่ละตัวจากขวาไปซ้ายและพยายามเว้นช่องว่างก่อนอักขระที่สอดคล้องกันในบรรทัดที่สอง บรรทัดแรกจะถูกลบและช่องว่างจะถูกใช้เพื่อพิมพ์อักขระที่เกี่ยวข้องของผลลัพธ์ แก้ไข: บันทึกแล้ว 6 ไบต์ขอบคุณ @Kobi

Perl, 95 94 + 1 = 95 ไบต์

บทลงโทษ +1 ไบต์สำหรับ -n

บันทึกหนึ่งไบต์โดยแทนที่จากs/\s//gเป็นs/ //g

$s=$_;s/ //g;$_=lc($_);while(/(.)/gs){$p=$&;$p=uc($p)if(substr($s,$-[0],1)=~/[A-Z]/);print$p;}

ลองออนไลน์!

คำอธิบาย:

1. ทำสำเนาของสตริงอินพุต

2. ลบช่องว่างทั้งหมดและแปลงสตริงเป็นตัวพิมพ์เล็ก

3. จากนั้นเริ่มวนรอบตัวอักษรแต่ละตัว ทดสอบตัวอักษรในตำแหน่งเดียวกันในสตริงที่บันทึกไว้สำหรับตัวพิมพ์ใหญ่ ถ้ามันสูง - ทำตัวอักษรปัจจุบันให้เป็นภาพ พิมพ์จดหมาย

โปรดทราบว่าจะต้องเรียกใช้ Perl ด้วยสวิตช์บรรทัดคำสั่ง "-n"

MATL , 18 ไบต์

kXz"@GX@)tk<?Xk]&h

วิธีการเช่นเดียวกับคำตอบ 05AB1E ไรลีย์

ลองออนไลน์!

Python 3 , 117 ไบต์

s=input()
y=list(s.replace(' ','').lower())
i=0
for c in y:
 if s[i].isupper():y[i]=c.upper()
 i+=1
print(''.join(y))

ลองออนไลน์!

นี่เป็นครั้งแรกที่ฉันเล่นกอล์ฟรหัสดังนั้นจึงมีแนวโน้มที่จะแย่ลบความช่วยเหลือจากความคิดเห็นด้านล่าง!

ป.ล. ใช่มันเป็นใบ้ที่การกำหนดและการเพิ่มiบันทึกไบต์ในช่วง (len (y)) โอ้ดี

C # (.NET Core) , 108 101 ไบต์

using System.Linq;s=>s.Replace(" ","").Select((c,i)=>s[i]>64&s[i]<91?char.ToUpper(c):char.ToLower(c))

ลองออนไลน์!

• บันทึก 7 ไบต์หลังจากตระหนักว่าcharคลาสนั้นมีสแตติกToUpper()และToLower()เมธอด

ถ่าน 33 ไบต์

Ａ⁰χＦＬθ¿⁼§θι Ａ⁺¹χχ¿№α§θ⁻ιχ↥§θι↧§θι

ลองออนไลน์!

ในขณะที่ฉันยังไม่รู้วิธีส่งสตริงที่มีช่องว่างเป็นพารามิเตอร์อินพุตเดี่ยวในรหัส Charcoal ฉันเพิ่งกำหนดส่วนหัวของสตริงทดสอบให้กับตัวแปร Charcoal ซึ่งแทนสิ่งที่จะเป็นอินพุตแรก ( θ):

ＡA Quick Brown Fox Jumped Over The Lazy Dogθ

ดังนั้นรหัสจึงมีจำนวนไบต์เหมือนกันกับว่าสายอักขระถูกส่งผ่านเป็นอินพุตแรก

คุณสามารถดูรหัสเวอร์ชั่น verbose ได้ที่นี่

PHP, 181 ไบต์

ฉันลองรับจำนวนน้อยไบต์นี่คือรหัสของฉัน:

<?php
$s=readline();
preg_match_all('/[A-Z]/',$s,$m,PREG_OFFSET_CAPTURE);
$s=strtolower(str_replace(' ','',$s));
while($d=each($m[0]))$s[$d[1][1]]=strtoupper($s[$d[1][1]]);
echo $s;

ลองออนไลน์!

Java 8, 184 177 161 ไบต์

s->{String r="";for(int i=0,j=i,t,u;i<s.length;){t=s[i++];if(t>32){u=s[j++];r+=(char)(t<65|t>90&t<97|t>122?t:u>64&u<91?t&~32:u>96&u<123|u<33?t|32:t);}}return r;}

แน่นอนสามารถแข็งแรงเล่นกอล์ฟบางมากขึ้น ..
- 16 ไบต์ขอบคุณที่@ OlivierGrégoireโดยการป้อนข้อมูลที่เป็นแทนchar[]String

คำอธิบาย:

ลองที่นี่

s->{                           // Method with char-array parameter and String return-type
  String r="";                 //  Result-String
  for(int i=0,j=i,t,u;         //  Some temp integers and indices
      i<s.length;){            //  Loop over the String
    t=s[i++];                  //   Take the next character and save it in `t` (as integer)
                               //   and raise index `i` by 1
    if(t>32){                  //   If `t` is not a space:
     u=s[j++];                 //   Take `u` and raise index `j` by 1
     r+=                       //   Append the result-String with:
      (char)                   //    Integer to char conversion of:
       (t<65|t>90&t<97|t>122?  //     If `t` is not a letter:
        t                      //      Simply use `t` as is
       :u>64&u<91?             //     Else if `u` is uppercase:
        t&~32                  //      Take `t` as uppercase
       :u>96&u<123|u<33?       //     Else if `u` is lowercase or a space:
        t|32                   //      Take `t` as lowercase
       :                       //     Else:
        t);                    //      Take `t` as is
    }
  }                            //  End of loop
  return r;                    //  Return result-String
}                              // End of method

เสียงกระเพื่อมสามัญ 104 ไบต์

(defun f(s)(map'string(lambda(x y)(if(upper-case-p x)(char-upcase y)(char-downcase y)))s(remove #\  s)))

ลองออนไลน์!

สั้นผิดปกติสำหรับเสียงกระเพื่อมสามัญสำนึก!

รหัสตรงไปตรงมา:

(defun f (s)                     ; receive the string as parameter
  (map 'string                   ; map the following function of two arguments
       (lambda (x y)             ; x from the original string, y from the string with removed spaces
         (if (upper-case-p x)    ; if x is uppercase
             (char-upcase y)     ; get y uppercase
             (char-downcase y))) ; else get y lowercase
       s
       (remove #\  s)))

Java (OpenJDK 8) , 150 117 113 97 ไบต์

s->{for(int i=0,j=0,c;i<s.length;)if((c=s[i++]&95)>0)System.out.printf("%c",c^(s[j++]|~c/2)&32);}

ลองออนไลน์!

ขณะเล่นกอล์ฟมากขึ้นฉันมาที่ 102 ไบต์:

s->{for(int i=0,j=0,c;i<s.length;)if((c=s[i++]&95)>0)System.out.printf("%c",c<64?c|32:c|s[j]&32,j++);}

ลองออนไลน์!

แต่ฉันจำได้ว่าสิ่งนี้กำลังเริ่มดูเหมือนคำตอบของเดนนิสดังนั้นฉันก็เลยพูดถึงการทำเสียงวิ๊ย ๆ ของเขาและ ... ความมหัศจรรย์ก็เกิดขึ้น กำไรขนาดใหญ่จากพอร์ตคือการลบสาขาและการทำซ้ำภายในพวกเขา

Google ชีตขนาด 213 ไบต์

=ArrayFormula(JOIN("",IF(REGEXMATCH(MID(A1,ROW(OFFSET(A1,0,0,LEN(A1))),1),"[A-Z]"),MID(UPPER(SUBSTITUTE(A1," ","")),ROW(OFFSET(A1,0,0,LEN(A1))),1),MID(LOWER(SUBSTITUTE(A1," ","")),ROW(OFFSET(A1,0,0,LEN(A1))),1))))

อินพุตอยู่ในเซลล์A1และสูตรแยกย่อยดังนี้:

• ArrayFormula()ให้เราประเมินแต่ละเทอมROW()อย่างอิสระ
• JOIN() เชื่อมผลลัพธ์ที่เป็นอิสระเหล่านั้นทั้งหมดให้เป็นสตริงเดียว
• IF(REGEXMATCH(),UPPER(),LOWER() คือสิ่งที่ทำให้เป็นทางเลือกโดยใช้ตัวพิมพ์ใหญ่หรือตัวพิมพ์เล็กขึ้นอยู่กับว่าตัวเรือนอยู่ที่ตำแหน่งนั้นในอินพุต
• ROW(OFFSET())ส่งกลับอาร์เรย์ของค่า1เพื่อA1.lengthที่สามารถป้อนเข้าMID()ฟังก์ชั่นเพื่อให้เราสามารถประเมินตัวละครในการเปิดแต่ละ

ผลของกรณีทดสอบ: (อ่านได้ง่ายกว่าถ้าคุณคลิกเป็นรุ่นที่ใหญ่กว่า)

Ruby , 80 ไบต์

->a{n=a.downcase.delete' '
n.size.times{|i|(?A..?Z)===a[i]&&n[i]=n[i].upcase}
n}

ลองออนไลน์!

Perl, 92 ไบต์

$p[$i++]=$-[0]while s/[A-Z]/lc($&)/e;s/\s//g;for$c(@p){substr($_,$c,1)=~tr[a-z][A-Z]};print;

คำอธิบาย:

$p[$i++]=$-[0]while s/[A-Z]/lc($&)/e;   #get locations of caps into an array at the same time converting letters to lowercase

s/\s//g;   #delete all spaces

for$c(@p){substr($_,$c,1)=~tr[a-z][A-Z]};   #convert lowercase letters to uppercase where uppercase letters were present

print;   # print (of course) :)

C, 103 ไบต์

i,j,c;f(char*s){for(i=j=0;c=tolower(s[j++]);)c-32&&putchar(c-32*(s[i]>64&&s[i]<91&&c>96&&c<123))&&++i;}

ลองออนไลน์!

Python 3 , 125 , 124 ไบต์

lambda s:''.join(c.upper()if i in(s.find(q)for q in s if q.isupper())else c for i,c in enumerate(s.replace(' ','').lower()))

ลองออนไลน์!

Python 2, 106 105 ไบต์

s=input()
print''.join(map(lambda(c,u):[c.lower,c.upper][u](),zip(s.replace(' ',''),map(str.isupper,s))))

แก้ไข: บันทึกหนึ่งไบต์ผ่าน=>print ''.joinprint''.join

รูปแบบแลมบ์ดา 99 ไบต์

lambda s:''.join(map(lambda(c,u):[c.lower,c.upper][u](),zip(s.replace(' ',''),map(str.isupper,s))))

SCALA, 128 ตัวอักษร, 128 ไบต์

var l=s.toLowerCase().filter(x=>x!=32)
for(i<-0 to l.size-1){if(s(i).isUpper)l=l.substring(0,i)+l(i).toUpper+l.substring(i+1)}
l

ขอบคุณสำหรับความท้าทายนี้ ลองออนไลน์!

q / kdb +, 49 ไบต์

วิธีการแก้:

{@[a;(&)#:[a:lower x except" "]#x in .Q.A;upper]}

ตัวอย่าง:

q){@[a;(&)#:[a:lower x except" "]#x in .Q.A;upper]}"Hi! Test!"
"Hi!tEst!"

q){@[a;(&)#:[a:lower x except" "]#x in .Q.A;upper]}"A Quick Brown Fox Jumped Over The Lazy Dog"
"AqUickbrOwnfoxJumpEdovertHelazYdog"

q){@[a;(&)#:[a:lower x except" "]#x in .Q.A;upper]}"testing TESTing TeStING testing testing TESTING"
"testingtESTIngteStInGTEstingtestingtestiNG"

q){@[a;(&)#:[a:lower x except" "]#x in .Q.A;upper]}"TESTING... ... ... success! EUREKA???!!! maybe, don't, NOOOOO"
"TESTING.........success!eureKA???!!!maybe,don't,nooooo"

q){@[a;(&)#:[a:lower x except" "]#x in .Q.A;upper]}"Enter        PASSWORD ---------"
"Enterpassword---------"

q){@[a;(&)(#:[a:lower x except" "]#x)in .Q.A;upper]}"A a B b C c D d E e F f G g H h I i J j K k L l M m N n O o P p Q q R r S s T t U u V v W w X x Z z"
"AabbCcddEeffGghhIijjKkllMmnnOoppQqrrSsttUuvvWwxxZz"

q){@[a;(&)#:[a:lower x except" "]#x in .Q.A;upper]}"  TEST"
"teST"

คำอธิบาย:

ค้นหาดัชนีที่อินพุตเป็นตัวพิมพ์ใหญ่จากนั้นใช้ฟังก์ชันupperกับดัชนีเหล่านั้นในเวอร์ชันสตริงตัวพิมพ์เล็กที่เว้นวรรคและลบออก โปรดทราบว่าเราไม่สามารถใช้ฟังก์ชั่นที่เกินความยาวของสตริงได้ดังนั้นให้ใช้ take ( #) เพื่อตัดทอนสตริงอินพุตให้มีความยาวของตัวพิมพ์เล็กเวอร์ชันเว้นวรรค

{@[a;where count[a:lower x except " "]#x in .Q.A;upper]} / ungolfed
{                                                      } / lambda function
 @[ ;                                           ;     ]  / apply FUNC to VAR at INDICES: @[VAR;INDICES;FUNC]
                                                 upper   / uppercase, upper["abc"] -> "ABC"
                                       x in .Q.A         / boolean list where input is in uppercase alphabet ABC..XYZ
                                      #                  / take this many elements from list on the right (ie truncate)
           count[                    ]                   / returns length of the stuff inside the brackets, count["ABC"] -> 3                                        
                         x except " "                    / remove " " from string
                   lower                                 / lowercase, lower["ABC"] -> "abc"
                 a:                                      / save in variable a
     where                                               / returns indices where true where[101b] -> 0 2
   a                                                     / our lowercased, space-stripped input

โบนัส:

หลังจากอ่านคำตอบแล้วฉันคิดว่าฉันจะลองใช้วิธีแก้ปัญหาซ้ำแล้วซ้ำอีกจนฉันได้จัดการ 53 ไบต์เท่านั้น:

{a{$[y in .Q.A;upper x;x]}'#:[a:lower x except" "]#x}

Swift 3.0, 199 ไบต์

var s="AS Ff",i=[String](),p=[Int](),j=0;for c in s.characters{if c>="A"&&c<="Z"{p.append(j)};if c != " "{i.append(String(c).lowercased())};j=j+1};for c in p{i[c]=i[c].uppercased()};print(i.joined())

ลองออนไลน์!

Perl 5 , 40 ไบต์

37 ไบต์ของรหัส + -Fธง (โปรดทราบว่าใน Perl รุ่นเก่าคุณอาจต้องเพิ่ม-anค่าสถานะ)

print$F[$i++]=~/[A-Z]/?uc:lc for/\S/g

ลองออนไลน์!

คำอธิบาย:
ขอขอบคุณที่-F, @Fมีรายชื่อของตัวละครของท่านทุกคน
for/\S/gวนซ้ำทุกอักขระที่ไม่ใช่ช่องว่างของอินพุต เราใช้$iในการนับว่าเราอยู่ที่ไหนซ้ำ หาก$F[$i++]เป็นตัวพิมพ์ใหญ่ ( /[A-Z]/) เราจะพิมพ์อักขระปัจจุบันเป็นตัวพิมพ์ใหญ่ ( uc) มิฉะนั้นเราจะพิมพ์ตัวพิมพ์เล็ก ( lc) ทราบว่าucและlcส่งคืนอาร์กิวเมนต์ของพวกเขาไม่เปลี่ยนแปลงหากไม่ใช่ตัวอักษร

รุ่นก่อนหน้า (ตีกอล์ฟน้อยกว่า: 47 ไบต์):

 s/ //g;s%.%$_=$&;$F[$i++]=~/[A-Z]/?uc:lc%ge

ลองออนไลน์!