Tujuannya di sini adalah membalikkan string, dengan satu putaran:
Simpan huruf besar di tempat yang sama.

Contoh Input 1: Hello, Midnightas
Contoh Output 1:SathginDim ,olleh

Contoh Input 2: .Q
Keluaran Exmaple 2:q.

Aturan :

• Output ke STDOUT, masukan dari STDIN
• Pemenang akan dipilih 13 Juli pada GMT + 3 12:00 (Satu minggu)
• Input hanya dapat terdiri dari simbol ASCII, membuatnya lebih mudah untuk program yang tidak menggunakan pengkodean apa pun yang berisi karakter non-ASCII.
• Tanda baca apa pun yang berakhir pada posisi di mana ada huruf besar harus diabaikan.

TCC - 4 byte

<>ci

Cobalah online!

Penjelasan:

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

Python, 71 byte

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

Cobalah online

-3 byte dari Ruud, ditambah inspirasi untuk 2 lebih.

-4 byte lagi dari FryAmTheEggman

Python 2, 73 byte

Karena aturan menentukan inputnya adalah ascii:

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

Semua kredit jatuh ke @Mego, tapi saya tidak punya reputasi untuk hanya mengomentari jawabannya.

Perl, 31 + 2 ( -lp) = 33 byte

Solusi ini dari @Ton Hospel (13 byte lebih pendek dari milik saya).

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

Tetapi Anda harus ldan paktif. Untuk menjalankannya:

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

Pyth, 13 11 10 9 byte

Terima kasih kepada @FryAmTheEggman untuk mengingatkan saya tentang Vdan @LeakyNun untuk byte lain.

srV_Qm!/G

Cobalah online! _{sekarang di ponsel, memperbarui tautan sedikit}

Python, 66 byte

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

Berulang melalui indeks i, mengambil karakter s[~i]dari belakang dan kasing s[i]dari depan. Menjadi modal diperiksa sebagai berbohong dalam kisaran yang berdekatan @ABC...XYZ[. Penghargaan untuk FryAmTheEggman dari (_*2).title()triknya.

Retina , 75 67 65 byte

Hitungan byte mengasumsikan penyandian ISO 8859-1.

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

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

±(.)
$1±
·.
·

Cobalah online! (Baris pertama memungkinkan suite uji dengan beberapa test case yang dipisahkan linefeed.)

JavaScript (ES6), 95 83 byte

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

Sunting: Menyimpan 12 byte besar berkat @ edc65.

Pyke, 11 10 9 byte

_FQo@UhAl

Coba di sini!

_         -   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 byte

Terima kasih kepada Emigna karena menyimpan 3 byte!

Mungkin akan dikalahkan oleh Jelly ... Kode:

Âuvy¹Nè.lil}?

Menggunakan pengkodean CP-1252 . Cobalah online! .

MATL , 13 byte

PktGtk<)Xk5M(

Cobalah online!

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 byte

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

Tidak mendukung non-ASCII

Brachylog , 28 byte

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

Penjelasan

• Predikat Utama:

  @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
  

• Predikat 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 byte

Golf:

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

Tidak disatukan

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

Biola

Sebenarnya, 25 byte

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

Cobalah online!

Penjelasan:

;`úí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 byte

Cara paling mudah yang bisa saya pikirkan.

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

PowerShell, 154 , 152 , 99 , 86 byte

Terima kasih @TimmyD karena telah menyelamatkan saya 47 byte kekalahan (saya juga menyimpan 6 tambahan)

Terima kasih @TessellatingHeckler karena telah menyimpan 13 byte tambahan.

Terbaru:

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

Asli:

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

Pemformatan normal:

Terbaru (terlihat sebagai dua baris menurut saya):

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

Penjelasan:

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

Asli:

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

Poster pertama kali di sini, termotivasi karena saya jarang melihat PowerShell, tetapi pada 154 152 byte yang satu ini ... Saya bisa melihat mengapa!Ada saran yang dihargai.

Saya telah belajar bahwa saya harus benar-benar mengubah cara berpikir saya menjadi golf dalam kode dan kesenangannya!

Dyalog APL , 12 byte

⌽f¨⍨⊢≠f←819⌶

819⌶ adalah fungsi lipat case

f←karena namanya panjang, kami menugaskannya ke f

⊢≠f Boolean di mana teks berbeda dari teks berhuruf rendah

f¨⍨ gunakan itu (1 berarti huruf besar, 0 berarti huruf kecil) untuk melipat setiap huruf ...

⌽ ... dari teks yang terbalik

Menangani non-ASCII sesuai dengan aturan Konsorsium Unicode.

CJam, 22 byte

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

Uji di sini.

Racket, 146 byte

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

Racket buruk untuk semua hal "golf" ini.

Mengangkat bahu Seperti biasa, bantuan apa pun untuk mempersingkat ini akan sangat dihargai.

Jolf, 21 byte

Coba di sini!

Μid?&γ._pXiS=pxHHpxγγ

Penjelasan

Μ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 byte

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

C #, 86 85 byte

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

AC # lambda di mana input dan output adalah string. Anda dapat mencobanya di .NetFiddle .

Aku berjuang untuk memahami mengapa aku tidak bisa mencapai untuk mengkonversi char.ToLower(c)kec+32 . Saya berharap memperbaikinya!

12 byte disimpan berkat @PeterTaylor ( c|32untuk menambahkan 32 ke nilai ascii cdan c&~32untuk mengurangi 32). Hasilnya akan menjadi 72 byte (tetapi bisa gagal pada char non alpha).

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

PHP, 128 byte

$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]));}

Saya mungkin mencoba untuk mengoptimalkan ini lebih jauh tetapi saya hanya akan membiarkannya seperti sekarang.

Oktaf, 51 50 byte

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

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

VIM, 46 byte

Ini akan menjadi tiga byte g~Gjika kita tidak perlu membaca dari stdin atau menulis ke stdout, tapi oh well ...

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

Untuk menguji ini, jalankan

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

Ini adalah pengiriman pertama saya di sini, tidak yakin apakah pengiriman semacam ini dapat diterima.

Javascript (menggunakan perpustakaan eksternal) (224 byte)

(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()},"");}

Penafian: Menggunakan perpustakaan yang saya tulis untuk membawa CQ's LINQ ke Javascript

Sed, 113 + 1 = 114 byte

Mengapa? Karena menyenangkan menggunakan yang salah alat yang untuk melakukan sesuatu: P

Penggunaan: Jalankan sed -rf file, masukkan teks dan tekan Ctrl+D (kirim EOF).

Golf:

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

Tidak Terkumpul:

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 byte

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

Banyak byte yang disimpan berkat pendekatan @LeakuNun .

Kasus yang tidak disatukan & uji:

Coba di sini.

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

Keluaran:

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

C

#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;
}