Cho một số nguyên k và một khối văn bản hoặc một mảng 2d mà các mảng bên trong có thể có độ dài không bằng nhau (giống với một khối văn bản), xoay mọi ký tự hoặc phần tử trong cột thứ k lên hoặc xuống vị trí tiếp theo tồn tại

Thí dụ

Xoay cột thứ 20 của văn bản sau (dựa trên 1):

A line with more than k characters.
A longer line with more than k character.
A short line.
Rotate here: ------v--
This is long enough.

This is not enough.
Wrapping around to the first line.

Đầu ra:

A line with more thtn k characters.
A longer line with aore than k character.
A short line.
Rotate here: ------m--
This is long enoughv

This is not enough.
Wrapping around to .he first line.

Xoay cột thứ k của cùng một đầu vào trong đó 35 < k <42 sẽ mang lại văn bản đầu vào không thay đổi.

Quy tắc

• Bạn có thể sử dụng văn bản thô, một mảng các dòng, một mảng các ký tự 2d hoặc bất kỳ định dạng hợp lý nào để thể hiện dữ liệu. Bạn cũng có thể sử dụng các loại dữ liệu khác với các ký tự.
• Số lượng giá trị có thể có của kiểu dữ liệu của các phần tử phải có ít nhất 20 nếu độ dài mã của bạn phụ thuộc vào nó, nếu không thì ít nhất 2. Đây có thể là tập hợp con của các ký tự hoặc các giá trị khác được hỗ trợ trong kiểu gốc.
• Không gian và bất kỳ loại giá trị null nào chỉ là giá trị bình thường, nếu bạn cho phép chúng trong đầu vào. Bạn cũng có thể đơn giản loại trừ chúng trong loại phần tử.
• Thay đổi quy tắc: Bạn được phép đệm các mảng ngắn hơn với giá trị mặc định chung (chẳng hạn như khoảng trắng), nếu bạn thích sử dụng các mảng có độ dài bằng nhau để lưu trữ dữ liệu.
• k có thể là 0 dựa hoặc 1 dựa. Nó được đảm bảo nằm trong dòng dài nhất trong đầu vào (ngụ ý đầu vào có ít nhất một dòng không trống).
• Bạn có thể chọn xem nó xoay lên hay xuống.
• Chỉ cần xoay một vị trí hoặc xoay n vị trí trong đó n là số nguyên dương được cho trong đầu vào.
• Mã ngắn nhất sẽ thắng.

APL (Dyalog Extended) , 9 byte ^SBCS

Chương trình đầy đủ. Nhắc stdin cho khối văn bản 2D, sau đó k (dựa trên 0 hoặc dựa trên 1, tùy thuộc vào cài đặt hiện tại của APL), sau đó n . Tích cực n xoay lên, n âm quay xuống.

Tên miền bao gồm một trong những điều sau đây:

1. tất cả các ký tự Unicode, ngoại trừ khoảng trắng , để lại 1114111 giá trị được phép, nhiều hơn 20 yêu cầu.

2. tất cả các số, ngoại trừ 0 , để lại khoảng 2 ¹²⁹ giá trị được phép, nhiều hơn 20 yêu cầu.

Vì APL yêu cầu các khối 2D phải là hình chữ nhật, đầu vào phải được đệm bằng khoảng trắng / số không. Điều này có thể được thực hiện tự động bằng cách nhập vào ↑bên trái của danh sách các chuỗi / danh sách số.

⎕⌽@≠@⎕⍢⍉⎕

Hãy thử trực tuyến! (các không gian rõ ràng thực sự là không gian không phá vỡ)

⎕ lời nhắc cho khối văn bản

⍢⍉ trong khi chuyển đổi:

 @⎕ áp dụng như sau trên hàng đầu vào:

  @≠ tại các yếu tố khác với nguyên mẫu của chúng (không gian cho các ký tự, không cho các số):

   ⎕⌽ xoay các bước "đầu vào" sang trái

