Натхненний цим викликом (або, точніше, неправильним його прочитанням), я зіткнувся з таким завданням:

З огляду на рядок введення S, поверніть порядок усіх великих літер та всіх малих символів. Залиште всі небуквені символи на місці. Наприклад:

Зауважте, що велика літера W(перша велика літера) була замінена на H(остання). Те саме стосується і малих літер: 'd' (перша) замінюється на ( eостання), l(друга) замінюється на l(ручка-кінцева) ... Усі символи, що не належать до літер, залишаються на місці.

Вхідні дані

• Введення - це рядок із лише символами ASCII в діапазоні 32-126.
• Гарантоване введення має бути принаймні 1 символом, і воно не перевищує ліміт вашої мови.

Вихідні дані

• Той самий рядок, з символами поміняний, як описано.

Додаткові правила

• Стандартні лазівки заборонені
• Відповідь має бути повною програмою або функцією, а не фрагментом чи запитом REPL.
• код-гольф , найкоротша відповідь у байтах.

Тестові справи

A
A

Ok
Ok

OK
KO

Hello, World!
Wdlro, Holle!

0123456789
0123456789

The quick brown Fox jumps over the lazy doge
Feg odyza lehtr Tev ospmu jxon wor bkci uqeh

odd
ddo

racecar
racecar

EtOn Em OsN R AaToNsIsIhT!!1!
ThIs Is NoT A RaNsOmEnOtE!!1!

MATL , 14 байт

2:"t@Y2myy)Pw(

Спробуйте в MATL Online

Пояснення

        % Impicitly grab input as a string
