Twoim zadaniem jest napisanie programu, który poda tablicę i liczbę, musisz podzielić tablicę na kawałki o rozmiarze liczba.

Zasady

Twój program otrzyma tablicę A, a także dodatnią liczbę całkowitą n. Tablica powinna być następnie podzielona na kawałki długości n, jeśli długość łańcucha nie jest podzielna przez nresztki na końcu, powinna być uważana za własną część.

• Jeśli njest większa niż długość tablicy A, musisz zwrócić tablicę A, na przykład: if n = 4i array A = [1,2,3]powinieneś zwrócić[1,2,3]

• Tablica może zawierać dowolny typ, a nie liczbę.

• Nie należy zmieniać kolejności (ani kierunku) żadnego elementu od lewej do prawej. Na przykład if n = 2i A= [1,2,3]. Każdy wynik zamiast [[1,2],[3]]będzie nieprawidłowy.

Przypadki testowe

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

To jest golf golfowy , więc wygrasz najkrótsze bajty każdego języka.

05AB1E , 1 bajt

ô

Wypróbuj online lub sprawdź wszystkie przypadki testowe .

Builtins ftw. :)

JavaScript (ES6), 36 bajtów

Pobiera dane wejściowe jako (n)(array).

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

Wypróbuj online!

Skomentował

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 bajtów ^SBCS

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

Ogromne podziękowania dla Adáma za po prostu granie w golfa (i za całą wiedzę APL, którą mam obecnie> _>).

Wyjaśnienie

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

Wykonanie

Argumenty 2, 1 2 3 4 5 6 7. Zauważ, że tablice APL są w formie a b c, z opcjonalnymi otaczającymi nawiasami.

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

Wypróbuj online!

Python 3 , 61 bajtów

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

Wypróbuj online!

Zmienia istniejące rozwiązanie Henry T Python 3, aby uzyskać prawidłowe dane wyjściowe dla n> = len (A).
Publikowanie jako własna odpowiedź z powodu braku uprawnień do komentowania.

Prolog (SWI) , 90 84 61 bajtów

Kod:

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

Format wejściowy może być nieco dziwny, ale jest to:

A * n * Result.

Na przykład dla danych wejściowych:

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

Musisz użyć [1, 2, 3, 4, 5, 6] * 2 * Result..

Wypróbuj online!

Wersja bez golfa:

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

Wypróbuj online! .

PHP, 15 bajtów

$f=array_chunk;

wymaga PHP 7. Zadzwoń z $f(ARRAY, N).

Perl 6 , 13 bajtów

{*.batch($_)}

Wypróbuj online!

Funkcja curry owijająca batchwbudowane.

Czysty , 54 bajty

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

Wypróbuj online!

Python 2 , 39 bajtów

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

Wypróbuj online!

Zakłada, że ​​1 porcja na linię jest akceptowalnym wyjściem.

Brainfuck, 71 bajtów

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

Nie wiem, czy to się liczy, czy nie ... format wejściowy:

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

Pobiera dane wejściowe i umieszcza spację za każdym razem, gdy nznaki przechodzą

Objaśnienie (bez przecinków, ponieważ spowodowałoby to uszkodzenie programu):

, 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 znaków

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

-1 dzięki @Collin Phillips.

Wypróbuj online!

CJam , 3 bajty

{/}

Jest to anonimowy blok, który pobiera tablicę liczb i liczb ze stosu i zastępuje je tablicą tablic.

Wypróbuj online!

Brachylog , 2 bajty

ġ₎

Wypróbuj online!

Eliksir , 16 bajtów

Enum.chunk_every

Wypróbuj online!

Węgiel , 1 bajt

⪪

Wypróbuj online! Domyślne wejścia / wyjścia Charcoal utrudniają zademonstrowanie użycia czegokolwiek poza łańcuchami. Jeśli chcesz mieć pełny program, który pobiera listy numeryczne i wyświetla listy sformatowane, można to zrobić w następujący sposób:

Ｅ⪪ＡＮ⪫ι,

Wypróbuj online! Link jest do pełnej wersji kodu. Wyjaśnienie:

  Ａ      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 # (interaktywny kompilator Visual C #) , 78 77 43 bajtów

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

Wypróbuj online!

Myślę, że powinniśmy móc po prostu pisać, int i;ponieważ 0 jest domyślną wartością int. I niech to, aby uniknąć błędu: error CS0165: Use of unassigned local variable 'i'.

F # (.NET Core) , 15 bajtów

Seq.chunkBySize

Wypróbuj online!

Cóż F # ma wbudowane ...

J , 4 bajty

<\~-

Wypróbuj online!

Przyjmuje tablicę jako lewy argument, a wielkość porcji jako prawy argument.

Używa dyadic hook i przysłówka infix z argumentem ujemnym, który robi to, co chcemy z definicji.

Uwaga: Typ zwrotu musi być zapakowany, ponieważ J zezwala tylko na tabele przedmiotów o równej wielkości.

Japt , 2 bajty

òV

Wypróbuj online!

PHP , 45 bajtów

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

Wypróbuj online!

Java 10, 106 80 bajtów

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

Drukuje fragmenty bez ogranicznika.

Wypróbuj online.

106 bajtów:

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

Faktycznie zwraca listę list.

Wypróbuj online.

Wyjaśnienie:

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 bajtów

{(0N,x)#y}

Wypróbuj online!

Rubin , 25 bajtów

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

Wypróbuj online!

Jeśli zamiast tablic możemy zwrócić moduły wyliczające, staje się to po prostu:

Ruby , 21 bajtów

->n,a{a.each_slice n}

Wypróbuj online!

PicoLisp , 75 74 bajtów

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

Wypróbuj online!

Kokos , 8 bajtów

groupsof

Wypróbuj online!

V , 6 bajtów

òÀf,r

Wypróbuj online!

Hexdump:

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

Wyjaśnienie:

ò           " 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 bajtów

#(partition %)

chyba wbudowane

Haskell , 26 bajtów

import Data.Lists
chunksOf

Oto bardziej interesująca wersja z kilkoma dodatkowymi bajtami (dzięki nim za pięć bajtów w każdym rozwiązaniu):

Haskell , 31 bajtów

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

Wypróbuj online!

PowerShell , 67 65 bajtów

-2 bajty dzięki AdmBorkBork

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

Wypróbuj online!

Galaretka , 1 bajt

s

Wypróbuj online!

Chociaż drukarka sprawia, że ​​wygląda na to, że podziały jednego elementu nie są zawijane w listy, w rzeczywistości są.