Nhiệm vụ của bạn là viết một chương trình đưa ra một mảng và một số, bạn cần chia mảng thành các phần với kích thước là số.

Quy tắc

Chương trình của bạn sẽ nhận được một mảng A, cũng như một số nguyên dương n. Mảng sau đó nên được chia thành các đoạn có độ dài n, nếu độ dài của chuỗi không chia hết cho nbất kỳ phần dư nào ở cuối thì nên được coi là đoạn riêng của nó.

• Nếu nlớn hơn độ dài của mảng A, bạn sẽ cần trả về mảng A, ví dụ: if n = 4và array A = [1,2,3], bạn nên trả về[1,2,3]

• Các mảng có thể chứa bất kỳ loại chứ không phải số.

• Bạn không nên thay đổi thứ tự (hoặc hướng) của bất kỳ mục nào từ trái sang phải. Ví dụ if n = 2và A= [1,2,3]. Bất kỳ kết quả hơn là [[1,2],[3]]sẽ không hợp lệ.

Các trường hợp thử nghiệm

n   A               Output

2   [1,2,3,4,5,6]   [[1,2],[3,4],[5,6]]
3   [1,2,3,4,5,6]   [[1,2,3],[4,5,6]]
4   [1,2,3,4,5,6]   [[1,2,3,4],[5,6]]

Đây là môn đánh gôn , do đó, các byte ngắn nhất của mỗi ngôn ngữ sẽ là người chiến thắng.

05AB1E , 1 byte

ô

Hãy thử trực tuyến hoặc xác minh tất cả các trường hợp thử nghiệm .

Nội bộ ftw. :)

JavaScript (ES6), 36 byte

Đưa đầu vào là (n)(array).

n=>g=a=>a+a&&[a.splice(0,n),...g(a)]

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

Đã bình luận

n =>                  // n = chunk size
  g = a =>            // g = recursive function taking the array a[]
    a + a             // if a[] is empty, stop recursion and return an empty string
    &&                // otherwise, return an array made of:
    [ a.splice(0, n), //   the next chunk
      ...g(a)         //   followed by the result of a recursive call
    ]                 //   (the last call leads to ...'', which adds nothing)

APL (Dyalog Unicode) , 12 byte ^SBCS

⊢⊂⍨(⍴⊢)⍴1↑⍨⊣

Cảm ơn rất nhiều về Adám về cơ bản đã thực hiện tất cả các môn đánh gôn (và về cơ bản tất cả các kiến ​​thức về APL tôi hiện có> _>).

Giải trình

 ⊂⍨           Partitioned enclose (commuted, i.e. left and right switched) - for each ⍵ in left, ⍺ in right, if ⍺ = 0, create a new sub-array, push ⍵ to latest sub-array
⊢             Right argument of entire expression
       ⍴      Reshape - Change size of right into dimensions specified by left
   (⍴ )       Shape of (here, there is only one dimension - length)
     ⊢        Right argument of entire expression
         ↑⍨   Take (commuted) - takes ⍺ elements from left where ⍺ is right. Extra elements (zeroes here) are automatically added
        1     1
           ⊣  Left argument of entire expression

Chấp hành

Lập luận 2, 1 2 3 4 5 6 7. Lưu ý rằng mảng APL có dạng a b c, với các dấu ngoặc đơn xung quanh tùy chọn.

           ⊣  2
        1     1
         ↑⍨   1↑2 = 1 0
     ⊢        1 2 3 4 5 6 7
   (⍴ )       ⍴1 2 3 4 5 6 7 = 7
       ⍴      7⍴1 0 = 1 0 1 0 1 0 1
⊢             1 2 3 4 5 6 7
 ⊂⍨           1 0 1 0 1 0 1⊂1 2 3 4 5 6 7 = (1 2)(3 4)(5 6)(7)

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

Python 3 , 61 byte

lambda A,n:[A,[A[x:x+n]for x in range(0,len(A),n)]][n<len(A)]

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

Sửa đổi giải pháp Python 3 hiện tại của Henry T để tạo đầu ra hợp lệ cho n> = len (A).
Đăng bài như câu trả lời của riêng mình do thiếu đặc quyền bình luận.

Prolog (SWI) , 90 84 61 byte

Mã số:

[]*_*[].
L*N*[P|R]:-length(P,N),append(P,T,L),T*N*R;P=L,R=[].

Định dạng đầu vào có thể hơi lạ, nhưng đó là:

A * n * Result.

Ví dụ: đối với đầu vào:

n = 2
 A = [1, 2, 3, 4, 5, 6]

Bạn sẽ cần phải sử dụng [1, 2, 3, 4, 5, 6] * 2 * Result..

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

Phiên bản bị đánh cắp:

divide([], _, []).
divide(List, N, [Prefix | Result]) :-
    length(Prefix, N), append(Prefix, Remaining, List), divide(Remaining, N, Result) 
  ; Prefix = List, Result = [].

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

PHP, 15 byte

$f=array_chunk;

yêu cầu PHP 7. Gọi với $f(ARRAY, N).

Perl 6 , 13 byte

{*.batch($_)}

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

Hàm curried gói tích batchhợp.

Sạch , 54 byte

import StdEnv
$n l=[l%(i,i+n-1)\\i<-[0,n..length l-1]]

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

Python 2 , 39 byte

i,j=input()
while j:print j[:i];j=j[i:]

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

Giả sử rằng 1 chunk trên mỗi dòng là đầu ra chấp nhận được.

Brainfuck, 71 byte

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

