Inspiré par ce défi (ou, plus précisément, en le mal interprété), j'ai trouvé le défi suivant:

Étant donné une chaîne d'entrée S, inversez l'ordre de tous les caractères majuscules et de tous les caractères minuscules. Laissez tous les caractères non-lettre en place. Par exemple:

Notez que la majuscule W(la première lettre majuscule) a été remplacée par H(la dernière). Il en va de même pour les lettres minuscules: 'd' (le premier) est échangé avec e(le dernier), l(le deuxième) est remplacé par l(pen-ultimate) ... Tous les caractères non-lettre sont laissés en place.

Contribution

• L'entrée est une chaîne contenant uniquement des caractères ASCII compris entre 32 et 126.
• La saisie est garantie sur au moins 1 caractère et ne dépassera pas la limite de votre langue.

Sortie

• Cette même chaîne, avec les caractères échangés comme décrit.

Règles supplémentaires

• Les failles standard sont interdites
• La réponse doit être un programme complet ou une fonction, pas un extrait de code ou une entrée REPL.
• code-golf , réponse la plus courte en octets gagne.

Cas de test

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 octets

2:"t@Y2myy)Pw(

Essayez-le sur MATL Online

Explication

        % 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

Rétine , 19 octets

Retina n'a pas de moyen direct pour inverser une chaîne, mais nous pouvons le faire en exploitant l'étape de tri:

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

Trier ( O), en les lisant sous forme de nombres ( #), puis inverser l'ordre ( ^), de toutes les chaînes correspondant à l'expression régulière donnée (lettres minuscules pour la première ligne et lettres majuscules pour la seconde).

Cela fonctionne parce que lorsque nous essayons de lire des chaînes sans caractères numériques comme des nombres, elles sont traitées comme 0si tous les caractères ont la même valeur pour le tri. Étant donné que le tri est stable, ils sont laissés dans le même ordre et leur inversion renvoie la chaîne d'origine inversée.

Essayez-le en ligne!

Perl , 45 octets

44 octets de code + -pindicateur.

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

Essayez-le en ligne!

Classes de caractères Unicode \p{Lu}et \p{Ll}correspond respectivement aux lettres majuscules et minuscules.
Ainsi /\p{L$c}/, la liste de toutes les lettres majuscules (ou minuscules) sera retournée (et stockée à l'intérieur @T).
Et puis, l'expression régulière s/\p{$c}/pop@T/geremplacera chaque lettre (majuscule puis minuscule) par la dernière lettre de @Ttout en la supprimant @T.

JavaScript (ES6), 74 73 71 70 octets

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>

Edit: 1 octet enregistré grâce à @Arnauld.

JavaScript (ES6), 92 octets

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

Il a obtenu d'être un moyen de tirer profit de la similitude entre les expressions rationnelles ...

Extrait de test

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 octets

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

Comment ça marche

1. my @a=.comb;
   Divisez la chaîne en caractères et stockez-les dans un tableau.

2. for /<:Lu>/,/<:Ll>/
   Pour deux expressions rationnelles correspondant respectivement aux lettres majuscules et minuscules ...

   • @(grep $_,@a)
     Obtenez une tranche de toutes les entrées de tableau correspondant à l'expression régulière.

   • .&{@$_=[R,] $_}
     Attribuez-lui l'inverse de la tranche.

3. [~] @a
   Concaténez le tableau modifié pour former à nouveau une chaîne et renvoyez-le.

-6 octets en volant l'idée d'utiliser des classes Unicode au lieu de plages de caractères, dans la solution de @ Dada.

Gelée , 14 octets

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

Essayez-le en ligne!

Comment ça marche

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.

Utilitaires Bash + Unix, 122 121 octets

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]

Essayez-le en ligne!

Pas vraiment très court; peut-être que quelqu'un peut jouer au golf plus loin.

Entrée sur stdin, sortie sur stdout.

Cela fonctionnera correctement sur les entrées de moins de 200 caractères.

(En fait, il gère correctement toute chaîne contenant moins de 200 lettres minuscules et moins de 200 lettres majuscules.)

Si vous augmentez le 99 dans le code à 102 (au prix d'un octet supplémentaire), il traitera les chaînes jusqu'à 205 caractères.

Cependant, vous ne pouvez pas augmenter le 99 dans le code au-delà de 102, car vous dépasserez alors la longueur d'argument maximale de sed.

Voici une version sans limitation de taille d'entrée particulière, mais le nombre est un peu plus long, 137 octets. (Cette version plus longue écrit dans un fichier auxiliaire nommé 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

Essais:

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 octets

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

Essayez-le en ligne!

Java (OpenJDK 8) , 271 octets

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)

Essayez-le en ligne!

R , 107 octets

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="")

Adapté de ma réponse au défi lié. C'est beaucoup plus facile que de simplement échanger des paires. Je me demande si je pourrais obtenir moins de 100 avec certains golfs ...

Essayez-le en ligne!