あなたの仕事は、数字と文字列を与えられた文字列をそのサイズのチャンクに分割し、それらを逆にするプログラムを書くことです。

ルール

プログラムは、正の整数とn、s印刷可能なASCIIのみ（空白を含まない）で構成される長さ少なくとも1つの文字列を受け取ります。文字列nの長さがn残りの部分で割り切れない場合、文字列はlengthのチャンクに分割される必要があります。次に、チャンクの順序を逆にして、再びまとめます。

テストケース

n   s           Output

2   abcdefgh    ghefcdab
3   foobarbaz   bazbarfoo
3   abcdefgh    ghdefabc
2   a           a
1   abcdefgh    hgfedcba
2   aaaaaa      aaaaaa
2   baaaab      abaaba
50  abcdefgh    abcdefgh
6   abcdefghi   ghiabcdef

これはcode-golfなので、できるだけ少ないバイトを目指してください。

ゼリー、2 バイト

sṚ

結果を出力する完全なプログラム。

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

どうやって？

sṚ - Main link: string, number                                   e.g. 'abcdefg', 3
s  - split string into chunks of length number (keeping any overflow) ["abc","def","g"]
 Ṛ - reverse the resulting list                                       ["g","def","abc"]
   - implicit print                                                   gdefabc

Python 3、35バイト

f=lambda s,n:s and f(s[n:],n)+s[:n]

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

05AB1E、5 4 3バイト

-1 Dennisに
感謝-1 carusocomputingに感謝

ôRJ

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

     # Implicit: push input
 ô   # Split in pieces of length b
  RJ # Reverse and join

JavaScript（ES6）、37バイト

n=>F=s=>s&&F(s.slice(n))+s.slice(0,n)

カリー化によって入力を取得します：最初に数値、次に文字列、のようにf(2)("abcdefgh")。

let f =
n=>F=s=>s&&F(s.slice(n))+s.slice(0,n)

let g = (n, s) => console.log(`f(${n})("${s}"): ${f(n)(s)}`)

g(2, "abcdefgh")
g(3, "foobarbaz")
g(3, "abcdefgh")
g(2, "a")
g(1, "abcdefgh")
g(2, "aaaaaa")
g(2, "baaaab")
g(50, "abcdefgh")

Perl 6の、 28の  20バイト

{$^b.comb($^a).reverse.join}

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

{[R~] $^b.comb($^a)}

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

拡張：

{  # bare block lambda with placeholder parameters ｢$a｣ and ｢$b｣
  [R[~]] # reduce the following using the reverse meta operator `R`
         # combined with the string concatenation operator

    # `comb` with a number splits the invocant into chunks of that size
    $^b.comb($^a)
}

Bash + coreutils、22

fold -$1|tac|tr -d \\n

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

Haskell、32バイト

n#""=""
n#s=n#drop n s++take n s

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

PHP、53バイト

<?=join(array_reverse(str_split($argv[2],$argv[1])));

ロダ、36バイト

f n{[[_]..[try head n-1]]|reverse|_}

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

これは、1つの引数を取る関数です。文字列の文字はストリーム内にある必要があります。

tryhead関数がn-1値を読み取れない場合にエラーを破棄するために使用されます。

説明：

f n{[[_]..[try head n-1]]|reverse|_}
f n{                               } /* Function declaration */
                                     /* In a loop: */
      _                              /*   Pull one value */
           try head n-1              /*   Pull n-1 values (or less) */
     [ ]..[            ]             /*   Make an array */
    [                   ]            /*   Push it to the stream */
                         |reverse    /* Reverse all values in the stream */
                                 |_  /* Flat all arrays in the stream */
                                     /* Characters in the stream are printed */

通常ほど難読化されていません。とても美しいと思います。:)

CJam、5バイト

q~/W%

入力は、空白で区切られた二重引用符で囲まれた数字と文字列です。

オンラインでお試しください！または、すべてのテストケースを確認します。

説明

q~   e# Read all input and evaluate: pushes a number and a string
/    e# Split string into chunks of that size. Last chunk may be
     e# smaller. Gives an array of strings
W%   e# Reverse the array. Implicitly display

バッチ、74バイト

