รับสายกลับมัน interleavingly นี่คือวิธีการทำabcdefghiและabcdefghijทำดัชนี 0:

1. แยกตัวอักษรที่ดัชนีเท่า ๆ กันจากตัวอักษรที่ดัชนีแปลก ๆ :

   Acegi
    bdfh
   
   Acegi
    bdfhj

2. กลับตัวอักษรที่ดัชนีแปลก ๆ :

   Acegi
    hfdb
   
   Acegi
    jhfdb

3. สอดแทรกเป็นหนึ่งสตริงอีกครั้ง:

   ahcfedgbi 
   
   ajchefgdib

กฎระเบียบ

• คุณต้องสนับสนุนทั้งสตริงที่มีความยาวเท่ากันและมีความยาวคี่
• 0-index-wise คุณจะต้องย้อนกลับตัวอักษรที่ดัชนีคี่ไม่ใช่แม้กระทั่ง
• 1 ดัชนีฉลาดคุณต้องย้อนตัวอักษรที่ดัชนีแม้ไม่แปลก
• ข้อมูลที่ป้อนจะประกอบด้วย ASCII ที่พิมพ์ได้ (รหัสจุด 32-126) ไม่มีการขึ้นบรรทัดใหม่
• คุณสามารถรับอินพุตเป็นสตริงหรือเป็นรายการตัวอักษร (ไม่ใช่สตริง 1 อักขระ) เช่นString/ char[]หรือchar*ได้รับอนุญาต แต่String[]/ char[][]หรือchar**ไม่

กรณีทดสอบ

Input
Output

Hello, World!
HdlroW ,olle!

Hello World!
H!llooW rlde

ABCDEFGHIJKLMNOPQRSTUVWXYZ
AZCXEVGTIRKPMNOLQJSHUFWDYB

 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
 }"{$y&w(u*s,q.o0m2k4i6g8e:c<a>_@]B[DYFWHUJSLQNOPMRKTIVGXEZC\A^?`=b;d9f7h5j3l1n/p-r+t)v'x%z#|!~

P
P

AB
AB

xyz
xyz

สำหรับสตริงว่างส่งคืนสตริงว่างเอง

เยลลี่ขนาด 7 ไบต์

s2ZU2¦Z

นี่เป็นโปรแกรมเต็ม

ลองออนไลน์!

มันทำงานอย่างไร

s2ZU2¦Z  Main link. Argument: s (string)

s2       Split s into pairs.
  Z      Zip/tranpose, grouping characters by the parity of their indices.
     ¦   Sparse application:
   U         Upend; reverse both strings in the pair.
    2        Replace the second string with the reversed string.
      Z  Zip/transpose, interleaving the two strings.

MATL , 8 ไบต์

t2L)P5M(

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย

t     % Implicit input. Duplicate
      % STACK: 'abcdefghi', 'abcdefghi'
2L    % Push [2, 2, 1j]. This represents 2:2:end when used as an index
      % STACK: 'abcdefghi', 'abcdefghi', [2, 2, 1j]
)     % Get entries at those indices
      % STACK: 'abcdefghi', 'bdfh'
P     % Flip
      % STACK: 'abcdefghi', 'hfdb'
5M    % Push [2, 2, 1j] again
      % STACK: 'abcdefghi', 'hfdb', [2, 2, 1j]
