Мета полягає в тому, щоб просто обернути рядок одним витком:
Тримайте великі літери в тих же місцях.

Приклад Введення 1: Hello, Midnightas
Приклад Вихід 1:SathginDim ,olleh

Приклад вводу 2: .Q
Приклад виходу 2:q.

Правила :

• Вихід до STDOUT, вхід від STDIN
• Переможець буде обраний 13 липня GMT + 3 12:00 (один тиждень)
• Вхід може складатися лише з символів ASCII, що полегшує програми, які не використовують кодування, що містить символи, що не належать до ASCII.
• Будь-який розділовий знак, який закінчується в позиції великої літери, повинен ігноруватися.

TCC - 4 байти

<>ci

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

Пояснення:

     - output is implicit in TCC
<>   - reverse string
  c  - preserve capitalization
   i - get input

Пітон, 71 байт

lambda s:''.join((z*2).title()[c.isupper()-1]for c,z in zip(s,s[::-1]))

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

-3 байти від Рууда, плюс натхнення ще на 2.

Ще 4 байти від FryAmTheEggman

Python 2, 73 байти

Оскільки правила вказують вхід є ascii:

lambda s:''.join([z.lower,z.upper]['@'<c<'[']()for c,z in zip(s,s[::-1]))

Хоча вся заслуга в @Mego, але я не мав репутації просто коментувати його відповідь.

Perl, 31 + 2 ( -lp) = 33 байти

Це рішення походить від @Ton Hospel (на 13 байт коротше шахти).

s%.%(lc$&gt$&?u:l)."c chop"%eeg

Але вам знадобиться lі pвмикати. Щоб запустити його:

perl -lpe 's%.%(lc$&gt$&?u:l)."c chop"%eeg'

Pyth, 13 11 10 9 байт

Дякуємо @FryAmTheEggman за те, що він нагадав мені Vі @LeakyNun для іншого байта.

srV_Qm!/G

Спробуйте в Інтернеті! _{тепер на мобільному, трохи поновлюючи посилання}

Пітон, 66 байт

f=lambda s,i=0:s[i:]and(s[~i]*2).title()[~('@'<s[i]<'[')]+f(s,i+1)

