ท้าทาย

เขียนโปรแกรมหรือฟังก์ชั่นที่ใช้ในสตริงsและจำนวนเต็มnเป็นพารามิเตอร์ โปรแกรมของคุณควรพิมพ์ (หรือส่งคืน) สตริงเมื่อถูกแปลงดังนี้:

เริ่มต้นที่ด้านบนซ้ายและย้ายลงและไปทางขวา, เขียนเป็นคลื่นของความสูงs nจากนั้นจากบนลงล่างให้รวมแต่ละแถวเป็นสตริง (โดยไม่มีช่องว่าง)

ตัวอย่าง

รับสตริง "WATERMELON" และความสูง 3:

คลื่นควรมีลักษณะเช่นนี้:

W   R   O
 A E M L N
  T   E

จากนั้นรวมแถวจากบนลงล่าง:

WRO
AEMLN
TE

ดังนั้นโปรแกรมของคุณควรส่งคืนสตริง "WROAEMLNTE"

เช่นเดียวกัน "WATERMELON" ที่มีความสูง 4 ควรสร้างคลื่นต่อไปนี้:

W     E
 A   M L
  T R   O
   E     N

โปรแกรมของคุณควรส่งคืนสตริง "WEAMLTROEN"

กฎระเบียบ

อินพุต

สามารถป้อนข้อมูลในรูปแบบที่เหมาะสม สตริงสามารถในกรณีใด ๆ ที่คุณต้องการ คุณอาจคิดว่า0 < n <= s.length

เอาท์พุต

เอาต์พุตควรประกอบด้วยสตริงที่แปลงแล้วเท่านั้น (ไม่ว่าจะส่งคืนหรือพิมพ์ไปยัง STDOUT) รวมถึงการขึ้นบรรทัดใหม่

เกณฑ์การให้คะแนน

นี่คือcode-golfดังนั้นคำตอบที่สั้นที่สุดในจำนวนไบต์ชนะ! ไม่อนุญาตช่องโหว่มาตรฐาน

กรณีทดสอบ

Input                        Output

programmingpuzzles, 5 ->     piermnlsomgzgapzru
codegolf, 3           ->     cgoeofdl
elephant, 4           ->     enlatehp
1234567, 3            ->     1524637
qwertyuiop, 1         ->     qwertyuiop

Husk , 6 ไบต์

δÖK…¢ḣ

ลองออนไลน์!

ใช้งานได้สำหรับ n = 1ดีเช่นกัน

คำอธิบาย

δÖK…¢ḣ  Implicit inputs, say n=4 and s="WATERMELON"
     ḣ  Range: [1,2,3,4]
    ¢   Cycle: [1,2,3,4,1,2,3,4,1,2,3,4..
   …    Rangify: [1,2,3,4,3,2,1,2,3,4,3,2..
δÖK     Sort s by this list: "WEAMLTROEN"
        Print implicitly.

ฟังก์ชั่นการสั่งซื้อที่สูงขึ้นใช้δงานได้ภายใต้ประทุน สมมติว่าคุณมีฟังก์ชั่นการสั่งซื้อที่สูงกว่าที่รับฟังก์ชั่นยูนารีและรายการและส่งคืนรายการใหม่ ตัวอย่างเช่นÖรับฟังก์ชั่นและเรียงลำดับรายการโดยใช้เป็นคีย์ จากนั้นδÖรับฟังก์ชั่นไบนารี่และสองรายการทำการรวมรายการเข้าด้วยกันนำÖไปใช้กับการเรียงลำดับคู่โดยใช้ฟังก์ชั่นไบนารี่เป็นคีย์ เราใช้Kเป็นฟังก์ชั่นหลักซึ่งจะส่งกลับอาร์กิวเมนต์แรกและละเว้นข้อที่สอง

MATL , 16 ไบต์

Zv3L)t?yn:)2$S}i

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

คำอธิบาย

พิจารณาอินพุต5, 'programmingpuzzles'.

Zv     % Input, implicit: number n. Symmetric range
       % STACK: [1 2 3 4 5 4 3 2 1]
3L     % Push [1 -1+1j]. When used as an index, this means 1:end-1
       % STACK: [1 2 3 4 5 4 3 2 1], [1 -1+1j]
)      % Index. Removes last element
       % STACK: [1 2 3 4 5 4 3 2]
