整数kとテキストブロック、または内部配列の長さが等しくない（テキストブロックに似ている）2d配列の場合、k番目の列のすべての文字または要素を次の位置まで上下に回転させます。それが存在します。

例

次のテキストの20番目の列を回転します（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.

出力：

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.

35 < k <42 である同じ入力のk番目の列を回転すると、入力テキストは変更されません。

ルール

• 生のテキスト、行の配列、2Dの文字配列、またはデータを表すための妥当な形式を使用できます。文字以外のデータ型を使用することもできます。
• 要素のデータ型の可能な値の数は、コード長に依存する場合は少なくとも20、それ以外の場合は少なくとも2でなければなりません。これは、ネイティブ型でサポートされる文字または他の値のサブセットです。
• 入力で許可されている場合、スペースとあらゆる種類のヌル値は通常の値です。要素タイプで単純に除外することもできます。
• ルールの変更：データを保存するために同じ長さの配列を使用する場合、短い配列に一般的なデフォルト値（スペースなど）を埋め込むことができます。
• kは0ベースまたは1ベースです。入力の最長行内にあることが保証されています（入力に少なくとも1つの空でない行があることを意味します）。
• 上下に回転するかどうかを選択できます。
• だけ回転1の位置、又は回転のいずれかのN位置Nは、入力で与えられた正の整数です。
• 最短のコードが優先されます。

APL（Dyalog Extended）、9 バイト^SBCS

完全なプログラム。stdinにテキストの2Dブロックを要求し、k（APLの現在の設定に応じて0ベースまたは1ベース）、nの順に要求します。正のnは上に回転し、負のnは下に回転します。

ドメインは、次のいずれかで構成されます。

1. スペースを除くすべてのUnicode文字。許可される値は1114111で、必要な20を超えます。

2. 0を除くすべての数値で、約2 ^129の許容値が残っており、これは必要な20を超えています

APLでは2Dブロックが長方形である必要があるため、入力にはスペース/ゼロを埋め込む必要があります。これは↑、文字列/数値リストのリストの左側に入力することにより、自動的に実行できます。

⎕⌽@≠@⎕⍢⍉⎕

オンラインでお試しください！（見かけのスペースは実際には改行なしスペースです）

⎕ テキストブロックのプロンプト

⍢⍉ 転置中：

 @⎕ 入力の行に次を適用します。

  @≠ プロトタイプとは異なる要素（文字のスペース、数字のゼロ）：

   ⎕⌽ 「入力」ステップを左に回転

APL（Dyalog Unicode）、22 バイト以上の^SBCS

このバージョンでは、ゼロを識別可能な塗りつぶし要素として使用して、完全な文字セットを使用できます。

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

オンラインでお試しください！

もちろん、これは数値引数にゼロを使用できないことを意味します。すべての数字に対応するプログラムでは、3つのオカレンスが0置き換えられ' '、スペースが塗りつぶされます。

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

文字と数字の両方の完全な範囲（混合であっても）が本当に必要な場合は、nullを塗りつぶしとして使用できます。

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

最後に、入力ドメインにヌルとオブジェクトを含める場合、fillクラスを定義し、このインスタンスをfillとして使用できます。

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

パイソン2、111 110 109 99 98の 96の 94バイト

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)]

オンラインでお試しください！

入力を行のリストおよび0インデックス列として受け取り、文字列のリストを返します。

列が上に回転します1。

_{-11バイト、Jo Kingのおかげ}

ジャワ8、107の 106 135 107バイト

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バイト。

0インデックス付き。例のように下に回転します。
文字行列として入力。バイトを節約するために新しいものを返す代わりに、char-matrixを変更します。

オンラインでお試しください。

説明：

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バイト

算術3進数に変更して-7バイト、インプレース文字（TIL）を変更して-9バイト、stdinのインデックスと文字列を引数として入力して-4バイト、配列の代わりに文字列を使用して-5バイト回転する文字を保存します。

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

古い 古い 古い 古い オンラインで試してみてください！

この回答を機能させるための鍵は次のとおりです。

