Đêm nay là đêm chơi bài! Bạn là đại lý và nhiệm vụ của bạn là viết một chương trình để chia bài cho người chơi.

Đưa ra một loạt các thẻ và số lượng người chơi, bạn cần chia mảng thẻ thành một tay cho mỗi người chơi.

Quy tắc

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

• Nếu n==1, bạn sẽ cần trả về một mảng với Aphần tử duy nhất

• Nếu nlớn hơn chiều dài A, bạn sẽ cần trả lại mọi bàn tay và một bàn tay trắng. nếu n = 4và array A = [1,2,3], bạn nên trở lại [[1],[2],[3]]hoặc [[1],[2],[3],[]]. Bạn có thể tự do xử lý bàn tay trống với trống, không xác định hoặc null.

• Mảng có thể chứa bất kỳ loại nào hơn là một số.

• Bạn không nên thay đổi thứ tự của mảng trong khi giao dịch. Ví dụ if n = 2và A= [1,2,3], bất kỳ kết quả nào hơn là [[1,3],[2]]sẽ không hợp lệ.

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

n   A               Output

1   [1,2,3,4,5,6]   [[1,2,3,4,5,6]]
2   [1,2,3,4,5,6]   [[1,3,5],[2,4,6]]
3   [1,2,3,4,5,6]   [[1,4],[2,5],[3,6]]
4   [1,2,3,4,5,6]   [[1,5],[2,6],[3],[4]]
7   [1,2,3,4,5,6]   [[1],[2],[3],[4],[5],[6]] // or [[1],[2],[3],[4],[5],[6],[]]

Chương trình demo

def deal(cards, n):
	i = 0
	players = [[] for _ in range(n)]
	for card in cards:
		players[i % n].append(card)
		i += 1
	return players

hands = deal([1,2,3,4,5,6], 2)

print(hands)

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

Đâ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.

Lấy cảm hứng từ Tạo khối từ mảng bởi chau giang

05AB1E , 3 1 byte

Saved 2 byte nhờ Adnan

ι

Hãy thử trực tuyến! hoặc như một bộ thử nghiệm

Giải trình

ι  # uninterleave

Có chính xác những gì thách thức yêu cầu

R , 46 25 byte

function(A,n)split(A,1:n)

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

splits Athành các nhóm được xác định bởi 1:n, tái chế 1:ncho đến khi nó khớp với chiều dài A.

Perl 6 , 33 24 byte

->\b{*.classify:{$++%b}}

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

Khối mã được ẩn danh ẩn danh lấy một số và trả về một lambda nào lấy danh sách và trả về danh sách các danh sách. Điều này có tùy chọn thứ hai khi được cung cấp một số lớn hơn độ dài của danh sách, ví dụ:f(4)([1,2,3]) trả về[[1],[2],[3]]

Giải trình:

->\b{                  }  # Anonymous code block that takes a number
     *                    # And returns a Whatever lambda
      .classify           # That groups by
               :{$++%b}   # The index modulo the number

Ngôn ngữ Wolfram (Mathicala) , 28 byte