2:      % Push the array [1, 2] to the stack
"       % For each value in this array
  t     % Duplicate the top element of the stack (S)
  @     % Get the current loop index
  Y2    % Load the predefined literal 1Y2 ('ABC...Z') on the first loop
        % and the predefined literal 2Y2 ('abc...z') on the second loop (M)
  m     % Create a logical array the length of S that is TRUE when a character is in the
        % array M and FALSE otherwise (B)
  yy    % Make a copy of both S and B
  )     % Grab just the letters of S that were in M using B as an index
  P     % Reverse this array
  w     % Flip the top two stack elements
  (     % Assign them back into the string
        % Implicit end of for loop and implicit display

Сітківка , 19 байт

У сітківки немає прямого способу повернути рядок, але ми можемо це зробити, використовуючи етап сортування:

O^#`[a-z]
O^#`[A-Z]

Сортуйте ( O), читаючи їх як числа ( #), а потім оберніть впорядкування ( ^) всіх рядків, що відповідають заданому регулярному вираженню (малі літери першого рядка, а великі літери другого).

Це працює, тому що коли ми намагаємось читати рядки без числових символів як числа, вони вважаються такими 0, тому всі символи мають однакове значення для сортування. Оскільки сортування стабільне, вони залишаються в тому самому порядку, а їхнє повернення повертає вихідний рядок, перевернутий.

Спробуйте в Інтернеті!

Perl , 45 байт

44 байти коду + -pпрапор.

for$c(u,l){@T=/\p{L$c}/g;s/\p{L$c}/pop@T/ge}

Спробуйте в Інтернеті!

Unicode символи класи \p{Lu}та \p{Ll}збіги відповідно великих і малих літер.
Так /\p{L$c}/повернемо список усіх верхніх (або нижніх) літер (і збережемо всередині @T).
І тоді, регулярний вимір s/\p{$c}/pop@T/geзамінить кожну (верхню, а потім малу) літеру останньою літерою @T, видаляючи її з @T.

JavaScript (ES6), 74 73 71 70 байт

f=
s=>(g=r=>s=s.replace(r,_=>a.pop(),a=s.match(r)))(/[A-Z]/g,g(/[a-z]/g))

<input oninput=o.textContent=f(this.value)><pre id=o>

Редагувати: Збережено 1 байт завдяки @Arnauld.

JavaScript (ES6), 92 байти

s=>(F=(r,s)=>s.replace(r,([x],a,y)=>y+F(r,a)+x))(/[a-z](.*)([a-z])/,F(/[A-Z](.*)([A-Z])/,s))

Там вже є повинен бути спосіб , щоб скористатися схожістю між регулярними виразами ...

Фрагмент тесту

let f =
s=>(F=(r,s)=>s.replace(r,([x],a,y)=>y+F(r,a)+x))(/[a-z](.*)([a-z])/,F(/[A-Z](.*)([A-Z])/,s))

<input style="width:500px" value="Wdlro, Holle!" oninput="O.value=f(this.value)"><br>
<input style="width:500px" value="Hello, World!" id=O disabled>

Perl 6 , 75 69 байт

{my @a=.comb;@(grep $_,@a).&{@$_=[R,] $_} for /<:Lu>/,/<:Ll>/;[~] @a}

Як це працює

1. my @a=.comb;
   Розбийте рядок на символи та збережіть їх у масиві.

2. for /<:Lu>/,/<:Ll>/
   Для двох регексів, що відповідають великим і малим літерам, відповідно ...

   • @(grep $_,@a)
     Отримайте фрагмент всіх записів масиву, який відповідає регулярному вираженню.

   • .&{@$_=[R,] $_}
     Призначте реверс фрагмента до себе.

3. [~] @a
   Об'єднайте модифікований масив, щоб знову сформувати рядок, і поверніть його.

-6 байт шляхом крадіжки ідеї використовувати класи Unicode замість символьних діапазонів, з рішення @ Dada.

Желе , 14 байт

nŒlT,Ṛ$yJịŒsµ⁺

Спробуйте в Інтернеті!

Як це працює

nŒlT,Ṛ$yJịŒsµ⁺  Main link. Argument: s (string)

 Œl             Convert to lowercase.
n               Test for inequality.
   T            Truth; yield all indices of 1's.
    ,Ṛ$         Pair with its reverse. Yields [A, B] (pair of lists).
        J       Indices; yield I := [1, ..., len(s)].
       y        Translate; replace the integers of I that occur in A with the
                corresponding integers in B.
          Œs    Swapcase; yield s with swapped case.
         ị      Use the translated index list to index into s with swapped case.
            µ   Combine all links to the left into a chain.
             ⁺   Duplicate the chain, executing it twice.

Утиліти Bash + Unix, 122 121 байт

f()(p=[^$1*
v="\)\([$1\)\("
for((n=99;n;n--)){
q="$q;s/^\($p$v.*$v$p\)$/\1\4\3\2\5/"
p=[^$1*[$1$p
}
sed $q)
f a-z]|f A-Z]

Спробуйте в Інтернеті!

Не дуже короткий; можливо, хтось може продовжити гольф далі.

Вхід на stdin, вихід на stdout.

Це буде правильно працювати на введеннях менше 200 символів.

(Насправді він правильно обробляє будь-який рядок із меншою кількістю 200 малих літер та менше 200 великих літер.)

Якщо ви збільшите 99 у коді до 102 (ціною одного додаткового байта), він буде обробляти рядки до 205 символів.

Однак ви не можете збільшити 99 у коді понад 102, оскільки тоді ви перевищите максимальну довжину аргументу sed.

Ось версія без особливих обмежень розміру вводу, але кількість трохи довше, 137 байт. (Ця довша версія записується у допоміжний файл під назвою t.)

f()(p=[^$1*
v="\)\([$1\)\("
for((n=`wc -c<t`;n;n--)){
sed -i "s/^\($p$v.*$v$p\)$/\1\4\3\2\5/" t
p=[^$1*[$1$p
})
cat>t
f a-z]
f A-Z]
cat t

Випробування:

for x in A Ok OK 'Hello, World!' 0123456789 'The quick brown Fox jumps over the lazy doge' odd racecar 'EtOn Em OsN R AaToNsIsIhT!!1!'
  do
    echo "$x"
    ./swapping3 <<<"$x"
    echo
  done

A
A

Ok
Ok

OK
KO

Hello, World!
Wdlro, Holle!

0123456789
0123456789

The quick brown Fox jumps over the lazy doge
Feg odyza lehtr Tev ospmu jxon wor bkci uqeh

odd
ddo

racecar
racecar

EtOn Em OsN R AaToNsIsIhT!!1!
ThIs Is NoT A RaNsOmEnOtE!!1!

Python 2 , 115 байт

s=input();u=str.isupper
exec"r='';i=0\nfor c in s:r+=c[u(c):]or filter(u,s)[~i];i+=u(c)\ns=r.swapcase();"*2
print s

Спробуйте в Інтернеті!

Java (OpenJDK 8) , 271 байт

s->new String(new Error(){char[]o=s.toCharArray();char c;int b;{while(b++<2)for(int l=0,r=o.length;l<r;l++){for(--r;r>l&&f(r);r--);for(;l<r&&f(l);l++);if(l<r){o[l]=o[r];o[r]=c;}}}boolean f(int i){c=o[i];return b>1?!Character.isUpperCase(c):!Character.isLowerCase(c);}}.o)

Спробуйте в Інтернеті!

R , 107 байт

u=utf8ToInt(scan(,''));for(i in c(65,97)){l=which(u%in%i:(i+25));u[l]=u[rev(l)]};cat(intToUtf8(u,T),sep="")

Адаптований з моєї відповіді на пов'язаний виклик. Це значно простіше, ніж просто поміняти пари. Цікаво, чи зможу я отримати суб-100 з деякими гольфами ...

Спробуйте в Інтернеті!