APL (Dyalog Unicode) , 22+ byte ^SBCS

Phiên bản này cho phép bộ ký tự đầy đủ bằng cách sử dụng các số không làm phần tử điền có thể nhận dạng.

0~¨⍨↓⍉⎕⌽@(0≠⊢)@⎕⍉↑0,¨⎕

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

Tất nhiên điều này có nghĩa là các số 0 không được phép trong các đối số số. Chương trình tương ứng cho tất cả các số sẽ có ba lần 0thay thế ' 'và do đó sử dụng khoảng trắng dưới dạng điền:

' '~¨⍨↓⍉⎕⌽@(' '≠⊢)@⎕⍉↑' ',¨⎕

Nếu chúng tôi thực sự muốn toàn bộ phạm vi (thậm chí là hỗn hợp) cả ký tự và số, chúng tôi có thể sử dụng null dưới dạng điền:

n~¨⍨↓⍉⎕⌽@(n≠⊢)@⎕⍉↑⎕,¨⍨n←⎕NULL

Và cuối cùng, nếu chúng ta muốn bao gồm null và các đối tượng trong miền đầu vào, chúng ta có thể định nghĩa một lớp điền và sử dụng các thể hiện của điều này như là điền:

~∘I¨⍨↓⍉⎕⌽@(~⊢∊I←⎕INSTANCES⊢∘C)@⎕⍉↑⎕,¨⍨⎕NEW⎕FIX':Class C' ':EndClass'

Python 2 , 111 110 109 99 98 96 94 byte

lambda a,n:[l[:n]+(l[n:]and[L[n]for L in a[i:]+a if L[n:]][1]+l[n+1:])for i,l in enumerate(a)]

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

Lấy đầu vào dưới dạng danh sách các dòng và cột 0 chỉ mục và trả về danh sách các chuỗi.

Cột được xoay lên 1.

_{-11 byte, nhờ Jo King}

Java 8, 107 106 135 107 byte

k->m->{int s=m.length,i=-1;for(char p=0,t;i<s;t=m[i%s][k],m[i%s][k]=p<1?t:p,p=t)for(;m[++i%s].length<=k;);}

+29 byte cho một sửa lỗi ..

Chỉ số 0; xoay xuống như ví dụ.
Đầu vào dưới dạng ma trận ký tự; sửa đổi ma trận char thay vì trả về một ma trận mới để lưu byte.

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

Giải trình:

k->m->{                 // Method with integer and char-matrix parameters and no return-type
  int s=m.length,       //  Amount of lines in the matrix `s`
      i=-1;             //  Index-integer `i`, starting at -1
  for(char p=0,         //  Previous-character, starting at 0
           t;           //  Temp-char, uninitialized
      i<s               //  Loop as long as `i` is smaller than `s`:
      ;                 //    After every iteration:
       t=m[i%s][k],     //     Set the temp to the `k`th character of the `i`'th line
       m[i%s][k]=       //     Replace the `k`'th character of the `i`'th line with:
         p<1?           //      If `p` is still 0:
          t             //       Set it to the temp we just set
         :              //      Else:
          p,            //       Set it to the previous-character instead
       p=t)             //     And then replace `p` with the temp for the next iteration
    for(;m[++i          //   Increase `i` by 1 before every iteration with `++i`,
             %s].length //   And continue this loop until the length of the `i`'th line
           <=k;);}      //   is smaller than or equal to the input `k`

Zsh , 94 87 78 74 69 byte

-7 byte bằng cách thay đổi thành một ternary số học, -9 byte bằng cách thay đổi ký tự tại chỗ (TIL), -4 byte bằng cách nhập chỉ mục vào stdin và chuỗi dưới dạng đối số, -5 byte bằng cách sử dụng chuỗi thay vì một chuỗi để lưu trữ các ký tự xoay.

