Zacznijmy od zdefiniowania odbicia znaku w ciągu:

Biorąc pod uwagę ciąg znaków z wyraźnymi małymi literami alfabetu bez spacji, np. abcdefgZdefiniuj odbicie litery w ciągu cjako przeniesienie go (bez zmiany kolejności jakiejkolwiek innej litery) w nowe miejsce w ciągu, tak aby liczba liter pierwotnie po prawej stronie jest teraz liczba liter po lewej stronie.

Zatem odbicie pisma cw abcdefgbędzie abdecfg. Objaśnienie: po prawej stronie były 4 litery, ca teraz po lewej stronie są 4 litery c.

Kilka innych przykładów:

Odbicie znaku ew myfriendutworzy ciągmyefrind

Odbicie znaku aw axyzutworzy ciąg xyza.

Odbicie znaku bw abcutworzy ciąg abc.

Odbicie znaku dw dutworzy ciąg d.

Odbicie znaku ew efutworzy ciąg fe.

Aby uzyskać więcej informacji lub wypróbować niektóre przypadki testowe, oto (nieco długi) program, który napisałem w C ++.

Wyzwanie

Biorąc pod uwagę ciąg z wyraźnymi małymi literami, przejrzyj każdy znak alfabetycznie i „odzwierciedlaj” go w ciągu.

Wyjaśnienia: Litery w ciągu pochodzą z a-z, nie ma spacji, litery są unikalne, a ciąg ma co najmniej 1 literę i co najwyżej 26 liter.

Przykłady

Wejście: dcba. Wyjście: dcba.

Powód: Po pierwsze, odzwierciedl to, aponieważ jest to znak w ciągu, który pojawia się najwcześniej w alfabecie. Dostaniesz adcb. Następnie zastanów się nad tym, bjak będzie dalej w alfabecie, aby uzyskać badc. Następnie zastanów się, caby dostać cbad, a następnie ddostać dcba.

Wejście: myface. Wyjście: fyecma.

Wskazówka: Przejrzyj litery w kolejności a, c, e, f, m, y.

Wejście: a. Wyjście: a.

Wejście: acb. Wyjście: bac.

Wejście: cwmfjordbankglyphsvextquiz. Wyjście: ieabhqzugdltkfnvpjxsormycw.

Punktacja

• Dane wejściowe i wyjściowe można podać dowolną dogodną metodą .
• Dopuszczalny jest pełny program lub funkcja. Jeśli funkcja, możesz zwrócić dane wyjściowe zamiast je wydrukować.
• Standardowe luki są zabronione.
• To jest golf golfowy, więc obowiązują wszystkie zwykłe zasady gry w golfa, a wygrywa najkrótszy kod (w bajtach).
• Akceptowanie ~ 100 godzin po wysłaniu.

Aktualny zwycięzca

<style>body { text-align: left !important} #answer-list { padding: 10px; width: 290px; float: left; } #language-list { padding: 10px; width: 290px; float: left; } table thead { font-weight: bold; } table td { padding: 5px; }</style><script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="language-list"> <h2>Shortest Solution by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr> </thead> <tbody id="languages"> </tbody> </table> </div> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr> </thead> <tbody id="answers"> </tbody> </table> </div> <table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr> </tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr> </tbody> </table><script>var QUESTION_ID = 162891; var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe"; var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk"; var OVERRIDE_USER = 12012; var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page; function answersUrl(index) { return "https://api.stackexchange.com/2.2/questions/" + QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER; } function commentUrl(index, answers) { return "https://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER; } function getAnswers() { jQuery.ajax({ url: answersUrl(answer_page++), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { answers.push.apply(answers, data.items); answers_hash = []; answer_ids = []; data.items.forEach(function(a) { a.comments = []; var id = +a.share_link.match(/\d+/); answer_ids.push(id); answers_hash[id] = a; }); if (!data.has_more) more_answers = false; comment_page = 1; getComments(); } }); } function getComments() { jQuery.ajax({ url: commentUrl(comment_page++, answer_ids), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { data.items.forEach(function(c) { if (c.owner.user_id === OVERRIDE_USER) answers_hash[c.post_id].comments.push(c); }); if (data.has_more) getComments(); else if (more_answers) getAnswers(); else process(); } }); } getAnswers(); var SCORE_REG = /<h\d>\s*([^\n,<]*(?:<(?:[^\n>]*>[^\n<]*<\/[^\n>]*>)[^\n,<]*)*),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/; var OVERRIDE_REG = /^Override\s*header:\s*/i; function getAuthorName(a) { return a.owner.display_name; } function process() { var valid = []; answers.forEach(function(a) { var body = a.body; a.comments.forEach(function(c) { if(OVERRIDE_REG.test(c.body)) body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>'; }); var match = body.match(SCORE_REG); if (match) valid.push({ user: getAuthorName(a), size: +match[2], language: match[1], link: a.share_link, }); else console.log(body); }); valid.sort(function (a, b) { var aB = a.size, bB = b.size; return aB - bB }); var languages = {}; var place = 1; var lastSize = null; var lastPlace = 1; valid.forEach(function (a) { if (a.size != lastSize) lastPlace = place; lastSize = a.size; ++place; var answer = jQuery("#answer-template").html(); answer = answer.replace("{{PLACE}}", lastPlace + ".") .replace("{{NAME}}", a.user) .replace("{{LANGUAGE}}", a.language) .replace("{{SIZE}}", a.size) .replace("{{LINK}}", a.link); answer = jQuery(answer); jQuery("#answers").append(answer); var lang = a.language; lang = jQuery('<a>'+lang+'</a>').text(); languages[lang] = languages[lang] || {lang: a.language, lang_raw: lang.toLowerCase(), user: a.user, size: a.size, link: a.link}; }); var langs = []; for (var lang in languages) if (languages.hasOwnProperty(lang)) langs.push(languages[lang]); langs.sort(function (a, b) { if (a.lang_raw > b.lang_raw) return 1; if (a.lang_raw < b.lang_raw) return -1; return 0; }); for (var i = 0; i < langs.length; ++i) { var language = jQuery("#language-template").html(); var lang = langs[i]; language = language.replace("{{LANGUAGE}}", lang.lang) .replace("{{NAME}}", lang.user) .replace("{{SIZE}}", lang.size) .replace("{{LINK}}", lang.link); language = jQuery(language); jQuery("#languages").append(language); } }</script>