@if %2=="" (echo %~3)else set s=%~2&call %0 %1 "%%s:~%1%%" "%%s:~,%1%%%~3"

むしろ迷惑なことに、これは末尾再帰ではなく再帰的になります。

V、13 10バイト

òÀ|lDÏpòÍî

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

ò      ò    ' Recursively
 À|         ' Go to the "nth" column
   l        ' Move one character right (breaks loop when no more chunks)
    D       ' Delete from here to the end of the line
     Ï      ' Add a line above the current line (now contains one chunk)
      p     ' Paste the remainder of the line that was deleted
        Íî  ' Remove all newlines

動作中：

abcdefghijkl

に変わる

efghijkl
abcd

になる

ijkl
efgh
abcd

すべての改行が削除される前

brainfuck、78バイト

,<<<+[[>]>+>[[>],<[<]>+>-]<-[->>[>]>>+<<<[<]<]>>]<<<<[[<]>[-[+.[-]]+>]<[<]<<<]

入力の最初のバイトは、バイト値で指定されたチャンクサイズです。残りのバイトは文字列と見なされます。

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

展開およびコメント

Read the chunk size byte
This cell will become a counter cell
,

Move left a few cells an increment; 
this is to make the starting position 
line up with the relative positioning
needed to fit in with the loop
<<<+

While the current cell is nonzero:
[

 Move right to the first zero cell
 [>]

 Move right once and increment and then move right to the counter cell
 The increment is required because of "move to zero cell" loops
 >+>

 This loop will store one chunk of the input in consecutive memory cells
 [
  [>]   Move right until a zero cell is hit
  ,     Store 1 byte of input there
  <[<]  Move back left until a zero cell (other than the current one) is hit
  >+>-  Increment the temporary cell by 1 and decrement the counter
 ] (end loop once the counter hits zero)

 Decrement the temp cell (because we needed to have 1 there initially to make the cell location work)
 <-

 Move the temp cell to three cells after the end of the chunk
 This is the new counter cell for the next chunk
 [->>[>]>>+<<<[<]<]

 Move two cells right from where the temp cell was
 This is the first cell of the chunk; if it's 0
 then the input is finished and the loop should end
 >>
]

Due to the way the counter is kept track of the tape head
will always be four cells to the right of the last input cell
when the loops breaks
<<<<

Now the chunks are printed one by one
At the start of an iteration the tape head is at the end of a chunk
[
 Locate the start of the last chunk
 [<]>

 Print the chunk:
 [
  Print the byte held in the current cell if it isn't 1
  This is necessary because we left a stray 1 in a cell at
  the start which shouldn't be printed
  -[+.[-]]+

  Move to the next cell
  >
 ]

 Move to just left of the chunk
 <[<]

 Move three cells over to the end of the next chunk
 <<<
]

PowerShell、56 49バイト

mazzyのおかげで-7バイト

param($n,$s)$s-split"(.{$n})"-ne''|%{$r=$_+$r};$r

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

Mathematica、46バイト

