Ваше завдання - написати програму, яка задала масив і число, вам потрібно розділити масив на шматки з розміром число.

Правила

Ваша програма отримає масив A, а також додатне ціле число n. Потім масив слід розділити на шматки довжини n, якщо довжина рядка не ділиться nжодним залишком на кінці, слід вважати його власним відрізком.

• Якщо nбільша довжина масиву A, вам потрібно буде повернути масив A, наприклад: якщо n = 4і array A = [1,2,3], ви повинні повернутися[1,2,3]

• Масив може містити будь-який тип, а не число.

• Не слід змінювати порядок (або напрямок) будь-якого предмета зліва направо. Наприклад if n = 2і A= [1,2,3]. Будь-який результат, а не [[1,2],[3]]буде недійсним.

Випробування

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

Це код-гольф , тож найкоротший байт кожної мови стане переможцем.

05AB1E , 1 байт

ô

Спробуйте в Інтернеті або перевірте всі тестові випадки .

Вбудовані ftw. :)

JavaScript (ES6), 36 байт

Вводиться як " (n)(array).

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

Спробуйте в Інтернеті!

Прокоментував

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 байт ^SBCS

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

Велика подяка Адаму за те, що в основному я займаюся гольфом (і за всі знання APL, які я зараз маю> _>).

Пояснення

 ⊂⍨           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

Виконання

Аргументи 2, 1 2 3 4 5 6 7. Зауважте, що масиви APL мають форму a b c, з необов’язковими оточуючими дужками.

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

Спробуйте в Інтернеті!

Python 3 , 61 байт

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

Спробуйте в Інтернеті!

Модифікує існуюче рішення Генрі Т Python 3 для отримання дійсного виводу для n> = len (A).
Опублікування як власна відповідь через відсутність привілеїв для коментування.

Prolog (SWI) , 90 84 61 байт

Код:

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

Формат введення може бути трохи дивним, але це:

A * n * Result.

Наприклад, для введення:

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

Вам потрібно буде скористатися [1, 2, 3, 4, 5, 6] * 2 * Result..

Спробуйте в Інтернеті!

Негольована версія:

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

Спробуйте в Інтернеті! .

PHP, 15 байт

$f=array_chunk;

вимагає PHP 7. Дзвінок за допомогою $f(ARRAY, N).

Perl 6 , 13 байт

{*.batch($_)}

Спробуйте в Інтернеті!

Загорнута функція, що обгортає batchвбудований.

Чисто , 54 байти

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

Спробуйте в Інтернеті!

Python 2 , 39 байт

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

Спробуйте в Інтернеті!

Припускає, що 1 шматок на рядок є прийнятним результатом.

Brainfuck, 71 байт

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

Не знаю, чи вважається це чи ні ... формат введення:

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

Бере введення та розміщує пробіл кожного разу, коли nсимволи проходять

Пояснення (без коми через те, що це порушило б програму):

, 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

Пітон 3, 46 символів

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

-1 завдяки @Collin Phillips.

Спробуйте в Інтернеті!

CJam , 3 байти

{/}

Це анонімний блок, який бере масив чисел із числа зі стека та замінює їх масивом масивів.

Спробуйте в Інтернеті!

Брахілог , 2 байти

ġ₎

Спробуйте в Інтернеті!

Еліксир , 16 байт

Enum.chunk_every

Спробуйте в Інтернеті!

Вугілля деревне , 1 байт

⪪

Спробуйте в Інтернеті! За замовчуванням введення / виведення деревного вугілля важко продемонструвати, використовуючи що-небудь, крім рядків. Якщо ви хочете отримати повну програму, яка приймає числові списки та виводить списки у форматі, це можна зробити наступним чином:

Ｅ⪪ＡＮ⪫ι,

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Пояснення:

  Ａ      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 # (Visual C # Interactive Compiler) , 78 77 43 байт

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

Спробуйте в Інтернеті!

Я думаю, ми повинні мати можливість просто писати, int i;оскільки 0 є типовим значенням int. Я дозволив йому уникнути помилок: error CS0165: Use of unassigned local variable 'i'.

F # (.NET Core) , 15 байт

Seq.chunkBySize

Спробуйте в Інтернеті!

Ну F # має вбудований ...

J , 4 байти

<\~-

Спробуйте в Інтернеті!

Приймає масив як лівий аргумент, а розмір фрагменту - як правий аргумент.

Використовує діадичний гак та прислівник інфіксації з негативним аргументом, який робить те, що ми хочемо за визначенням.

Примітка. Тип повернення повинен бути встановлений у вікні, оскільки J дозволяє лише таблиці рівних елементів.

Japt , 2 байти

òV

Спробуйте в Інтернеті!

PHP , 45 байт

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

Спробуйте в Інтернеті!

Java 10, 106 80 байт

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

Друкує шматки без роздільника.

Спробуйте в Інтернеті.

106 байт:

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;}

Фактично повертає список списків.

Спробуйте в Інтернеті.

Пояснення:

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 байт

{(0N,x)#y}

Спробуйте в Інтернеті!

Рубін , 25 байт

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

Спробуйте в Інтернеті!

Якщо ми можемо повернути обчислювачі замість масивів, то це стане просто:

Рубін , 21 байт

->n,a{a.each_slice n}

Спробуйте в Інтернеті!

PicoLisp , 75 74 байти

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

Спробуйте в Інтернеті!

Кокос , 8 байт

groupsof

Спробуйте в Інтернеті!

V , 6 байт

òÀf,r

Спробуйте в Інтернеті!

Hexdump:

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

Пояснення:

ò           " 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 байт

#(partition %)

здається, будується

Haskell , 26 байт

import Data.Lists
chunksOf

Ось більш цікава версія, що містить лише кілька байтів (завдяки німі за п’ять байтів у кожному рішенні):

Haskell , 31 байт

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

Спробуйте в Інтернеті!

PowerShell , 67 65 байт

-2 байти дякую AdmBorkBork

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

Спробуйте в Інтернеті!

Желе , 1 байт

s

Спробуйте в Інтернеті!

Хоча принтер виглядає так, що одноелементні розбиття не загорнуті в списки, вони насправді є.