Không biết điều này có tính hay không ... định dạng đầu vào:

<character whose ascii is n>AAAAAAAAAAAAA
For example, in the input:
 1234567890123492034
n is 32 since the ASCII value of space is 32

Đưa đầu vào và đặt vào khoảng trống mỗi khi nký tự đi qua

Giải thích (không có dấu phẩy vì điều đó sẽ phá vỡ chương trình):

, take n
[>+>+<<-] copy into next two cells (destroys original)
>>>, take first of A into next cell
[ while that input exists
<[>.,<-] if n is nonzero output take next of A subtract one from n
>>>++++[<++++++++>-]<.[-]< n is zero so put a space
<<[<+>>+<-] copy the old n into surrounding cells
<[->+<] move from first cell to second
>>>] take input, do again

Python 3, 46 ký tự

lambda A,n:[A[:n],*(f(A[n:],n)if A[n:]else[])]

-1 cảm ơn @Collin Phillips.

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

CJam , 3 byte

{/}

Đây là một khối ẩn danh lấy một mảng các số và một số từ ngăn xếp và thay thế chúng bằng một mảng các mảng.

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

Brachylog , 2 byte

ġ₎

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

Thuốc tiên , 16 byte

Enum.chunk_every

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

than củi , 1 byte

⪪

Hãy thử trực tuyến!I / O mặc định của Char than làm cho việc chứng minh bằng cách sử dụng bất cứ thứ gì ngoại trừ chuỗi. Nếu bạn muốn một chương trình đầy đủ lấy danh sách số và xuất ra danh sách được định dạng thì điều này có thể được thực hiện như sau:

Ｅ⪪ＡＮ⪫ι,

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

  Ａ      Input array
 ⪪       Split into chunks of
   Ｎ     Input number
Ｅ       Map over chunks
     ι  Current chunk
    ⪫   Joined with
      , Literal `,`
        Implicitly print each chunk on its own line

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

a=>b=>{int i=0;return a.GroupBy(_=>i++/b);}

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

Tôi nghĩ rằng chúng ta có thể chỉ cần viết int i;vì 0 là mặc định của int. Tôi để nó tránh lỗi : error CS0165: Use of unassigned local variable 'i'.

F # (.NET Core) , 15 byte

Seq.chunkBySize

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

Vâng F # có được xây dựng trong ...

J , 4 byte

<\~-

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

Lấy mảng là arg trái và kích thước chunk như arg phải.

Sử dụng hook dyadic và trạng từ infix với một đối số phủ định, đó là những gì chúng ta muốn theo định nghĩa.

Lưu ý: Loại trả về phải được đóng hộp vì J chỉ cho phép các bảng của các mục có kích thước bằng nhau.

Japt , 2 byte

òV

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

PHP , 45 byte

function f($a,$b){return array_chunk($a,$b);}

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

Java 10, 106 80 byte

L->n->{for(int l=L.size(),i=0;i<l;)System.out.print(L.subList(i,(i+=n)<l?i:l));}

In các đoạn mà không có dấu phân cách.

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

106 byte:

L->n->{var r=new java.util.Stack();for(int l=L.size(),i=0;i<l;)r.add(L.subList(i,(i+=n)<l?i:l));return r;}

Thực tế trả về một danh sách các danh sách.

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

Giải trình:

L->n->{                       // Method with List and integer parameters and List return-type
  var r=new java.util.Stack();//  Create an empty List
  for(int l=L.size(),         //  Determine the size of the input-List
      i=0;i<l;)               //  Loop `i` in the range [0, size):
    r.add(                    //   Add to the result-List:
      L.subList(i,            //    A sublist of the input-list in the range from `i`
        Math.min(i+=n,l)));   //    to the minimum of: `i` + input-integer or the size
                              //    (and increase `i` by the input-integer at the same)
  return r;}                  //  Return the List of Lists of integers as result

K (oK) , 10 byte

{(0N,x)#y}

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

Ruby , 25 byte

->n,a{[*a.each_slice(n)]}

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

Nếu chúng ta có thể trả về các điều tra viên thay vì mảng, thì nó trở nên đơn giản:

Ruby , 21 byte

->n,a{a.each_slice n}

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

PicoLisp , 75 74 byte

(de f(n l)(if(>= n(length l))(list l)(cons(head n l)(f n(tail(- 0 n)l)))))

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

Dừa , 8 byte

groupsof

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

V , 6 byte

òÀf,r

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

Hexdump:

00000000: f2c0 662c 720a                           ..f,r.

Giải trình:

ò           " Until an error happens:
  f         "   (f)ind the...
 À          "     n'th...
   ,        "     ","
            "   (If there are less than n commas after the cursor, throw an error)
    r       "   Replace the char under the cursor with...
     <cr>   "     A newline

Clojure, 14 byte

#(partition %)

tôi đoán

Haskell , 26 byte

import Data.Lists
chunksOf

Đây là một phiên bản thú vị hơn, chỉ với một vài byte (nhờ nimi cho năm byte trong mỗi giải pháp):

Haskell , 31 byte

n![]=[]
n!x=take n x:n!drop n x

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

PowerShell , 67 65 byte

-2 byte cảm ơn admBorkBork

param($n,$a)$a|%{$b+=,$_
if($b.Count-ge$n){,$b;rv b}}
if($b){,$b}

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

Thạch , 1 byte

s

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

Mặc dù máy in làm cho nó trông giống như các phần tử tách đơn không được gói vào danh sách, nhưng thực tế chúng là như vậy.