t      % Duplicate
       % STACK: [1 2 3 4 5 4 3 2], [1 2 3 4 5 4 3 2]
?      %   If non-empty and non-zero
       %   STACK: [1 2 3 4 5 4 3 2]
  y    %   Implict input: string s. Duplicate from below
       %   STACK: 'programmingpuzzles', [1 2 3 4 5 4 3 2], 'programmingpuzzles'
  n    %   Number of elements
       %   STACK: 'programmingpuzzles', [1 2 3 4 5 4 3 2], 18
  :    %   Range
       %   STACK: 'programmingpuzzles', [1 2 3 4 5 4 3 2], [1 2 3 ··· 17 18]
  )    %   Index modularly
       %   STACK: 'programmingpuzzles', [1 2 3 4 5 4 3 2 1 2 3 4 5 4 3 2 1 2]
  2$S  %   Two-input sort: stably sorts first input as given by the second
       %   STACK: 'piermnlsomgzgapzru'
}      % Else. This branch is entered when n=1. The stack contains an empty array
       %   STACK: []
  i    %   Take input
       %   STACK: [], [], 'programmingpuzzles'
       % End, implicit
       % Display stack, implicit. Empty arrays are not displayed

Haskell , 64 ไบต์

s#n=[c|m<-[0..n],(c,i)<-zip s.cycle$[0..n-1]++[n-2,n-3..1],i==m]

ลองออนไลน์!

J , 54, 29, 27 26 ไบต์

-1 ไบต์ขอบคุณ hoosierEE