(     % Write entries at those indices. Implicit display
      % STACK: 'ahcfedgbi'

อลิซ 10 ไบต์

/ZY
\IOR@/

ลองออนไลน์!

ครึ่งหนึ่งของไบต์ของโปรแกรมนี้ใช้ในการจัดรูปแบบแหล่งที่มาอย่างถูกต้องคำสั่งจริงเพียงIYRZOเพราะอลิซมี builtins ที่เหมาะสมสำหรับงานนี้

คำอธิบาย

ดังที่ฉันพูดไปแล้วมิเรอร์ ( /\) บรรทัดใหม่และ@อยู่ที่นั่นเพียงเพื่อให้ ip เคลื่อนที่ไปในทิศทางที่ถูกต้องและยุติโปรแกรมในตอนท้าย รหัสจริง, linearised มีดังต่อไปนี้:

IYRZO
I      Input a line
 Y     Unzip it into its even positions and its odd ones
  R    Reverse the odd positions
   Z   Zip it back again
    O  Output

ค่อนข้างตรงไปตรงมาฉันว่า

Java (OpenJDK 8) , 108 96 94 93 ไบต์

บันทึก 1 ไบต์โดยใช้กลลวงของ@ Neil เรียบร้อยแล้วs[s.length+~i|1]

String f(char[]s){int a=s.length,b=0;String c="";for(;b<a;b++)c+=s[b%2<1?b:a+~b|1];return c;}

ลองออนไลน์!

Python 2 , 52 ไบต์

s=list(input())
s[1::2]=s[1::2][::-1]
print`s`[2::5]

ลองออนไลน์! หรือลองกรณีทดสอบทั้งหมด

อ็อกเทฟ 32 ไบต์

@(a,b=a(x)=a(flip(x=2:2:end)))a;

ลองออนไลน์!

JavaScript (ES6), 48 ไบต์

f=
s=>s.replace(/./g,(c,i)=>i%2?s[s.length+~i|1]:c)

<input oninput=o.textContent=f(this.value)><pre id=o>

เยลลี่ขนาด 9 ไบต์

Ḋm2U
m2żÇ

ลองออนไลน์!

Ḋm2U Helper Link -> Dequeue (return last len-1 elements), take every second element, reverse
m2żÇ Main Link -> Take every second element, then interleave with the result of the helper link

^{-1 ไบต์ขอบคุณเดนนิส}

จอประสาทตา17 13 ไบต์

O^$`(?<=\G.).

ลองออนไลน์!

แก้ไขข้อผิดพลาดด้วย Neil

บันทึกแล้ว 4 ไบต์ขอบคุณ Kobi

เลือกตัวอักษรแต่ละตัวนำหน้าด้วยจำนวนอักขระที่คี่และย้อนกลับ ทำได้โดยใช้\Gสิ่งที่ตรงกับจุดสิ้นสุดของการแข่งขันครั้งสุดท้าย

PHP> = 7.1, 58 ไบต์

for(;$i<$l=strlen($a=$argn);$i++)echo$a[$i&1?-$i-$l%2:$i];

เวอร์ชั่นออนไลน์

APL (Dyalog)ขนาด 9 ไบต์

ต้องการ⎕IO←0(ค่าเริ่มต้นในหลาย ๆ ระบบ) สำหรับคำจำกัดความที่เหมาะสมของคี่และคู่

⌽@{2|⍳≢⍵}

ลองออนไลน์!

⌽ ถอยหลัง

@ ที่องค์ประกอบที่กรองโดยผลลัพธ์มาจากการใช้หน้ากาก

{ ฟังก์ชั่น anonyomous

 2| mod-2 ของ

 ⍳ ดัชนีของ

 ≢ tally (ความยาว) ของ

 ⍵ อาร์กิวเมนต์

} ในการโต้แย้ง

Röda , 34 ไบต์

f a{a/=""a[::2]<>reverse(a[1::2])}

ลองออนไลน์!

คำอธิบาย

a/=""                    Convert the argument a into an array of length-1 strings
      <>                 Interleave
a[::2]                   Every even element of a with
        reverse(a[1::2]) Every odd element of a reversed

นี่คือทางเลือกอื่นในจำนวนเดียวกัน

36 34 ไบต์

{[_/""]|_[::2]<>reverse(_1[1::2])}

นี่คือฟังก์ชั่นที่ไม่ระบุชื่อที่รับอินพุตเป็นสตริงจากอินพุตสตรีม

Python 2 , 67 ไบต์

lambda s,j=''.join:j(map(j,zip(s[::2]+' ',s[1::2][::-1]+' ')))[:-1]

ลองออนไลน์!

OCaml , 70 ไบต์

let f s=String.(mapi(fun i c->s.[(length s land-2-i-i)*(i mod 2)+i])s)

ลองออนไลน์!

Haskell , 63 ไบต์

(_:r)!(a:s)=a:s!r
_!_=[]
f s=([' '|even$length s]++reverse s)!s

ลองออนไลน์! การใช้งาน:f "some string" .

สำหรับสตริงคี่เช่นabcdefghiฟังก์ชั่นfผ่านสตริงและการกลับรายการของฟังก์ชัน!ซึ่งสลับการใช้ตัวอักษรจากทั้งสองสตริง สำหรับสตริงที่ใช้ไม่ได้ผลและเราต้องผนวกอักขระจำลองก่อนเพื่อให้ได้ค่าออฟเซ็ต

C, 69 ไบต์

c,l;f(char*s){l=strlen(s);for(c=0;c<l;++c)putchar(s[c&1?l-l%2-c:c]);}

ค่อนข้างง่าย เดินสตริงพิมพ์อักขระปัจจุบันหรืออักขระตรงข้าม

Ungolfed และอธิบาย:

f(char *str) {
    int len = strlen(str);      // Get the total length
    for(int c = 0; c<len; ++c)  // Loop over the string
        putchar(s[              // Print the char that is,
            c & 1               // if c is odd,
                ? l - l % 2 - c // c chars from the end (adjusting odd lengths),
                : c             // and at index c otherwise
        ]);
}

Mathematica, 82 ไบต์

""<>(f=Flatten)[{#&@@#,Reverse@Last@#}&@f[Characters@#~Partition~UpTo@2,{2}],{2}]&

Japt , 14 13 ไบต์

โค้ด 12 ไบต์ +1 สำหรับการ-Pตั้งค่าสถานะ

บันทึก 1 ไบต์ขอบคุณ @Shaggy

¬ë íU¬Åë w)c

คำอธิบาย:

¬ë íU¬Åë w)c
¬                   Split the input into an array of chars
 ë                  Get every other char, starting at index 0
   í                Pair with:
    U¬                Input, split into a char array
      Å               .slice(1)
       ë              Get every other char
         w            Reverse
           c       Flatten
-P                 Join into a string

ลองออนไลน์!

Japtet , 8 ไบต์

ó
v íUÌw

ทดสอบมัน

K (oK) , 18 ไบต์

วิธีการแก้:

{x[w:&2!!#x]:x@|w}

ลองออนไลน์!

ตัวอย่าง:

> {x[w:&2!!#x]:x@|w}"Hello, World!"
"HdlroW ,olle!"
> {x[w:&2!!#x]:x@|w}"Hello World!"
"H!llooW rlde"

คำอธิบาย:

ตีความจากขวาไปซ้ายเป็นส่วนใหญ่ค้นหาอักขระคี่ดัชนีย้อนกลับและใส่กลับเข้าไปในสตริง

{x[w:&2!!#x]:x@|w} / solution
{                } / lambda function with implicit parameter x
         #x        / count x,    #"Hello, World!" -> 13
        !          / til,        !13 -> 0 1 2 3 4 5 6 7 8 9 10 11 12
      2!           / 2 modulo,   2!0 1 2 3 4 5 6 7 8 9 10 11 12 -> 0 1 0 1 0 1 0 1 0 1 0 1 0
     &             / where true, @0 1 0 1 0 1 0 1 0 1 0 1 0 -> 1 3 5 7 9 11
   w:              / store in variable w
               |w  / reverse w,  |1 3 5 7 9 11 -> 11 9 7 5 3 1
             x@    / index into x at these indices
 x[        ]:      / assign right to x at these indices

J, 26 ไบต์

[:,@,./(0 1$~#)]`(|.@])/.]