""<>Reverse@Partition[Characters@#2,#,#,1,{}]&

匿名関数。入力として数値と文字列を受け取り、出力として文字列を返します。ここではあまり見ません。

Javascript- 54 47 46バイト

リメイク：

(s,n)=>s.match(eval(`/.{1,${n}}/g`)).reverse()

使用されます

f=(s,n)=>s.match(eval(`/.{1,${n}}/g`)).reverse()
alert(f("abcdefgh",2));

正規表現の高速化のために@ETHproductionsに感謝します。

元の：

(s,n)=>s.match(new RegExp('.{1,'+n+'}','g')).reverse()

Pyth、5バイト

s_c.*

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

説明

   .*  splat implicit input
  c    split into chunks length n
 _     reverse
s      join

網膜、38バイト

@LeakyNunのおかげで1バイト節約

^

+`(.* (1)+¶)((?<-2>.)+)
$3$1
 1+¶

（2行目のスペースと末尾のスペースに注意してください）

このプログラムは、最初の行に入力を単項として受け取り、2行目に文字列を受け取ります。

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

テストスイート！（わずかに変更）

説明

最初のステップは、スペースを追加することです（後で重要になります）。

^
 

今度は逆になります。これは、.NETのバランスグループを使用します。ここでのグループはスタックとして機能するため、すべての一致は基本的にスタックにプッシュされることに注意することが重要です。ここで、単項数のすべての数字をグループ2にキャプチャします。文字列内の文字が見つかるたびに、グループ2から一致がポップされます。これにより、文字数が単項数を超えないようになります。

+`(.* (1)+¶)                       Capture the unary number in group 2
             ((?<-2>.)+)           Balancing group for substrings
$3$1                               Reverse

最後に、単項数と改行を削除します。

 1+¶

Java、147 138バイト

String r(String s,int n){String r="";int l=s.length();for(int i=l/n*n;i>=0;i-=n)if(!(i>=l))r+=(i+n)>=l?s.substring(i):s.substring(i,i+n);return r;}

Kevin Cruijssenのおかげで9バイト節約できました！

String r(String s,int n){String r="";int l=s.length(),i=l/n*n;for(;i>=0;i-=n)if(i<l)r+=i+n>=l?s.substring(i):s.substring(i,i+n);return r;}

展開された形式：

String r(String s,int n){
    String r="";
    int l=s.length(),i=l/n*n;
    for(;i>=0;i-=n)
        if(i<l)
            r+=i+n>=l?s.substring(i):s.substring(i,i+n);
    return r;
}

これは実際に私が初めてcodegolfを試すので、フィードバックは大歓迎です！

Perl 5、25バイト

-lnM5.010フラグを使用します。

say reverse<>=~/.{1,$_}/g

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

について教えてくれたグリンツへの叫び =~ m/.{1,$n}/g

-M5.010say関数の使用を有効にします。この関数は、短い名前で印刷します。

-n入力の最初の行をに入れ、末尾の改行$_を-l削除します。

次に、を使用して入力の2行目を取得し、<>それを正規表現に適用します.{1,$_}：1〜$ _（最初の入力）回の間の任意の文字。これはデフォルトで貪欲であるため、常に$ _文字に一致しようとします。1,最後に可能な残りのチャンクのために必要とされています。

/g修飾子は、私たちに与えおき、その後反転して印刷されたリストとして入力文字列内のその正規表現の一致を。Perlでは、sayデフォルトでリストを渡すと、区切り文字なしでリストが結合されます。

Dyalog APL Extended、16 15バイト

{∊⌽⍵⊂⍨(≢⍵)⍴=⍳⍺}

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

Python、62バイト

lambda n,s:''.join([s[i:i+n]for i in range(0,len(s),n)][::-1])

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

積み上げ、9バイト

#<rev''#`

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

#<空の文字列でチャンク、revリバース、および''#`結合します。とても簡単です。

QBIC、24バイト

:;[1,_lA|,a|Z=_sA,b,a|+Z

これは、最近QBICに追加した新しいサブストリング関数をうまく利用しています。

:;          Read in the cmd line params a (number) and A$ (text)
[1,_lA|,a|  Set up a FOR loop: FOR b = 1; b <= A$.length; b += a
Z=          Modify Z$; Z$ is autoprinted at the end of QBIC code
_sA,b,a|    SUBSTRING: _s is the function followed by the string 
               to take from, the starting pos and the # of chars
+Z          Take chunks from further into A$, put them before Z$

Pyth、4バイト

s_cF

入力を受け取ります"s",n：自分で試してみてください！

凸、2バイト

/¥

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

C、69バイト

i;f(s,n)char*s;{i=strlen(s);for(i-=i%n;printf("%.*s",n,s+i),i;i-=n);}

結果は標準出力に出力されます。

Scala、57 55バイト

(n:Int,s:String)=>(""/:s.grouped(n).toSeq.reverse)(_+_)

ジェイコブありがとう！それを試してみてくださいここでください。

注：foldLeft（ "/："）のシンボル形式を使用することで、さらに2バイトを取り出すことができました。

オーム、5バイト

σ]QWJ

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

説明

σ]QWJ
σ         # Split input1 into input2 pieces
 ]        # Flatten array
  Q       # Reverses stack
   W      # Wraps stack to array
    J     # Joins stack
          # Implicit print

R、69 60バイト

function(s,n)cat(substring(s,(x=nchar(s):0*n)+1,x+n),sep="")

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

削除する提案をしてくれたKirill L.に感謝しseqます。