([\:#@[$[:}:|@i:@<:@]) ::[

ลองออนไลน์!

R , 68 ไบต์

function(s,n)intToUtf8(unlist(split(utf8ToInt(s),-(n:(2.9-n)-1)^2)))

ลองออนไลน์!

• -10 ไบต์ขอบคุณ @Giuseppe
• -17 ไบต์เพราะฉันโง่
• -9 ไบต์และ n=1อักษรคงที่ต้องขอบคุณ @ J.Doe
• -3 ไบต์ขอบคุณ @JayCe

Python 2 , 119 108 98 92 91 97 93 91 90 ไบต์

lambda s,n:''.join(c*(j%(2*n-2or 1)in(i,2*n-i-2))for i in range(n)for j,c in enumerate(s))

ลองออนไลน์!

_{-1 ไบต์ขอบคุณ Jonathan Frech}

05AB1E (ดั้งเดิม) , 11 8 ไบต์

Σ²Lû¨¾è¼

แรงบันดาลใจจาก@LuisMendo 's คำตอบ
-3 ไบต์ต้องขอบคุณ@Adnanเพราะฉันเป็นคนงี่เง่า .. >.>

ลองมันออนไลน์

คำอธิบาย:

Σ           # Sort the (implicit) input-string by:
 ²L         #  Create a list in the range [1, second input-integer]
            #   i.e. 5 → [1,2,3,4,5]
   û        #  Palindromize it
            #   i.e. [1,2,3,4,5] → [1,2,3,4,5,4,3,2,1]
    ¨       #  Remove the last item
            #   i.e. [1,2,3,4,5,4,3,2,1] → [1,2,3,4,5,4,3,2]
     ¾è     #  Index into it (with wraparound) using the counter_variable (default 0)
            #   i.e. counter_variable = 0 → 1
            #   i.e. counter_variable = 13 → 4
       ¼    #  And after every iteration, increase the counter_variable by 1

หมายเหตุ: counter_variableมีการใช้งานเพราะใน Python Legacy รุ่น 05AB1E Σนั้นไม่มีดัชนีในตัวN- ซึ่งมีอยู่ใน Elixir รุ่นใหม่ที่เขียนใหม่ของ 05AB1E เหตุใดฉันจึงยังใช้เวอร์ชันดั้งเดิมอยู่ เพราะในยาอายุวัฒนะเขียนมันโดยปริยายแปลงสตริงไปยังรายการของตัวอักษรที่กำหนดเพิ่มเติม}Jที่จะเปลี่ยนมันกลับเป็นสตริงเพื่อส่งออก (และก็ยังมีข้อผิดพลาดในขณะนี้ที่èไม่ได้ทำงานที่ทุกดัชนีลงในรายการ lengthened .. : S)

Japt , 16 ไบต์

¬üÏu´VÑ aV°ÃÔc q

ทดสอบออนไลน์!

คำอธิบาย

 ¬ üÏ   u´ VÑ  aV° Ã Ô c q
Uq üXY{Yu--V*2 aV++} w c q    Ungolfed
                               Implicit: U = input string, V = size of wave
Uq                             Split U into chars.
   üXY{            }           Group the items in U by the following key function:
       Y                         Take the index of the item.
        u--V*2                   Find its value modulo (V-1) * 2.
               aV++              Take the absolute difference between this and (V-1).
                                 This maps e.g. indices [0,1,2,3,4,5,6,7,...] with V=3 to
                                                        [2,1,0,1,2,1,0,1,...]
                                 The items are then grouped by these values, leading to
                                 [[2,6,...],[1,3,5,7,...],[0,4,...]].
                     w         Reverse the result, giving [[0,4,...],[1,3,5,7,...],[2,6,...]].
                       c       Flatten.
                         q     Join back into a single string.

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

6 byter ล้มเหลวสำหรับความสูง 1; สองไบต์ใช้เพื่อจัดการกับมัน ... อาจจะสามารถพบได้ 7

ŒḄṖȯ1ṁỤị

ลิงก์ dyadic ยอมรับจำนวนเต็มบวกและรายการอักขระที่ให้รายการของอักขระ

ลองออนไลน์!

อย่างไร?

ŒḄṖȯ1ṁỤị - Link: positive integer N; list of characters, T
ŒḄ       - bounce (implicit range of) N -> [1,2,3,...,N-1,N,N-1,...,3,2,1]
  Ṗ      - pop off the final entry         [1,2,3,...,N-1,N,N-1,...,3,2]
   ȯ1    - OR one                          if this is [] get 1 instead
     ṁ   - mould like T (trim or repeat to make this list the same length as T)
      Ụ  - grade-up (get indices ordered by value - e.g. [1,2,3,2,1,2] -> [1,5,2,4,6,3])
       ị - index into T

JavaScript (ES6), 75 ไบต์

สูตรสั้นที่แนะนำโดย @MattH (-3 ไบต์)

(string)(n)จะเข้าเป็น

s=>n=>--n?[...s].map((c,x)=>o[x=x/n&1?n-x%n:x%n]=[o[x]]+c,o=[])&&o.join``:s

ลองออนไลน์!

JavaScript (ES7), 78 ไบต์

บันทึกแล้ว 4 ไบต์ด้วย @ETHproductions

(string)(n)จะเข้าเป็น

s=>n=>--n?[...s].map((c,x)=>o[x=n*n-(x%(n*2)-n)**2]=[o[x]]+c,o=[])&&o.join``:s

ลองออนไลน์!

K ( Kona ), 23 ไบต์

คำแปลของคำตอบ J โดยเลน

{y@<(#y)#-1_(!x),|!x-1}

MBASIC , 146 159 155 ไบต์

1 INPUT S$,N:DIM C$(N):P=1:D=1:FOR I=1 TO LEN(S$):C$(P)=C$(P)+MID$(S$,I,1)
2 IF N>1 THEN P=P+D
3 IF P=N OR P=1 THEN D=-D
4 NEXT:FOR I=1 TO N:PRINT C$(I);:NEXT

อัปเดตเพื่อจัดการ n = 1

เอาท์พุท:

? programmingpuzzles, 5
piermnlsomgzgapzru

? codegolf, 3
cgoeofdl

? elephant, 4
enlatehp

? 1234567, 3
1524637

? WATERMELON, 4
WEAMLTROEN

? qwertyuiop, 1
qwertyuiop

Perl 6 , 49 ไบต์

->\n{*.comb.sort({-abs n-1-$++%(2*n-2||1)}).join}

ลองออนไลน์!

รับอินพุตเป็นฟังก์ชัน curried

คำอธิบาย:

->\n{*.comb.sort({-abs n-1-$++%(2*n-2||1)}).join}
->\n{                                           }  # Take an number
     *.comb        # Turn the string into a list of chars
           .sort({                       })   # And sort them by
                           $++    # The index of the char
                              %(2*n-2||1)  # Moduloed by 2*(n-1) or 1 if n is 0
                       n-1-       # Subtract that from n-1
                   abs            # get the absolute value
                  -               # And negate to reverse the list
                                          .join  # and join the characters

ลำดับที่เรียงตามลักษณะเช่นนี้ (สำหรับn=5):

(-4 -3 -2 -1 0 -1 -2 -3 -4 -3 -2 -1 0 -1 -2 -3 -4 -3 -2 -1)

J , 24 ไบต์

4 :'x\:(#x)$}:|i:<:y'::[

ลองออนไลน์!

คำกริยา dyadic ชัดเจน 'codegolf' f 3เรียกมันเหมือน

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

4 :'x\:(#x)$}:|i:<:y'::[    x: string, y: height
4 :                         Define a dyadic verb:
               i:<:y        Generate a range of -(y-1) .. y-1
            }:|             Take absolute value and remove last
       (#x)$             1) Repeat to match the string's length
    x\:                     Sort x by the decreasing order of above
                     ::[    If 1) causes `Length Error`, return the input string instead

โดยปกติจะใช้เวลาการทำงานอย่างชัดเจนอีก 5 n :'...'ไบต์ในรูปแบบของ แต่ถ้าจัดการข้อผิดพลาดจะมีการเพิ่มความแตกต่างลงไป 2 ไบต์เนื่องจากการ parens (tacit)<space>::และพื้นที่ใน

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

{⍺[⍋(≢⍺)⍴(¯1↓⊢,1↓⌽)⍳⍵]}

ลองออนไลน์!

Powershell, 99 95 ไบต์

param($s,$n)$r=,''*$n
$s|% t*y|%{$r[((1..$n+$n..1)*$s.Length|gu)[$i++*($n-gt1)]-1]+=$_}
-join$r

สคริปต์ทดสอบ:

$f = {

param($s,$n)$r=,''*$n
$s|% t*y|%{$r[((1..$n+$n..1)*$s.Length|gu)[$i++*($n-gt1)]-1]+=$_}
-join$r

}

@(
    ,("1234567", 3            ,     "1524637")
    ,("qwertyuiop", 1         ,     "qwertyuiop")
    ,("codegolf", 3           ,     "cgoeofdl")
    ,("elephant", 4           ,     "enlatehp")
    ,("programmingpuzzles", 5 ,     "piermnlsomgzgapzru")
) | % {
    $s,$n,$e = $_
    $r = &$f $s $n
    "$($r-eq$e): $r"
}

เอาท์พุท:

True: 1524637
True: qwertyuiop
True: cgoeofdl
True: enlatehp
True: piermnlsomgzgapzru

คำอธิบาย

บท:

• สร้างอาร์เรย์ของแถว
• เติมแถวด้วยค่าที่เหมาะสม
• และส่งคืนแถวที่เข้าร่วม

การแสดงออก((1..$n+$n..1)*$s.Length|gu สร้างลำดับเช่น1,2,3,3,2,1,1,2,3,3,2,1... และลบรายการที่อยู่ติดกัน guเป็นนามแฝงสำหรับรับที่ไม่ซ้ำกัน

• สำหรับ$n=3ลำดับ deduplicated คือ:1,2,3,2,1,2,3,2,1...
• สำหรับ$n=1ลำดับ deduplicated คือ:1

นิพจน์$i++*($n-gt1) คืนค่าดัชนีตามลำดับที่ซ้ำซ้อน =$i++ถ้า$n>1ไม่เช่นนั้น=0

Ruby , 75 65 ไบต์

->s,h{a=['']*h;x=-k=1;s.map{|c|a[x+=k=h-x<2?-1:x<1?1:k]+=c};a*''}

ลองออนไลน์!

รับอินพุตเป็นอาร์เรย์ของ chars ส่งคืนสตริง

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

• สร้างhสตริง
• สำหรับอักขระแต่ละตัวในสตริงป้อนเข้าให้เลือกสตริงที่จะใช้อ้างอิงตามดัชนี (ดัชนีของสตริงที่จะแก้ไขขึ้นไปจนถึง hจากนั้นลงไปเรื่อย ๆ จนกระทั่ง0ๆ )
• ส่งคืนสตริงทั้งหมดที่รวมเข้าด้วยกัน

C, 142 134 ไบต์

บันทึกไปแล้ว 8 ไบต์ขอบคุณ Jonathan Frech

รหัส:

t;i;j;d;f(s,n)char*s;{for(t=strlen(s),i=0;i<n;i++)for(j=0;j+i<t;j=d+i+(n<2))d=j-i+2*~-n,putchar(s[i+j]),i>0&i<n-1&d<t&&putchar(s[d]);}

คำอธิบาย:

// C variable and function declaration magic
t;i;j;d;f(s,n)char*s;{
    // Iterate through each "row" of the string
    for(t=strlen(s),i=0;i<n;i++)
        // Iterate through each element on the row
        // Original index iterator here was j+=2*(n-1), which is a full "zig-zag" forward
        // The (n<2) is for the edge case of n==1, which will break the existing logic.
        for(j=0; j+i<t; j=d+i+(n<2))
            // If j+i is the "zig", d is the "zag": Original index was d=j+i+2*(n-i-1)
            // Two's complement swag here courtesy of Jonathan Frech
            d=j-i+2*~-n,
            putchar(s[i+j]),
            // Short circuit logic to write the "zag" character for the middle rows
            i>0 & i<n-1 & d<t && putchar(s[d]);
}

ลองออนไลน์!

ถ่าน 21 ไบต์

⭆ＮΦη¬⌊Ｅ²﹪⁺μ⎇νι±ι∨⊗⊖θ¹

ลองออนไลน์! การเชื่อมโยงคือการสร้างรหัสเวอร์ชัน ทำงานโดยสังเกตว่าดัชนี$m$ ของตัวละครในบรรทัด $i$ สนองความสัมพันธ์ $m \pm i = 0 \pmod {2n - 2}$. คำอธิบาย:

 Ｎ                      First input as a number
⭆                       Map over implicit range and join
   η                    Second input
  Φ                     Filter over characters
       ²                Literal 2
      Ｅ                 Map over implicit range
          μ             Character index
             ι ι        Outer index
              ±         Negate
            ν           Inner index
           ⎇            Ternary
         ⁺              Plus
                   θ    First input
                  ⊖     Decremented
                 ⊗      Doubled
                    ¹   Literal 1
                ∨       Logical Or
        ﹪               Modulo
     ⌊                  Minimum
    ¬                   Logical Not
                        Implicitly print

SNOBOL4 (CSNOBOL4) , 191 ไบต์

	S =INPUT
	N =INPUT
	A =ARRAY(N)
	A<1> =EQ(N,1) S	:S(O)
I	I =I + -1 ^ D
	S LEN(1) . X REM . S	:F(O)
	A<I> =A<I> X
	D =EQ(I,N) 1
	D =EQ(I * D,1)	:(I)
O	Y =Y + 1
	O =O A<Y>	:S(O)
	OUTPUT =O
END

ลองออนไลน์!

เอาไปSแล้วNในบรรทัดแยกกัน

คำอธิบาย:

	S =INPUT			;* read S
	N =INPUT			;* read N
	A =ARRAY(N)			;* create array of size N
	A<1> =EQ(N,1) S	:S(O)		;* if N = 1, set A<1> to S and jump to O
I	I =I + -1 ^ D			;* index into I by I + (-1)^D (D starts as '' == 0)
	S LEN(1) . X REM . S	:F(O)	;* extract the first character as X and set S to the
					;* remaining characters, jumping to O when S is empty
	A<I> =A<I> X			;* set A<I> to A<I> concatenated with X
	D =EQ(I,N) 1			;* if I == N, D=1
	D =EQ(I * D,1)	:(I)		;* if I == D == 1, D = 0. Goto I
O	Y =Y + 1			;* increment the counter
	O =O A<Y>	:S(O)		;* concatenate the array contents until last cell
	OUTPUT =O			;* and print
END

สะอาด , 105 84 ไบต์

import StdEnv,Data.List
$s n=[c\\l<-[1..n],c<-s&m<-cycle([1..n]++[n-1,n-2..2])|m==l]

ลองออนไลน์!

JavaScript (Node.js) , 83 ไบต์

c=>g=(s,d=c*2-2,r=d,n=o='')=>s&&([...s].map((c,i)=>i%d%r?n+=c:o+=c),o)+g(n,r-1,r-2)

ลองออนไลน์!

Pyth , 22 21 ไบต์

|seMhD,V*lz+PUQP_UQzz

ใช้อินพุตnตามด้วยsบรรทัดแยก ลองออนไลน์ได้ที่นี่หรือตรวจสอบทุกกรณีการทดสอบในครั้งเดียวที่นี่

|seMhD,V*lz+PUQP_UQzz   Implicit: Q=eval(input()), z=remaining input

             UQ         Range [0-Q)
            P           All but last from the above
                         e.g. for Q=3, yields [0,1]
               P_UQ     All but last of reversed range
                         e.g. for Q=3, yields [2,1]
           +            Concatenate the previous two results
                          e.g. for Q=3, yields [0,1,2,1]
        *lz              Repeat len(z) times
      ,V           z    Vectorised pair the above with z, truncating longer to length of shorter
                          e.g. for Q=3, z=WATERMELON, yields:
                          [[0,'W'],[1,'A'],[2,'T'],[1,'E'],[0,'R'],[1,'M'],[2,'E'],[1,'L'],[0,'O'],[1,'N']]
    hD                  Sort the above by the first element
                          Note this is a stable sort, so relative ordering between equal keys is preserved
  eM                    Take the last element of each
 s                      Concatenate into string
                          Note that if n=1, the result of the above will be 0 (sum of empty array)
|                   z   If result of above is falsey, yield z instead

แก้ไข: บันทึกไบต์ด้วยการย้ายการตรวจสอบที่ว่างเปล่าไปยังจุดสิ้นสุดของการประมวลผล รุ่นก่อนหน้า: seMhD,V*lz|+PUQP_UQ]0z

สีแดง 153 ไบต์

func[s n][i: v: m: 1 b: collect[foreach c s[keep/only reduce[v i c]v: v + m
if all[n > 1(i: i + 1)%(n - 1)= 1][m: -1 * m]]]foreach k sort b[prin last k]]

ลองออนไลน์!

คำอธิบาย:

f: func [ s n ] [                      ; s is the string, n is the height
    i: 1                               ; index of the current character in the string
    v: 1                               ; value of the "ladder"
    m: 1                               ; step (1 or -1)
    b: collect [                       ; collect the values in a block b
        foreach c s [                  ; foreach character in the string 
            keep/only reduce [ v i c ] ; keep a block of the evaluated [value index char] 
            i: i + 1                   ; increase the index
            v: v + m                   ; calculate the value 
            if all [ n > 1             ; if height is greater than 1 and
                    i % (n - 1) = 1    ; we are at a pick/bottom of the ladder
                   ]
                [ m: -1 * m ]          ; reverse the step
        ]
    ]
    foreach k sort b [ prin last k ]   ; print the characters in the sorted block of blocks
]

ฉันมีสองวิธีแก้ไขปัญหา ทางออกแรกที่ฉันทำก่อนจากนั้นฉันก็คิดอีกวิธีหนึ่งที่ฉันคิดว่าจะช่วยประหยัดไบต์ แต่มันก็ไม่ได้รวมอยู่ด้วย

โซลูชันที่ 1

PHP , 152 144 116 ไบต์

<?php
for($i=0;$i<$n=$argv[2];$i++)
    for($j=$i;$s=$argv[1][$j];$j+=$n<2|(($f=!$f|!$i)?$i<$n-1?$n+~$i:$i:$i)*2)
        echo $s;

• 8 ไบต์ขอบคุณ @JoKing
• 28 ไบต์ขอบคุณ @Shaggy

ลองออนไลน์!

โซลูชันที่ 2

PHP , 162 ไบต์

<?php
$s=$argv[0];
$n=$argv[1];
$l=strlen($s);
for($i=0;$i<$l;){
    for($j=0;$j<$n&&$i<$l;)
        $a[$j++].=$s[$i++];
    for($j=$n-2;$j>0&&$i<$l;)
        $a[$j--].=$s[$i++];
}
echo join($a);

ลองออนไลน์!

Ruby , 84 ไบต์

->s,n{r=['']*n;[*0...n,*(2-n)..-1].map{|x|r[x.abs]+=s.slice!(0)||''}while s[0];r*''}

ลองออนไลน์!