ungolfed

[: ,@,./ (0 1 $~ #) ]`(|.@])/. ]

คำอธิบาย

• (0 1$~#)]`(|.@])/.]ใช้ Key /.เพื่อแยกอินพุตเป็นกลุ่มคู่ / คี่: (0 1$~#)สร้างนิยามกลุ่มโดยทำซ้ำ 0 และ 1 วนซ้ำตามความยาวของอินพุต เราใช้แบบฟอร์มของ gerundial ที่สำคัญสำหรับคำกริยาหลักซึ่งใช้ตัวตนของกลุ่มแรกและกลับกลุ่มที่สอง:]`(|.@])(|.@])
• ตอนนี้เรามีสองกลุ่มอันแปลก ๆ กลับด้านเราแค่ซิปพวกมันเข้าด้วยกันแล้วแบน: ,@,./

ลองออนไลน์!

Python 3, 93 87 bytes

lambda s:"".join("".join(t)for t in zip(s[::2],reversed(s[1::2])))+("",s[-1])[len(s)%2]

Perl 6 ,  63 58  55 ไบต์

{[~] .comb[{flat roundrobin (0,2...^*>=$_),[R,] 1,3...^*>=$_}]}

ทดสอบมัน

{[~] flat roundrobin .comb[{0,2...*},{$_-1-$_%2,*-2...*}]}

ทดสอบมัน

{[~] flat roundrobin .comb[{0,2...*},{[R,] 1,3...^$_}]}

ทดสอบมัน

{  # bare block lambda with implicit parameter ｢$_｣

  [~]                 # reduce using string concatenation operator

    flat              # make the following a flat list

    roundrobin        # grab one from each of the following 2 lists,
                      # repeat until both are empty

    .comb\            # split the input into graphemes (implicit method call)

    [                 # index into that sequence



      { 0, 2 ... * }, # code block producing every non-negative even number


      {               # code block producing reversed odd numbers
                      # (｢$_｣ here contains the number of available elements)

        [R,]          # reduce with reversed comma operator
                      # (shorter than ｢reverse｣)

        1, 3 ...^ $_  # odd numbers stopping before it gets
                      # to the number of input elements
      }


    ]
}

ฉันต้องใช้roundrobinมากกว่าzipเพราะzipหยุดทันทีที่รายการอินพุตหนึ่งรายการหมดลง

Mathematica, 62 ไบต์

ใช้เป็นอินพุตสตริง

(s=Characters@#;Row@Riffle[s[[;; ;;2]],Reverse@s[[2;; ;;2]]])&

ลองออนไลน์!

APL (Dyalog)ขนาด 24 ไบต์

Bytes golfed ต้องขอบคุณ @ Adám

A⊣A[i]←⌽A[i←2×⍳⌊2÷⍨⍴A←⎕]

ลองออนไลน์!

GNU APL 1.2, 24 ไบต์

R[X]←⌽R[X←2×⍳⌊.5×⍴R←⍞]◊R

APL ทำงานจากขวาไปซ้าย ⍴R←⍞กำหนดอินพุตของผู้ใช้Rจากนั้นประเมินความยาว ลดลงครึ่งหนึ่งโดยการคูณด้วย.5และใช้⌊ฟังก์ชั่นชั้น⍳ส่งกลับตัวเลขทั้งหมดจาก 1 ถึงอาร์กิวเมนต์

APL ดำเนินการกับอาร์เรย์ดังนั้น2×อาร์เรย์ที่เราเพิ่งได้รับจาก⍳แต่ละองค์ประกอบเพิ่มขึ้นเป็นสองเท่าทำให้เราได้ดัชนีที่⎕IOเท่ากัน

เมื่อเข้าถึงดัชนีหลาย ๆ เวกเตอร์ APL จะให้องค์ประกอบที่ดัชนีเหล่านั้นในเวกเตอร์ R[X←2×⍳⌊.5×⍴R←⍞]ให้องค์ประกอบเพียงแค่การจัดทำดัชนี ⌽ฝืนองค์ประกอบ จากนั้นกำหนดค่าที่กลับรายการกลับไปที่ดัชนีคู่ (การกำหนดดัชนีเหล่านี้เพื่อXบันทึก 6 ไบต์)

◊เป็นตัวคั่นคำสั่ง หลังจากกลับรายการเสร็จแล้วให้ประเมินRเพื่อพิมพ์ผลลัพธ์

Perl 5, 46 + 3 สำหรับแฟล็ก -F = 49 ไบต์

while(++$x<@F){print$F[$x%2?$x-1:@F-$x-$#F%2]}

ใช้การ-Fตั้งค่าสถานะเพื่อแบ่งอินพุตให้เป็นอาร์เรย์ของอักขระโดย@Fอัตโนมัติ วนรอบอาร์เรย์และเอาต์พุตองค์ประกอบสำหรับดัชนีคู่หรือดัชนีนั้น (บวกหนึ่งสำหรับสตริงความยาวคี่) จากจุดสิ้นสุดสำหรับอินพุตคี่

รับอินพุตด้วยบรรทัดใหม่ต่อท้าย หากไม่มีการขึ้นบรรทัดใหม่คุณสามารถเปลี่ยนการเพิ่มก่อนล่วงหน้า$xเป็นการเพิ่มภายหลังได้

สามารถอ่านได้มากขึ้น:

while(++$x<@F) { #While the index is less than the number of elements in the array. $x is 1-indexing the array despite the fact that perl is 0-indexed because it keeps us from having to use a proper for loop or a do-while loop
    if($x%2) { #If $x is odd
        print $F[$x-1] #Print the element
    } else {
        print $F[@F-$x-$#F%2] #Print from the end. $#F%2 fixes it for odd length strings    
    }
}

05AB1E , 21 ไบต์

DgÉi¶«}2ô.BøRćR‚˜øJ¶K

ลองออนไลน์!

ฉันเดาเหตุผลที่สิ่งนี้ไม่ได้ทำใน 05AB1E ยังเป็นเพราะมันแย่ ...

อีกครั้งที่องค์ประกอบzipอัตโนมัติของฟังก์ชันดรอปดาวน์ทำให้เจ็บแทนความช่วยเหลือ

ป.ล. หากคุณมีข้อเสนอแนะในการปรับปรุงคำตอบของฉันโพสต์ของคุณเอง; มีโอกาสมากพอที่จะปรับปรุงเพื่อให้แน่ใจว่าคุณได้รับคะแนน ฉันค่อนข้างละอายใจกับคำตอบนี้

q / kdb +, 70 56 47 38 35 29 27 ไบต์

วิธีการแก้:

{x[w]:x(|)w:(&)#:[x]#0 1;x}

ตัวอย่าง:

q){x[w]:x(|)w:(&)#:[x]#0 1;x}"Hello, World!"
"HdlroW ,olle!"
q){x[w]:x(|)w:(&)#:[x]#0 1;x}"Hello World!"
"H!llooW rlde"

คำอธิบาย:

ค้นหาดัชนีคี่ของสตริงกลับรายการนี้ดึงองค์ประกอบที่จุดเหล่านี้จากนั้นกำหนดใหม่ให้กับสตริงเดิม

{x[w]:x reverse w:where count[x]#0 1;x} / ungolfed
{                                   ; } / lambda function with two lines
                                 0 1    / the list (0;1)
                                #       / take
                        count[x]        / length of input
                  where                 / indices where this is > 0
                w:                      / save in variable w
        reverse                         / reverse this list
      x                                 / index into x at these points
     :                                  / assignment             
 x[w]                                   / assign x at indices with new values
                                     x  / return x

การแก้ไข:

• -9 ไบต์; สลับออกcountสำหรับ(#:), tilสำหรับ(!), whereสำหรับ(&:)และสำหรับreverse(|:)

• -3 ไบต์; สลับออก(#:)สำหรับ(#), (&:)สำหรับ(&)และ(|:)สำหรับ(|)

• -6 ไบต์; สมบูรณ์เขียนใหม่

• -2 ไบต์; ใช้การมอบหมายมากกว่าใช้

05AB1E , 12 ไบต์

RDgÈúøvyNÉè?

ลองออนไลน์!

RDgÈúøvyNÉè?   Implicit input: "abcdefghij"
R              Reverse the string: "jihgfedcba"
 DgÈú          Put (length is even?1:0) spaces in front of it " jihgfedcba"
     ø         Zip (reinjects the input implicitly): ["a ", "bj", "ci", ...]
      vy       For each element of the list
        NÉè    Extract&push element[iteration is odd?1:0] 
           ?   Print without newline