Brain-Flak , 188 bajtów

<>((((()()()){}){}()){}){(({}[()])<({}[(((((()()()()()){}){}){})()){}{}])<>{<>(({})<({}<>({}<>))((){[()](<{}>)}{}){{}(<({}<([]<<>{({}<>)<>}<>>){({}[()]<({}<>)<>>)}{}>)>)}{}>)<>}<>{}<>>)}<>

Wypróbuj online!

Oprócz odbić opisanych w specyfikacji wyzwania kod ten również odwraca ciąg dokładnie 26 razy. Nie ma to wpływu na końcową wydajność.

# Push 26
<>((((()()()){}){}()){})

# Do 26 times:
{(({}[()])<

  # Subtract 122 from counter to get negative lowercase letter
  ({}[(((((()()()()()){}){}){})()){}{}])

  # For each character in string:
  <>{

    # Keep a copy of pivot letter on the third stack
    <>(({})<

    # Move next letter to other stack and compare to pivot
    ({}<>({}<>))

    # If letters are equal:
    ((){[()](<{}>)}{}){

      # Keep current letter separate from this transformation
      {}(<({}<

      # While keeping a copy of current stack height:
      ([]<

        # Move all letters to one stack
        <>{({}<>)<>}<>

      >)

      # Move a number of letters equal to old stack height back
      {({}[()]<({}<>)<>>)}{}

      >)>)

    }{}>)<>

  }

  # Destroy pivot letter
  <>{}<>

>)}

# Switch stack for output
<>

05AB1E , 20 17 bajtów

{vð.øy¡€á€gsJ£yý

Wypróbuj online!

Wyjaśnienie

Na przykład dla pierwszej iteracji myface

{v                  # for each char y in sorted input
  ð.ø               # surround current string with spaces
                    # STACK: ' myface '
     y¡             # split at current letter
                    # STACK: [' myf', 'ce ']
       ۇ           # remove non-letters
                    # STACK: ['myf','ce']
         €g        # get the length of each string in the pair, reversed
                    # STACK: ['myf','ce'], [2,3]
            sJ      # join the pair back to a string
              £     # split into 2 pieces of the calculated sizes
                    # STACK: ['my','fce']
               yý   # join on the current char y
                    # STACK: 'myafce'

Ciąg jest otoczony spacjami przy każdej iteracji, ponieważ podział na pierwszą lub ostatnią literę ciągu spowoduje, że w przeciwnym razie powstanie lista długości 1, a scalenie nie będzie zawierało tej litery.

Pyth, 18 16 19 16 bajtów

VSQ=QXx_QN-QNN)Q

Wypróbuj tutaj

Wyjaśnienie

VSQ=QXx_QN-QNN)Q
VSQ           )       For each character (N) in the sorted input (Q)...
          -QN         ... remove the character from Q...
      x_QN            ... get the reflected position...
     X       N        ... insert N...
   =Q                 ... and save the result into Q.
               Q      Output the final result.

