Buradaki amaç, sadece bir bükülme ile bir ipi ters çevirmektir: Büyük
harfleri aynı yerlerde tutun.

Örnek Giriş 1: Hello, Midnightas
Örnek Çıkış 1:SathginDim ,olleh

Örnek Giriş 2: Örnek .Q
Çıkış 2:q.

Kurallar :

• STDOUT'ya çıkış, STDIN'den giriş
• Kazanan 13 Temmuz’da GMT + 3 12:00 'da seçilecek (Bir hafta)
• Giriş yalnızca ASCII sembollerinden oluşabilir ve ASCII olmayan karakterler içeren herhangi bir kodlama kullanmayan programları kolaylaştırır.
• Büyük harfli bir pozisyonda biten herhangi bir noktalama ihmal edilmelidir.

TCC - 4 bayt

<>ci

Çevrimiçi deneyin!

Açıklama:

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

Python, 71 bayt

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

Çevrimiçi deneyin

Ruud'dan -3 bayt, ayrıca 2 daha fazlası için ilham kaynağı.

FryAmTheEggman'dan -4 bayt daha

Python 2,73 bayt

Kurallar girdiyi belirlediğinden ascii:

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

Bütün krediler @Mego'ya gidiyor, ama cevabını yorumlayacak kadar itibarı yoktu.

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

Bu çözüm @Ton Hospel'den (13 bayt kısa thant mine).

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

Fakat ihtiyacınız olacak lve paçılacaksınız. Çalıştırmak için:

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

Pyth, 13 11 10 9 bayt

Beni hatırlattığı için @ VFryAmTheEggman'a ve başka bir bayt için @LeakyNun'a teşekkür ederiz .

srV_Qm!/G

Çevrimiçi deneyin! _{şimdi cep telefonunda, bağlantı biraz güncelleniyor}

Python, 66 bayt

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

iKarakteri s[~i]arkadan s[i], önden durumdan alarak endeksler üzerinden alıştırır . Sermaye olmak bitişik aralıkta yatar olarak kontrol edilir @ABC...XYZ[. Numaradan FryAmTheEggman'a teşekkür et (_*2).title().

Retina , 75 67 65 bayt

Bayt sayısı, ISO 8859-1 kodlamasını varsayar.

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

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

±(.)
$1±
·.
·

Çevrimiçi deneyin! (İlk satır, birden fazla satır besleme ile ayrılmış test durumları içeren bir test paketi sağlar.)

JavaScript (ES6), 95 83 bayt

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

Düzenleme: @ edc65 sayesinde büyük bir 12 bayt kaydedildi.

Pyke, 11 10 9 bayt

_FQo@UhAl

Burada dene!

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

3 bayt kaydettiğiniz için Emigna'ya teşekkürler !

Muhtemelen Jelly tarafından yenilecek ... Kod:

Âuvy¹Nè.lil}?

CP-1252 kodlamasını kullanır . Çevrimiçi deneyin! .

MATL , 13 bayt

PktGtk<)Xk5M(

Çevrimiçi deneyin!

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 bayt

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

ASCII olmayanları desteklemiyor

Brachylog , 28 bayt

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

açıklama

• Ana Tahmini:

  @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
  

• Tahmin 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 bayt

golfed:

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

Ungolfed

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

Keman

Aslında, 25 bayt

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

Çevrimiçi deneyin!

Açıklama:

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

Aklıma gelen en basit yol.

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

PowerShell, 154 , 152 , 99 , 86 bayt

Beni bir kuyruklu 47 byte'a kaydettiğin için teşekkür ederim @TimmyD (ayrıca 6 ekledim)

13 bayttan daha fazla tasarruf için @TessellatingHeckler teşekkür ederiz.

Son:

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

Orijinal:

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

Normal biçimlendirme:

Son (bence en iyi iki satır gibi görünüyor):

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

Açıklama:

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

Orijinal:

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

Buradaki ilk poster motive edildi çünkü PowerShell'i nadiren görüyorum, ancak bunun üzerine 154 152 baytta ... Nedenini görebiliyorum! Herhangi bir öneriniz takdir etti.

Kodlama ve eğlenceyle golf oynama biçimimi tamamen değiştirmem gerektiğini öğrendim!

Dyalog APL , 12 bayt

⌽f¨⍨⊢≠f←819⌶

819⌶ durum katlama işlevi

f←çünkü adı uzun, f

⊢≠f Metnin alt kasalı metinden farklı olduğu Boole

f¨⍨ her harfi katlamak için (1, büyük harf, 0 küçük harf anlamına gelir) kullanın ...

⌽ ... ters çevrilmiş metnin

ASCII olmayanları Unicode Konsorsiyumu kurallarına göre kullanır.

CJam, 22 bayt

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

Burada test et.

Raket, 146 bayt

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

Bu "golf" olayında raket kötüdür.

Shrug Her zaman olduğu gibi, bunu kısaltmak için herhangi bir yardım çok takdir edilecektir.

Jolf, 21 bayt

Burada dene!

Μid?&γ._pXiS=pxHHpxγγ

açıklama

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

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

C #, 86 85 bayt

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

AC # lambda giriş ve çıkış bir dizedir. NetFiddle'da deneyebilirsiniz .

Ben dönüştürmek için elde olamaz anlamak mücadele ediyorum char.ToLower(c)için c+32. Düzeltmeyi umuyorum!

@PeterTaylor sayesinde 12 bayt kaydedildi ( c|32ascii değerine 32 cve alt c&~32çıkarma 32'ye 32 eklemek için ). Sonuç, 72 bayt olur (ancak alfa karakterlerinde başarısız olabilir).

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

PHP, 128 bayt

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

Bunu daha da iyileştirmeye çalışabilirim, ancak şimdilik olduğu gibi bırakacağım.

Octave, 51 50 bayt

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

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

VIM, 46 bayt

g~GEğer stdin'den okumaya ya da stdout'a yazma ihtiyacımız olmasaydı üç bayt olurdu, ama ah peki ...

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

Bunu test etmek için koş

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

Bu benim ilk gönderim, bu tür bir gönderimin kabul edilebilir olup olmadığından emin değilim.

Javascript (harici kütüphaneyi kullanarak) (224 bayt)

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

Feragatname: C # 'nin LINQ'sini Javascript'e getirmek için yazdığım bir kütüphaneyi kullanarak

Sed, 113 + 1 = 114 bayt

Niye ya? Çünkü bir şeyler yapmak için yanlış aracı kullanmak eğlencelidir : P

Kullanım: Çalıştır sed -rf file, metni girin ve Ctrl+ D(EOF gönder) tuşuna basın .

golfed:

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

Ungolfed:

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 bayt

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 yaklaşımı sayesinde bir sürü bayt kurtarıldı .

Ungolfed ve test durumları:

Burada dene.

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

Çıktı:

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