Повторюється через покажчики i, приймаючи персонажа s[~i]ззаду та корпусу s[i]спереду. Будучи капіталом перевіряється як лежачий у суміжних межах @ABC...XYZ[. Заслуга FryAmTheEggman від (_*2).title()хитрості.

Сітківка , 75 67 65 байт

Кількість байтів передбачає кодування ISO 8859-1.

$
±·$`
O$^`\G[^·]

s{T`L`l`±.
T01`l`L`±.*·[A-Z]
±·

±(.)
$1±
·.
·

Спробуйте в Інтернеті! (Перший рядок включає тестовий набір з декількома тестовими випадками, відокремленими лінійкою передачі.

JavaScript (ES6), 95 83 байти

s=>[...t=s.toLowerCase()].reverse().map((c,i)=>s[i]==t[i]?c:c.toUpperCase()).join``

Редагувати. Збережено величезні 12 байт завдяки @ edc65.

Пайк, 11 10 9 байт

_FQo@UhAl

Спробуйте тут!

_         -   reversed(input)
 F        -  for i in ^
   o      -      o+=1
  Q @     -     input[^]
     Uh   -    ^.is_upper()+1
       Al -   [len, str.lower, str.upper, ...][^](i)
          - "".join(^)

05AB1E , 19 16 15 13 байт

Дякуємо Еміньї за збереження 3-х байт!

Напевно, поб'ю Джеллі ... Код:

Âuvy¹Nè.lil}?

Використовує кодування CP-1252 . Спробуйте в Інтернеті! .

MATL , 13 байт

PktGtk<)Xk5M(

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

Pk      % Implicit inpput. Flip, lowercase
t       % Duplicate
Gtk<    % Logical index of uppercase letters in the input string
)       % Get letters at those positions in the flipped string
Xk      % Make them uppercase
5M(     % Assign them to the indicated positions. Implicit display

J , 30 байт

(={"_1 toupper@]|.@,.])tolower

Не підтримує не-ASCII

Брахілог , 28 байт

@lr:?z:1ac.
h@u.,@A@um~t?|h.

Пояснення

• Основний присудок:

  @lr                 Reverse the lowercase version of the Input
     :?z              Zip that reversed string with the Input
        :1a           Apply predicate 1 to each couple [char i of reverse, char i of Input]
           c.         Output is the concatenation of the result
  

• Предикат 1:

  h@u.,               Output is the uppercase version of the first char of Input
       @A@um~t?       The second char of Input is an uppercase letter
               |      Or
                h.    Output is the first char of Input
  

TSQL, 175 байт

Гольф:

DECLARE @ varchar(99)='Hello, Midnightas'

,@o varchar(99)='',@i INT=0WHILE @i<LEN(@)SELECT
@i+=1,@o+=IIF(ascii(x)=ascii(lower(x)),lower(y),upper(y))FROM(SELECT
SUBSTRING(@,@i+1,1)x,SUBSTRING(@,len(@)-@i,1)y)z
PRINT @o

Безумовно

DECLARE @ varchar(99)='Hello, Midnightas'

,@o varchar(99)=''
,@i INT=0

WHILE @i<LEN(@)
  SELECT @i+=1,@o+=IIF(ascii(x)=ascii(lower(x)),lower(y),upper(y))
  FROM
    (SELECT SUBSTRING(@,@i+1,1)x,SUBSTRING(@,len(@)-@i,1)y)z

PRINT @o

Скрипка

Власне, 25 байт

;`úíuY"ùû"E£`M@ùRZ`i@ƒ`MΣ

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

Пояснення:

;`úíuY"ùû"E£`M@ùRZ`i@ƒ`MΣ
;                          create a copy of the input
 `úíuY"ùû"E£`M             for each character in input:
  úíuY                       0-based index in lowercase English letters, or -1 if not found, increment, boolean negate (1 if uppercase else 0)
      "ùû"E£                 `û` if the character is lowercase else `ù` (str.lower vs str.upper)
              @ùRZ         make the other copy of the input lowercase, reverse it, and zip it with the map result
                  `i@ƒ`M   for each (string, function) pair:
                   i@ƒ       flatten, swap, apply (apply the function to the string)
                        Σ  concatenate the strings

Haskell, 83 80 75 71 байт

Найпростіший спосіб, про який я міг придумати.

import Data.Char
f a|isUpper a=toUpper|1>0=toLower
zipWith f<*>reverse

PowerShell, 154 , 152 , 99 , 86 байт

Дякую @TimmyD за те, що врятував мені колосальних 47 байт (я також врятував додаткові 6)

Дякуємо @TessellatingHeckler за збереження додаткових 13 байт.

Останні:

param($a)-join($a[$a.length..0]|%{("$_".ToLower(),"$_".ToUpper())[$a[$i++]-in65..90]})

Оригінал:

param($a);$x=0;(($a[-1..-$a.length])|%{$_=$_.tostring().tolower();if([regex]::matches($a,"[A-Z]").index-contains$x){$_.toupper()}else{$_};$x++})-join''

Нормальне форматування:

Останній (найкраще виглядає як два рядки на мою думку):

param($a)
-join($a[$a.length..0] | %{("$_".ToLower(), "$_".ToUpper())[$a[$i++] -in 65..90]})

Пояснення:

param($a)-join($a[$a.length..0]|%{("$_".ToLower(),"$_".ToUpper())[$a[$i++]-in65..90]})
param($a)
# Sets the first passed parameter to variable $a
         -join(                                                                      )
# Converts a char array to a string
               $a[$a.length..0]
# Reverses $a as a char array
                               |%{                                                  }
# Shorthand pipe to foreach loop
                                  ("$_".ToLower(),"$_".ToUpper())
# Creates an array of the looped char in lower and upper cases
                                                                 [$a[$i++]-in65..90]
# Resolves to 1 if the current index of $a is upper, which would output "$_".ToUpper() which is index 1 of the previous array

Оригінал:

param($a)
$x = 0
(($a[-1..-$a.length]) | %{
    $_ = $_.tostring().tolower()
    if([regex]::matches($a,"[A-Z]").index -contains $x){
            $_.toupper()
        }else{
            $_
        }
        $x++
    }
) -join ''

Вперше плакат тут був мотивований, тому що я рідко бачу PowerShell, але на 154 152 байти на цьому ... Я можу зрозуміти, чому! Будь-які пропозиції були вдячні.

Я дізнався, що я повинен повністю змінити свій спосіб мислення на гольф у коді та його задоволенні!

Діалог APL , 12 байт

⌽f¨⍨⊢≠f←819⌶

819⌶ - це функція складання корпусу

f←оскільки його назва довга, ми присвоюємо її f

⊢≠f Булевий, де текст відрізняється від нижнього регістра

f¨⍨ використовуйте це (1 означає великі регістри, 0 означає малі літери) для складання кожної літери ...

⌽ ... переверненого тексту

Обробляє non-ASCII відповідно до правил Консорціуму Unicode.

CJam, 22 байти

q_W%.{el\'[,65>&{eu}&}

Перевірте це тут.

Ракетка, 146 байт

(λ(s)(build-string(string-length s)(λ(n)((if(char-upper-case?(string-ref s n))char-upcase char-downcase)(list-ref(reverse(string->list s))n)))))

Ракетка погана у цій цілій "гольфній" речі.

Потискайте плечима Як завжди, будь-яка допомога щодо скорочення цього буде дуже вдячна.

Джольф, 21 байт

Спробуйте тут!

Μid?&γ._pXiS=pxHHpxγγ

Пояснення

Μid?&γ._pXiS=pxHHpxγγ
Μid                   (Μ)ap (i)nput with (d)is fucntion:
   ?        =pxHH     (H is current element) if H = lowercase(H)
    &γ._pXiS          and set γ to the uppercase entity in the reversed string
                 pxγ  lowercase γ
                    γ else, return γ

Perl 6 , 29 байт

$_=get;put .flip.samecase($_)

C #, 86 85 байт

s=>string.Concat(s.Reverse().Select((c,i)=>s[i]>96?char.ToLower(c):char.ToUpper(c)));

AC # лямбда, де вхід і вихід - це рядок. Ви можете спробувати .NetFiddle .

Я з усіх сил , щоб зрозуміти , чому я не можу домогтися , щоб перетворити char.ToLower(c)в c+32. Я сподіваюся це виправити!

12 байтів, збережених завдяки @PeterTaylor ( c|32додати 32 до значення ascii cта c&~32до конспекту 32). Результатом було б 72 байти (але може вийти з ладу на не альфа-графіку).

s=>string.Join("",s.Reverse().Select((c,i)=>(char)(s[i]>96?c|32:c&~32)));

PHP, 128 байт

$s=$argv[1];$l=strrev($s);for($i=0;$i<strlen($s);++$i){echo(strtolower($s[$i])!==$s[$i]?strtoupper($l[$i]):strtolower($l[$i]));}

Я можу спробувати оптимізувати це далі, але я просто залишу це як зараз.

Октава, 51 50 байт

@(s)merge(isupper(s),b=flip(toupper(s)),tolower(b))

@(s)merge(s>64&s<91,b=flip(toupper(s)),tolower(b))

VIM, 46 байт

Це було б три байти, g~Gякби нам не потрібно було читати зі stdin чи писати до stdout, але добре, що ...

vim -es '+normal! g~G' '+%print|q!' /dev/stdin

Щоб перевірити це, запустіть

echo "testString" | vim -es '+normal! g~G' '+%print|q!' /dev/stdin

Це моє перше подання тут, я не впевнений, чи прийнятний такий вид подання.

Javascript (за допомогою зовнішньої бібліотеки) (224 байти)

(s)=>{t=_.From(s);var cnt=t.Count();var caps=t.Select(x=>{return x.toUpperCase()===x&&x.toLowerCase()!==x}).ToArray(),i=-1;return t.AggregateRight((a,b)=>{i++;var c=caps[i];return c?a+b.toUpperCase():a+b.toLowerCase()},"");}

Відмова від відповідальності: Використовуючи бібліотеку, яку я написав, щоб довести LINQ C # до Javascript

Sed, 113 + 1 = 114 байт

Чому? Тому що цікаво використовувати неправильний інструмент для виконання справ: P

Використання: запустіть sed -rf file, введіть текст і натисніть Ctrl+ D(надіслати EOF).

Гольф:

s/[A-Z]/\a\l&/g;s/^.*$/\f&\v/;:x;s/\f\a/\a\f/;s/\a\v/\v\a/;s/\f(.)(.*)(.)\v/\3\f\2\v\1/;tx;s/\f|\v//g;s/\a./\U&/g

Безголівки:

s/[A-Z]/\a\l&/g #Prepend all upper-case letters with a 
                #BEL ASCII character and make them lowercase
s/^.*$/\f&\v/   #Wrap text between a from feed (\f) and a vertical tab (\v)
                #These are used as markers

:x #Define a label named x

s/\f\a/\a\f/;s/\a\v/\v\a/ #Move BEL characters outside of the boundary, so they're not moved later
s/\f(.)(.*)(.)\v/\3\2\1/  #This part does the switching itself
                          #It grabs a character preceded by a form feed and another 
                          #one followed by a vertical tab and swaps them, while keeping the text in-between
                          #and replaces the marker \f and \v

tx             #Conditional jump (t) to label x
               #Jumps to the label x if the last substitution (s command) was successful 
s/\f|\v//g     #Delete markers
s/\a(.)/\u\1/g #Make letters preceded by a BEL upper-case

Java 7, 221 217 180 байт

void c(char[]s){int x=0,y=s.length-1;for(char t;x<y;s[x]=s(t,s[y]),s[y]=s(s[y],t),x++,y--)t=s[x];}char s(char a,char b){return(char)(64<a&a<91?96<b&b<123?b-32:b:64<b&b<91?b+32:b);}

Навантаження байтів збережено завдяки підходу @LeakuNun .

Невикористані та тестові справи:

Спробуйте тут.

class Main{
  void c(char[] s){
    int x = 0,
        y = s.length-1;
    for(char t; x < y; s[x] = s(t, s[y]),
                       s[y] = s(s[y], t),
                       x++,
                       y--){
       t = s[x];
    }
  }

  char s(char a, char b){
    return (char)(64 < a & a < 91
                    ? 96 < b & b < 123
                        ? b-32
                        : b
                    : 64 < b & b < 91
                        ? b+32
                        : b);
  }

  public static void main(String[] a){
    print("Hello, Midnightas");
    print("TEST");
    print("test");
    print("Test");
    print(".,..,,!@");
    print("ABCDefgHijklMNOPqrsTuVWxyz");
    print("AbCdEfGHIJKlmnop123");
  }

  static void print(String s){
    char[] t = s.toCharArray();
    c(t);
    System.out.println(t);
  }
}

Вихід:

SathginDim ,olleh
q.
TSET
tset
Tset
@!,,..,.
ZYXWvutSrqpoNMLKjihGfEDcba
321pOnMLKJIhgfedcba

С

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

int main(int argc, char *argv[])
{
  char *a,*b,*c;

  a=c=strdup(argv[1]);
  b=&argv[1][strlen(a)-1];
  for(;*a;a++,b--){
    *a=(*a>='A'&&*a<='Z')?((*b>='a'&&*b<='z')?*b-32:*b):((*b>='A'&&*b<='Z')?*b+32:*b);
  }
  puts(c);
  free(c);
  return 0;
}