Python 3 , 80 73 bajtów

Dzięki Esolanging Fruit za przypomnienie, że funkcje mogą wrócić, modyfikując swój argument.

lambda x:[x.insert(len(x)+~x.index(i),x.remove(i)or i)for i in sorted(x)]

Wypróbuj online!

Pobiera dane wejściowe jako listę znaków.

Python 2 , 70 bajtów

def f(t):
 for c in sorted(t):i=t.index(c);l=len(t)+~i;t[l:l]=t.pop(i)

Wypróbuj online!

Zmienia listę wejściową

Retina 0.8.2 , 61 bajtów

$
a
{`(.)(.*)\1$
$2$.`$*_$1$1
+`(.)_(_*.)
$2$1
}T`_l`l!`.$
!

Wypróbuj online! Link zawiera przypadki testowe. Wyjaśnienie:

$
a

Rozpocznij pętlę o a.

{`(.)(.*)\1$
$2$.`$*_$1$1

Jeśli dane wejściowe zawierają bieżącą literę, przenieś ją na koniec, ciąg znaków _s reprezentujący jej pierwotną pozycję.

+`(.)_(_*.)
$2$1

Dla każdego _przesunięcia litera wstecz jedna postać.

}T`_l`l!`.$

Zwiększ list. Po zzmianie na !tak, aby nic nie pasowało, a pętla się kończy.

!

Usuń !.

Java 8, 140 96 92 88 87 85 bajtów

s->{for(char c=9;++c>0;){int i=s.indexOf(c);if(i>=0)s.add(s.size()+~i,s.remove(i));}}

-44 bajty tworzą port odpowiedzi @TFeld na Python 2 .
-6 bajtów dzięki @ OlivierGrégoire .

Zmienia listę wejściową zamiast tworzyć nową.

Wyjaśnienie:

Wypróbuj online.

s->{                     // Method with ArrayList<Character> parameter and no return-type
  for(char c=9;++c>0;){  //  Loop over all characters known
                         //  (except for the first 9 unprintables)
    int i=s.indexOf(c);  //   Index of the character, or -1 of it isn't present
    if(i>=0)             //   If the current character is present in the List
      s.add(s.size()+~i,s.remove(i));}}
                         //    Change the position of this character to index `l-i-1`,
                         //    (where `l` is the size of the input-List)

JavaScript, 85 80 79 bajtów

^{-6 bajtów dzięki @DanielIndie}

a=>[...a].sort().map(i=>a.splice(s=a.indexOf(i),1)&&a.splice(a.length-s,0,i))&&a

Wypróbuj online!

Rubinowy , 51 bajtów

->s{s.sort.map{|c|s.insert~s.index(c),s.delete(c)}}

Wypróbuj online!

Zajmuje tablicę znaków

Zwraca przez modyfikację wejścia

Czerwony , 96 94 bajtów

2 bajty zapisane dzięki Kevin Cruijssen

func[x][foreach c sort copy x[i:(length? x)+ 1 - index? find x c insert at replace x c""i c]x]

Wypróbuj online!

Bardziej czytelny:

f: func[x][
    foreach c sort copy x[                  ; for each symbol in the sorted input
       i: (length? x) + 1 - index? find x c ; find its index and reflect it 
       insert at replace x c "" i c         ; remove it by replacing it with an empty char 
                                            ; and insert the symbol at its new index   
    ]
    x                                       ; return the transformed string
]

R , 73 72 69 bajtów

function(s){for(x in sort(s))s=append(s[x!=s],x,match(x,rev(s))-1);s}

Wypróbuj online!

Wprowadza i wyprowadza wektor znaków.

Perl 5 -p , 37 bajtów

#!/usr/bin/perl -p
for$a(a..z){s/$a//&&s/.{@{-}}$/$a$&/}

Wypróbuj online!

Japt , 23 22 bajtów

¬n rÈ+S kY iYJ-XbY)x}U
¬n                     // Split the input into chars and sort it.
   r                }U // Then reduce the result with initial value of the input.
    È+S                // Append a space for replacing edge cases and
        kY             // remove the current char from the string.
           iY          // Insert it back
             J-XbY     // at the calculated index,
                  )x   // and remove the unnecessary space once we're done.

Oszczędność jednego bajtu dzięki Oliverowi .
Wypróbuj online!

Haskell, 87 bajtów