read i
for s;c+=$s[i]
c=$c[-1]$c
for s;s[i]=$c[$[$#s<i?0:++j]]&&<<<$s

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

Dưới đây là các chìa khóa để làm cho câu trả lời này hoạt động:

• $array[0]hoặc $string[0]luôn trống
• $array[n]hoặc $string[n]trống nếu n lớn hơn độ dài của mảng / chuỗi
• array[i]=choặc string[i]=csẽ thay thế các yếu tố / nhân vật.
• Trong $[$#s<i?0:++j], jđược không tăng lên nếu $#s<i.

Trong câu trả lời 94 byte ban đầu, có một vấn đề thú vị mà tôi gặp phải liên quan đến việc sử dụng <<<để in. Tôi đã phải sử dụng echođể có được xung quanh nó:

for s;echo $s[0,i-1]$c[$[$#s<i?0:++j]]${s:$i}

Lý do cho điều này có thể được nhìn thấy ở đây:

echo $ZSH_SUBSHELL   # prints 0
<<< $ZSH_SUBSHELL    # prints 1

Các chuỗi ở đây được chạy trong các chuỗi con vì chúng được cung cấp dưới dạng stdin cho một chương trình khác. Nếu không có chương trình nào được đưa ra, nó được ngầm định đưa ra cat. Bạn có thể thấy điều này với <<< $_. <<< $ZSH_SUBSHELLcũng tương tự như echo $ZSH_SUBSHELL | cat. Vì chúng ta cần tăng lên j, chúng ta không thể ở trong một nhánh con.

R , 62 byte

function(L,n){L[A,n]<-rep(L[A<-L[,n]!=' ',n],2)[1+1:sum(A)];L}

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

Đưa đầu vào dưới dạng ma trận đệm không gian của các ký tự. Xoay lên trên. Tất cả là nhờ Kirill L. !

R , 74 byte

function(L,n){substr(L[A],n,n)=rep(substr(L[A<-nchar(L)>=n],n,n),2)[-1]
L}

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

Trình này trước phụ cấp của các dòng đệm.

Bí danh substrở đây sẽ không hoạt động vì chúng tôi đang gọi substrvà substr<-trong dòng đầu tiên.

I / O như một danh sách các dòng không đệm; xoay lên trên.

C # (Trình biên dịch tương tác Visual C #) , 82 byte

k=>a=>{var c='0';a.Where(b=>b.Count>k&&((b[k],c)=(c,b[k])).c>0).ToList()[0][k]=c;}

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

Tín dụng cho @ASCIIOnly để đề xuất foreachdẫn đến tiết kiệm 12 byte!

-8 byte nhờ @someone!
-1 byte nhờ @EmbodimentofIgnorance!

Ruby , 57 byte

->a,k{b=a.map{|i|i[k]}-[p];c=-2;a.map{|i|i[k]&&=b[c+=1]}}

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

Đưa đầu vào như một mảng của các dòng a. Xoay văn bản xuống ở vị trí dựa trên 0 k. Trả về bằng cách sửa đổi đầu vào a.

05AB1E , 21 byte

ʒg‹}U¹εXyk©diX®<èIèIǝ

Chắc chắn có thể được đánh gôn thêm ..

Chỉ số 0; đầu vào và đầu ra cả hai như một danh sách các chuỗi.
Nó xoay xuống như ví dụ, nhưng <có thể được thay thế bằng >để xoay lên thay thế.

Hãy thử trực tuyến (chân trang tham gia danh sách theo dòng mới, xóa nó để xem đầu ra danh sách thực tế).

Giải trình:

ʒ  }             # Filter the (implicit) input-list by:
 g               #  Where length of the current string
  ‹              #  is larger than the (implicit) input-integer
    U            # Pop and store this filtered list in variable `X`
¹ε               # Map over the first input-list again:
  Xyk            #  Get the index of the current string in variable `X`
     ©           #  Store it in the register (without popping)
      di         #  If the index is not -1, so the current string is present in variable `X`
        X®<è     #   Get the (index-1)'th string in variable `X`
            Iè   #   Get the character at the index of the input-integer
              Iǝ #   And insert it at the index of the input-integer in the current string

K4 , 41 byte

Dung dịch:

{.[x;i;:;.q.rotate[1;x . i:(&y<#:'x;y)]]}

Giải trình:

Không chắc chắn nếu tôi thiếu thứ gì đó ... 0 chỉ mục, xoay lên (thay đổi thành 1để -1xoay xuống)

{.[x;i;:;.q.rotate[1;x . i:(&y<#:'x;y)]]} / the solution
{                                       } / lambda taking implicit x and y
 .[x; ;:;                              ]  / index apply assignment back into x
         .q.rotate[1;                 ]   / left rotate 1 character
                           (       ; )    / two item list
                                    y     / index to rotate
                               #:'x       / count (#:) each (') input
                             y<           / index less than ?
                            &             / indexes where true
                         i:               / assign to variable w
                     x .                  / index into x
     i                                    / indexes we saved as i earlier

Japt v2.0a0, 18 byte

Dựa trên 0 với đầu vào và đầu ra dưới dạng chuỗi nhiều dòng. Xoay lên 1.

Phải có một phương pháp ngắn hơn!

yÈr\S_Y¦V?Z:°TgXrS

Thử nó

yÈr\S_Y¦V?Z:°TgXrS     :Implicit input of string U & integer V
y                      :Transpose
 È                     :Pass each line X at 0-based index Y through the following function & transpose back
  r                    :  Replace
   \S                  :  RegEx /\S/g
     _                 :  Pass each match Z through the following function
      Y¦V              :    Test Y for inequality with V
         ?Z:           :    If true, return Z, else
            °T         :    Increment T (initially 0)
              g        :    Index into
               XrS     :    X with spaces removed

Thạch , 16 byte

z⁷⁹ịỴFṙ-ṁƲY⁸ṛ⁹¦"

Liên kết dyadic chấp nhận danh sách các dòng (danh sách các ký tự không chứa ký tự dòng mới) ở bên trái và một số nguyên ở bên phải trả về danh sách các dòng.

Hãy thử trực tuyến! (chân trang tách ra trên dòng mới, gọi Liên kết và tham gia lại bằng dòng mới)

Làm sao?

z⁷⁹ịỴFṙ-ṁƲY⁸ṛ⁹¦" - Link: lines L; index I        e.g. example in question; 20
z⁷               - transpose L with filler '\n'       ['AAART\nTW', '   oh\nhr', ...]
  ⁹ị             - Ith item                           'am\nv.\n\nt'
    Ỵ            - split at newlines                  ['am', 'v.', '', 't']
         Ʋ       - last four links as a monad - i.e. f(X):
     F           -   flatten                          'amv.t'
       -         -   -1
      ṙ          -   rotate left by                   'tamv.'
        ṁ        -   mould like X                     ['ta', 'mv', '', '.']
          Y      - join with newlines                 'ta\nmv\n\n.'
                 -   -- call this C
           ⁸     - chain's left argument, L
               " - zip with - i.e. [f(L1,C1), f(L2,C2), ...]:
              ¦  -   sparse application...
             ⁹   -   ...to indices: chain's right argument, I
            ṛ    -   ...of: right argument, Cn

perl 5 ( -p), 75 byte

k là 0 chỉ mục, xoay xuống

s/.*//;$r="^.{$&}";s/
//;/$r(.)/;$c=$1;s/$r\K.(?=(?s:.)*?$r(.)|)/$1||$c/gme

TIO

Perl 6 , 38 33 byte

Sửa đổi mảng tại chỗ (quy tắc không cho phép)

{@^a.grep(*>$^b+1)[*;$b].=rotate}

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

JavaScript (Node.js) , 52 byte

k=>a=>a.filter(b=>b[k]&&([b[k],a]=[a,b[k]]))[0][k]=a

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

-7 byte nhờ Shaggy!

Chưa thấy câu trả lời JavaScript! Cổng câu trả lời C # của tôi.

Than , 34 28 21 byte

θＪη⁰≔ΦＫＤＬθ↓℅ιζＵＭζ§ζ⊖κ

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Lấy một chuỗi các chuỗi làm đầu vào. Chỉ số 0. Chỉnh sửa: Bây giờ PeekDirectionđã được sửa, tôi có thể thao tác trực tiếp. Giải trình:

θ

In các chuỗi đầu vào.

Ｊη⁰

Nhảy lên đỉnh cột cần xoay.

≔ΦＫＤＬθ↓℅ιζ

Trích xuất các ô đã được in.

ＵＭζ§ζ⊖κ

Thay thế mỗi ô được in bằng giá trị của ô trước đó (theo chu kỳ). Thuận tiện các giá trị ô được đọc tại thời điểm PeekDirectioncuộc gọi vì vậy thực tế rằng MapCommandcuộc gọi ghi các giá trị mới vào các ô không thành vấn đề.

Đường ống -rn , 32 byte

POgY#(g@_)>aFI,#gFiyAE@ySsg@i@ag

Chỉ số 0, quay xuống. Hãy thử trực tuyến!

Các bộ lọc để tìm các chỉ số của tất cả các hàng đủ dài để tham gia vào vòng quay. Sau đó lặp qua các hàng đó, hoán đổi ký tự thích hợp trên mỗi hàng bằng biến tạm thời s. Đến thăm hàng đầu tiên một lần nữa ở cuối, hoán đổi giá trị giả trở lại.

Thạch , 19 byte

ZnÄ×$ịḟ¹ṙ-;ɗɗʋ€⁹¦⁶Z

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

1 chỉ mục. Xoay xuống. Một liên kết đơn âm có một danh sách các chuỗi Jelly được đệm bên phải (một danh sách các danh sách các ký tự) làm đối số đầu tiên và k là đối số thứ hai. Dấu cách bị cấm trong đầu vào ngoại trừ phần đệm bên phải, nhưng tất cả các ký tự khác đều được phép.

Như được thực hiện trên TIO, phần chân trang sẽ chia một đầu vào chuỗi đơn thành một danh sách các chuỗi và phần đệm bên phải, nhưng điều này là để thuận tiện; theo tôi hiểu, kết quả của bước đó được cho phép nhập vào liên kết chính theo quy tắc.

GFortran , 199 byte

_{-20 hoặc hơn bằng cách đọc từ stdin chứ không phải tệp
-14 bằng cách sử dụng số nguyên ẩn cho i, k, n
-4 bằng cách xóa khoảng trắng và::}

Yêu cầu người dùng nhập kvà ntrên dòng đầu tiên, kcột xoay ở đâu và nsố lượng hàng văn bản. Đầu vào tiếp theo là các dòng văn bản sẽ được xoay. Đây là một nỗi đau để viết! Fortran là quá tầm thường!

character(99),allocatable::A(:);character(1)r,s
read(*,*)k,n;allocate(A(n))
do i=1,n;read(*,'(A)')A(i);r=A(i)(k:k)
if(r.ne.''.or.r.ne.' ')then;A(i)(k:k)=s;s=r;endif;enddo
A(1)(k:k)=s;print'(A)',A;end

• Chương trình gốc, chưa được chỉnh sửa ở đây, với các bình luận và ghi chú tổng hợp: rotcol.f
• Phiên bản 203 byte: rextester.com
• Phiên bản 199 byte (mới): Dùng thử trực tuyến!

T-SQL, 195 byte

WITH C as(SELECT rank()over(order by i)r,sum(1)over()c,*FROM @t
WHERE len(x)>=@)SELECT
isnull(stuff(c.x,@,1,substring(e.x,@,1)),t.x)FROM @t t
LEFT JOIN c ON t.i=c.i
LEFT JOIN c e ON e.r%c.c+1=c.r

Dùng thử phiên bản không có bản quyền