(s=#;GatherBy[#2,#~Mod~s&])&

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

Japt, 2 byte

Lấy mảng làm đầu vào đầu tiên.

óV

Thử nó

Python 2 , 37 byte

Mã số:

lambda x,n:[x[i::n]for i in range(n)]

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

Thạch , 6 2 byte

sZ

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

Cảm ơn @Jonathan ALLan vì đã lưu 4 byte

J , 13 , 11 , 10 , 9 byte

(|#\)</.]

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

Làm thế nào (giải thích trước, về cơ bản giống nhau)

] </.~ (| #\)
  </.~          NB. box results of grouping
]               NB. the right arg by...
         |      NB. the remainders of dividing...
       [        NB. the left arg into...
           #\   NB. the length of each prefix of...
              ] NB. the right arg,
                NB. aka, the integers 1 thru
                NB. the length of the right arg

Than , 9 byte

ＩＥθ✂ηιＬηθ

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Đưa đầu vào theo thứ tự [n, A]và xuất từng giá trị trên dòng riêng và mỗi tay cách nhau hai lần so với trước. Giải trình:

  θ         First input `n`
 Ｅ          Map over implicit range
    η       Second input `A`
   ✂        Sliced
     ι      Starting at current index
      Ｌη    Ending at length of `A`
        θ   Taking every `n`th element
Ｉ           Cast to string
            Implicitly print

Haskell , 39 byte

import Data.Lists
(transpose.).chunksOf

Lưu ý: Data.Listslà từ danh sách thư viện của bên thứ ba , không nằm trong Stackage và do đó sẽ không xuất hiện trên Hoogle.

Kotlin , 53 51 49 byte

{a,n->(0..n-1).map{a.slice(it..a.size-1 step n)}}

Giải pháp cũ, không chính xác chỉ làm việc cho các ước của độ dài mảng. Tôi chắc chắn điều này có thể được đánh xuống.

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

JavaScript (Node.js) , 51 byte

A=>n=>A.map((x,i)=>e[i%=n]=[...e[i]||[],x],e=[])&&e

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

JavaScript (Node.js) , 53 byte

A=>n=>g=(i=n)=>i?[...g(--i),A.filter(_=>i--%n==0)]:[]

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

APL + THẮNG 26 hoặc 31 byte

Nếu các tay riêng lẻ có thể được biểu diễn dưới dạng các cột của ma trận 2D thì 26 byte nếu một mảng các mảng thì thêm 5 byte.

(l,n)⍴((l←⌈(⍴a)÷n)×n←⎕)↑a←⎕

Hãy thử trực tuyến! đặc quyền của Dyalog Classic

hoặc là

⊂[1](l,n)⍴((l←⌈(⍴a)÷n)×n←⎕)↑a←⎕

Hãy thử trực tuyến! Lịch sự của Dyalog Classic

Giải trình:

Dấu nhắc ← for cho mảng thẻ

((l ← (a) ÷ n) × n ← ⎕) ↑ nhắc về số nguyên, đệm a với các số 0 để đưa ra các tay chẵn

(l, n) tạo ma trận 2D với mỗi cột đại diện cho mỗi tay

[1] nếu được yêu cầu chuyển đổi sang vector lồng nhau - mảng APL của mảng

TSQL, 44 byte

-- @       : table containing the input 
-- column c: value of the card, 
-- column a: position on the card in the deck
-- @n      : number of players

DECLARE @ table(a int identity(0,1), c varchar(9))
DECLARE @n int = 4

INSERT @ values('1a'),('2c'),('3e'),('4g'),('5i'),('6k')

SELECT string_agg(c,',')FROM @ GROUP BY a%@n

Dùng thử

MathGolf , 9 byte

\ô_í\%q╞;

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

Giải trình

\           swap top elements (pops both input onto stack)
 ô          start block of length 6
  _         duplicate TOS (will duplicate the list)
   í        get total number of iterations of for loop (the other input)
    \       swap top elements
     %      modulo (picks every n:th item of the list
      q     print without newline
       ╞    discard from left of string/array (makes the next player pick cards starting with the next in the deck)
        ;   discard TOS (removes some junk in the end)

Java (JDK) , 90 byte

A->n->{var o="";for(int h=0,i;h<n;o+="\n")for(i=h++;i<A.length;i+=n)o+=" "+A[i];return o;}

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

Cảm ơn Olivier Grégoire cho lambda và tăng tốt hơn trong khi lặp.

Ruby, 81 byte

def s a,n;a.each_with_index.inject(([[]]*n).map(&:dup)){|b,(c,d)|b[d%n]<<c;b};end

Dùng thử trực tuyến

PHP ,85 83 82 byte

function($a,$n){while($x<$n)$c[]=array_column(array_chunk($a,$n),+$x++);return$c;}

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

Đây sẽ không phải là mục ngắn nhất, nhưng tôi nghĩ sẽ rất vui nếu thử và thực hiện bằng cách sử dụng chức năng mảng PHP. Kết quả: dài.

Đầu ra

1   [1,2,3,4,5,6]   [[1,2,3,4,5,6]]
2   [1,2,3,4,5,6]   [[1,3,5],[2,4,6]]
3   [1,2,3,4,5,6]   [[1,4],[2,5],[3,6]]
4   [1,2,3,4,5,6]   [[1,5],[2,6],[3],[4]]
7   [1,2,3,4,5,6]   [[1],[2],[3],[4],[5],[6],[]]
5   ["9C","QD","2S","4H","6D","AS","9D","TH","5C"]  [["9C","AS"],["QD","9D"],["2S","TH"],["4H","5C"],["6D"]]

Ngôn ngữ Wolfram (Mathicala) , 25 byte

#2[[i;;;;#]]~Table~{i,#}&

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

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

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

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

C (gcc), 5 byte

Cờ trình biên dịch -Df=(req. Không gian hàng đầu) đáp ứng đặc điểm kỹ thuật.f(n_cards,n_hands,card_ptr)ước tính cho một con trỏ đến một danh sách các bàn tay.

Giải trình

Trong C, thông thường là thực hiện danh sách các danh sách dưới dạng một mảng xen kẽ, khi số lượng danh sách không đổi nhưng tất cả các danh sách có thể được mở rộng. Ví dụ, trong trường hợp giao dịch thẻ này, thông thường sẽ có nhiều thẻ được thêm vào mỗi bàn tay hơn là thêm nhiều tay, vì vậy sẽ hợp lý khi thực hiện danh sách các bàn tay dưới dạng danh sách xen kẽ. Thật trùng hợp, "bộ bài" là một danh sách như vậy, và do đó chúng tôi trả về tham số không thay đổi.

Thử thách này có lẽ đã được đóng hộp cát.

Perl 5 -la , 66 56 byte

$,=<>;map{push@$_,shift@F}1..$,while@F;say"@$_"for 1..$,

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