s#c|(h,_:t)<-span(/=c)s,(v,w)<-splitAt(length t)$h++t=v++c:w|1<2=s
f s=foldl(#)s['a'..]

Wypróbuj online!

f s=foldl(#)s['a'..]         -- fold the function '#' into all characters from 'a'
                              -- with the starting value of the input string s
s#c=                          -- in each step (s: result so far, c: next char)
   (h,_:t)<-span(/=c)s        -- let 'h' be the substring before 'c' and
                              -- 't' the substring after 'c'. the pattern match
                              -- fails if there's no 'c' in 's'
   (v,w)<-splitAt(length t)$h++t
                              -- split the string 'h++t' at index length of t
   =v++c:w                    -- return 'v' followed by 'c' followed by 'w'
   |1<2=s                     -- if there's no 'c' in 's', return 's' unchanged             

SNOBOL4 (CSNOBOL4) , 132 128 bajtów

	DEFINE('I(I)')
I	U =&LCASE
N	U LEN(1) . K REM . U	:F(RETURN)
	I ARB @S K	:F(N)
	I K =
	I ARB . L RPOS(S) REM . R
	I =L K R	:(N)

Wypróbuj online!

Prosta implementacja wymaganego algorytmu. Zapisano kilka bajtów, przełączając się na funkcję zamiast na pełny program; wyjaśnienie pozostaje mniej więcej takie samo.

	I =INPUT			;* read input
	U =&LCASE			;* alias for lowercase letters (it started out as uppercase)
N	U LEN(1) . K REM . U	:F(O)	;* set K to the next lowercase letter, and when empty, goto O
	I ARB @S K	:F(N)		;* set S to the number of letters before K, or goto N
	I K =				;* remove K
	I ARB . L RPOS(S) REM . R	;* set R to the last S characters of I and L to the others
	I =L K R	:(N)		;* recombine the string and goto N
O	OUTPUT =I			;* print new string
END

Galaretka ,  12  11 bajtów

W;ṢḟṁUṣ¥jʋ/

Monadyczny link przyjmujący listę znaków i zwracający listę znaków.

Wypróbuj online!

W jaki sposób?

W;ṢḟṁUṣ¥jʋ/ - Link: list of characters V  e.g. "myface"  ...i.e. ['m','y','f','a','c','e']
W           - wrap V in a list                 ["myface"]
  Ṣ         - sort V                           ['a','c','e','f','m','y']
 ;          - concatenate                      ["myface",'a','c','e','f','m','y']
          / - reduce with:
         ʋ  -   last four links as a dyad:
            -   (i.e. start with "myface" on the left and 'a' on the right 
            -         2nd iteration has that result on the left and 'c' on the right
            -         and so-forth)            e.g. left = myface, right = 'a'
   ḟ        -     filter out (right from left)      "myfce"
       ¥    -     last two links as a dyad:
     U      -       upend left                      "ecafym"
      ṣ     -       split at occurrences of right   ["ec","fym"]
    ṁ       -     mould (ḟ(x,y)) like (Uṣ¥(x,y))    ["my","fce"] 
         j  -   join with right                   "myafce"

C (clang) , 164 162 bajty

y,n,a,b,c,p,i;f(char*s,l){for(i=0;p=0,++i<123;p<l&&(y=s[p],n=l+~p,a=p+1,b=p,n<p&&(a=n,b=n+1),c=l+~(2*(n<p?n:p)),memmove(s+b,s+a,c),s[n]=y))while(s[p]^i&&p<l)p++;}

Wypróbuj online!

f() pobiera tablicę znaków zawierającą łańcuch wejściowy i długość tej tablicy jako parametry i wykonuje wymagane odbicia na miejscu.

callf() ładnie drukuje.

Kredyty

-2 bajty. @Kevin. Dzięki

APL + WIN, 63 bajty

Monity o ciąg wejściowy

l←s[⍋⎕av⍳s←,⎕]⋄⍎∊(⍴s)⍴⊂'s←(n←⌽~s=↑l)\s~↑l⋄((~n)/s)←↑l⋄l←1↓l⋄'⋄s

Wyjaśnienie:

l←s[⍋⎕av⍳s←,⎕] sort characters into alphabetical order

⍎∊(⍴s)⍴⊂'....' create an implicit loop for each character

s←(n←⌽~s=↑l)\s~↑l⋄((~n)/s)←↑l do the relection for first character in l

l←1↓l drop the first character in l

s display the result

⋄ statement separator

Perl , 74 70 bajtów

84 80 bajtów, w tym wywołanie jako filtr uniksowy

for$c(a..z){if($p=1+index$_,$c){substr$_,$p-1,1,"";substr$_,-$p,0,$c}}

$ echo -e 'dcba\nmyface\na\nacb\ncwmfjordbankglyphsvextquiz' |
> perl -pE'for$c(a..z){if($p=1+index$_,$c){substr$_,$p-1,1,"";substr$_,-$p,0,$c}}'
dcba
fyecma
a
bac
ieabhqzugdltkfnvpjxsormycw