• $array[0]または$string[0]常に空です
• $array[n]または$string[n]、nが配列/文字列の長さより大きい場合は空
• array[i]=cまたはstring[i]=c、要素/文字を置き換えます。
• では$[$#s<i?0:++j]、jは増加しません$#s<i。

元の94バイトの回答には、<<<印刷に使用することに関連する興味深い問題がありました。私はechoそれを回避するために使用しなければなりませんでした：

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

この理由は次のとおりです。

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

here-stringsは、別のプログラムにstdinとして渡されるため、サブシェルで実行されます。プログラムが指定されていない場合、暗黙的にに指定されcatます。これはで確認できます<<< $_。 <<< $ZSH_SUBSHELLに似ていecho $ZSH_SUBSHELL | catます。インクリメントする必要があるためj、サブシェルにすることはできません。

R、62バイト

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

オンラインでお試しください！

入力をスペースで埋められた文字のマトリックスとして受け取ります。上に回転します。キリル・Lに感謝します！

R、74バイト

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

オンラインでお試しください！

この提出は、パディングされた行の許可よりも前です。

エイリアシングsubstr私たちが呼んでいるので、ここで仕事をしませんsubstrし、substr<-最初の行に。

非パディング行のリストとしてのI / O。上向きに回転します。

C＃（Visual C＃Interactive Compiler）、82バイト

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

オンラインでお試しください！

foreach12バイトの節約につながった提案をしてくれた@ASCIIOnlyに感謝します！

@someoneのおかげで-8バイト！
@EmbodimentofIgnoranceのおかげで-1バイト！

ルビー、57バイト

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

オンラインでお試しください！

入力を行の配列として受け取りますa。0から始まる位置でテキストを下に回転しますk。入力を変更して戻りますa。

05AB1E、21 バイト

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

間違いなくもっとゴルフをすることができます。

0インデックス付き。入力と出力の両方を文字列のリストとして。
例のように下に回転し<ますが、代わりに上>に回転するように置き換えることができます。

オンラインで試す（フッターはリストを改行で結合し、削除して実際のリスト出力を確認します）。

説明：

ʒ  }             # 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バイト

溶液：

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

説明：

私が何かを逃しているかどうかわからない... 0インデックス、上に回転します（下に回転するには1を変更-1します）

{.[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バイト

入力と出力が複数行の文字列である0ベース。1回転します。

もっと短い方法があります！

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

それを試してみてください

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

ゼリー、16バイト

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

左側の行のリスト（改行文字を含まない文字のリスト）を受け入れ、右側の整数で行のリストを返す2項リンク。

オンラインでお試しください！（フッターは改行で分割され、リンクを呼び出し、再び改行で結合されます）

どうやって？

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バイト

kは0から始まり、下に回転します

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

TIO

Perl 6の、38の 33バイト

配列を所定の位置に変更します（ルールは許可しません）

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

オンラインでお試しください！

JavaScript（Node.js）、52バイト

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

オンラインでお試しください！

シャギーのおかげで-7バイト！

JavaScriptの回答がまだありませんでした！私のC＃回答のポート。

炭、34 28 21バイト

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

オンラインでお試しください！リンクは、コードの詳細バージョンです。入力として文字列の配列を受け取ります。0インデックス。編集：これPeekDirectionは修正されました。直接操作できます。説明：

θ

入力文字列を出力します。

Ｊη⁰

回転する列の上部にジャンプします。

≔ΦＫＤＬθ↓℅ιζ

印刷されたセルを抽出します。

ＵＭζ§ζ⊖κ

印刷された各セルを前のセルの値に（周期的に）置き換えます。便利なことに、PeekDirection呼び出し時にセルの値が読み取られるため、MapCommand呼び出しがセルに新しい値を書き込むという事実は重要ではありません。

ピップ -rn、32バイト

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

0インデックス、下に回転します。 オンラインでお試しください！

回転に参加するのに十分な長さのすべての行のインデックスを見つけるためのフィルター。次に、これらの行をループし、各行の適切な文字を一時変数に交換しますs。最後に最初の行に再度アクセスすると、ダミー値が再びスワップアウトされます。

ゼリー、19バイト

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

オンラインでお試しください！

1インデックス。下に回転します。右詰めのJelly文字列のリスト（文字のリストのリスト）を最初の引数、kを2番目の引数として取るモナドリンク。右パディング以外の入力ではスペースを使用できませんが、他のすべての文字は許可されます。

TIOに実装されているように、フッターは単一の文字列入力を文字列のリストに分割して右詰めしますが、これは便宜上のものです。私が理解しているように、そのステップの結果は、ルールごとにメインリンクへの入力が許可されています。

GFortran、199バイト

_{-20程度、ファイルではなくstdinから読み込む場合
-14スペースを削除してi, k, n
-4の暗黙的な整数を使用する場合、::}

ユーザーが入力する必要があります kし、n最初のライン上にk回転するように列であり、nテキストの行数です。後続の入力は、回転するテキストの行です。これは書くのが大変でした！Fortranはとても独創的です！

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

• コメントと編集メモ付きのオリジナルの、未登録のプログラム：rotcol.f
• 203バイトバージョン：rextester.com
• 199バイトバージョン（新規）：オンラインでお試しください！

T-SQL、195バイト

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

オンラインそれを試してみてください ungolfedバージョン