Hãy bắt đầu bằng cách xác định sự phản chiếu của một ký tự trong chuỗi:

Cho một chuỗi có các chữ cái chữ cái viết thường khác biệt không có khoảng trắng như abcdefg, xác định sự phản chiếu của một chữ cái trong chuỗi ckhi di chuyển nó (không thay đổi thứ tự của bất kỳ chữ cái nào khác) đến một vị trí mới trong chuỗi sao cho số lượng chữ cái ban đầu bên phải của nó bây giờ là số chữ cái bên trái của nó.

Vì vậy, một sự phản ánh của bức thư ctrong abcdefgsẽ là abdecfg. Giải thích: có 4 chữ cái bên phải cvà bây giờ, có 4 chữ cái bên trái c.

Một số ví dụ khác:

Phản ánh nhân vật etrong myfriendsẽ tạo thành chuỗimyefrind

Phản ánh các nhân vật atrong axyzsẽ tạo thành chuỗi xyza.

Phản ánh các nhân vật btrong abcsẽ tạo thành chuỗi abc.

Phản ánh các nhân vật dtrong dsẽ tạo thành chuỗi d.

Phản ánh các nhân vật etrong efsẽ tạo thành chuỗi fe.

Để biết thêm thông tin hoặc để thử một số trường hợp thử nghiệm, đây là một chương trình (hơi dài) tôi đã viết trong C ++.

Các thách thức

Đưa ra một chuỗi với các chữ cái viết thường khác nhau, đi qua từng ký tự theo thứ tự bảng chữ cái và "phản ánh" nó trong chuỗi.

Làm rõ: Các chữ cái trong chuỗi là từ a-z, không có khoảng trắng, các chữ cái là duy nhất và chuỗi dài ít nhất 1 chữ cái và dài tối đa 26 chữ cái.

Ví dụ

Đầu vào : dcba. Đầu ra : dcba.

Lý do: Đầu tiên, hãy phản ánh avì đó là ký tự trong chuỗi xuất hiện sớm nhất trong bảng chữ cái. Bạn sẽ nhận được adcb. Sau đó, phản ánh bnhư nó đến tiếp theo trong bảng chữ cái, để có được badc. Sau đó, phản ánh cđể có được cbad, và sau đó dđể có được dcba.

Đầu vào : myface. Đầu ra : fyecma.

Gợi ý: Đi qua các chữ cái theo thứ tự a, c, e, f, m, y.

Đầu vào : a. Đầu ra : a.

Đầu vào : acb. Đầu ra : bac.

Đầu vào : cwmfjordbankglyphsvextquiz. Đầu ra : ieabhqzugdltkfnvpjxsormycw.

Chấm điểm

• Đầu vào và đầu ra có thể được cung cấp bởi bất kỳ phương pháp thuận tiện .
• Một chương trình đầy đủ hoặc một chức năng được chấp nhận. Nếu một chức năng, bạn có thể trả lại đầu ra thay vì in nó.
• Sơ hở tiêu chuẩn bị cấm.
• Đây là môn đánh gôn, vì vậy tất cả các quy tắc chơi gôn thông thường đều được áp dụng và mã ngắn nhất (tính bằng byte) sẽ thắng.
• Chấp nhận ~ 100 giờ sau khi đăng.

Người chiến thắng hiện tại

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

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

Hãy thử trực tuyến!

Ngoài các phản xạ được mô tả trong đặc tả thách thức, mã này cũng đảo ngược chuỗi chính xác 26 lần. Điều này không có hiệu lực trên đầu ra cuối cùng.

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

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

Hãy thử trực tuyến!

Giải trình

Ví dụ cho lần lặp đầu tiên của 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'

Chuỗi được bao quanh với khoảng trắng mỗi lần lặp khi phân tách trên chữ cái đầu tiên hoặc cuối cùng của chuỗi sẽ dẫn đến danh sách độ dài 1 nếu không và hợp nhất sẽ không bao gồm chữ cái đó.

Pyth, 18 16 19 16 byte

VSQ=QXx_QN-QNN)Q

Hãy thử nó ở đây

Giải trình

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 byte

Cảm ơn Esolanging Fruit đã nhắc nhở tôi rằng các chức năng có thể trở lại bằng cách sửa đổi đối số của chúng.

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

Hãy thử trực tuyến!

Đưa đầu vào dưới dạng danh sách các ký tự.

Python 2 , 70 byte

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

Hãy thử trực tuyến!

Sửa đổi danh sách đầu vào

Võng mạc 0.8.2 , 61 byte

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

Hãy thử trực tuyến! Liên kết bao gồm các trường hợp thử nghiệm. Giải trình:

$
a

Bắt đầu vòng lặp tại a.

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

Nếu đầu vào chứa chữ cái hiện tại, di chuyển nó đến cuối, với một chuỗi _s đại diện cho vị trí ban đầu của nó.

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

Đối với mỗi _di chuyển thư trở lại một ký tự.

}T`_l`l!`.$

Tăng thư. Sau khi zthay đổi nó thành một !cái để nó không khớp với bất cứ thứ gì và vòng lặp kết thúc.

!

Xóa !.

Java 8, 140 96 92 88 87 85 byte

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

-44 byte tạo ra một cổng của câu trả lời Python 2 của @TFeld .
-6 byte nhờ @ OlivierGrégoire .

Sửa đổi Danh sách đầu vào thay vì tạo một danh sách mới.

Giải trình:

Hãy thử trực tuyến.

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 byte

^{-6 byte nhờ @DanielIndie}

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

Hãy thử trực tuyến!

Ruby , 51 byte

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

Hãy thử trực tuyến!

Có một loạt các ký tự

Trả về bằng cách sửa đổi đầu vào

Đỏ , 96 94 byte

Lưu 2 byte nhờ 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]

Hãy thử trực tuyến!

Dễ đọc hơn:

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 byte

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

Hãy thử trực tuyến!

Nhập và xuất một vectơ ký tự.

Perl 5 -p , 37 byte

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

Hãy thử trực tuyến!

Japt , 23 22 byte

¬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.

Lưu một byte nhờ Oliver .
Hãy thử trực tuyến!

Haskell, 87 byte

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'..]

Hãy thử trực tuyến!

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 byte

	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)

Hãy thử trực tuyến!

Thực hiện đơn giản các thuật toán cần thiết. Đã lưu một vài byte bằng cách chuyển sang một chức năng chứ không phải là một chương trình đầy đủ; lời giải thích vẫn như cũ, ít nhiều

	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

Thạch ,  12  11 byte

W;ṢḟṁUṣ¥jʋ/

Một liên kết đơn âm chấp nhận một danh sách các ký tự và trả về một danh sách các ký tự.

Hãy thử trực tuyến!

Làm sao?

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 (tiếng kêu) , 164 162 byte

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

Hãy thử trực tuyến!

f() lấy mảng char chứa chuỗi đầu vào và độ dài của mảng này làm tham số và thực hiện các phản xạ cần thiết tại chỗ.

callf() không in đẹp.

Tín dụng

-2 byte. @Kevin. Cảm ơn

APL + THẮNG, 63 byte

Lời nhắc cho chuỗi đầu vào

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

Giải trình:

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 byte

84 80 byte bao gồm cả lệnh gọi là bộ lọc unix

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