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

Враховуючи масив карток та кількість гравців, вам потрібно розділити масив карт у руку для кожного гравця.

Правила

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

• Якщо n==1вам потрібно буде повернути масив масиву, Aоскільки він є лише елементом

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

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

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

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

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

Демонстраційна програма

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)

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

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

Натхненний з Створити шматки з масиву з допомогою Чау Жанг

05AB1E , 3 1 байт

Збережено 2 байти завдяки Аднану

ι

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

Пояснення

ι  # uninterleave

Робить саме те, про що вимагає завдання

R , 46 25 байт

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

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

splits Aв групи, визначені 1:n, переробляючи, 1:nпоки вона не збігається з довжиною A.

Perl 6 , 33 24 байти

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

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

Блок коду анонімного викритого коду, який приймає число, і повертає лямбда, що приймає список, і повертає список списків. Це приймає другий варіант, коли йому надається число, що перевищує довжину списків, наприклад, f(4)([1,2,3])повернення[[1],[2],[3]]

Пояснення:

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

Мова Вольфрама (Mathematica) , 28 байт

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

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

Japt, 2 байти

Приймає масив як перший вхід.

óV

Спробуй це

Python 2 , 37 байт

Код:

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

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

Желе , 6 2 байти

sZ

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

Завдяки @JonathanAllan за збереження 4 байтів

J , 13 , 11 , 10 , 9 байт

(|#\)</.]

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

як (попереднє пояснення, принципово те саме)

] </.~ (| #\)
  </.~          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

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

ＩＥθ✂ηιＬηθ

Спробуйте в Інтернеті! Посилання на багатослівну версію коду. Приймає введення в порядку [n, A]та виводить кожне значення у своєму власному рядку, а кожна рука подвоюється від попередньої. Пояснення:

  θ         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

Хаскелл , 39 байт

import Data.Lists
(transpose.).chunksOf

Примітка: Data.Listsє зі списків сторонніх бібліотек , які не знаходяться в стеці і, отже, не відображатимуться в Hoogle.

Котлін , 53 51 49 байт

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

Старе, неправильне рішення працювало лише для дільників довжини масиву. Я впевнений, що це можна пограти в гольф.

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

JavaScript (Node.js) , 51 байт

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

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

JavaScript (Node.js) , 53 байти

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

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

APL + WIN 26 або 31 байт

Якщо окремі руки можуть бути представлені у вигляді стовпців 2D-матриці, то 26 байт, якщо масив масивів, то додайте 5 байт.

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

Спробуйте в Інтернеті! наша компанія Dyalog Classic

або

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

Спробуйте в Інтернеті! Надано Dyalog Classic

Пояснення:

a ← pt підказка для масиву карт

((l ← ⌈ (⍴a) ÷ n) × n ← ⎕) ↑ підказка на ціле число, накладіть a з нулями на рівні рівні руки

(l, n) ⍴ створити 2D матрицю з кожним стовпцем, що представляє кожну руку

⊂ [1], якщо потрібно, перетворити на вкладений вектор - APL-масив масивів

TSQL, 44 байти

-- @       : 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

Спробуй

MathGolf , 9 байт

\ô_í\%q╞;

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

Пояснення

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

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

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

Дякуємо Олів'є Грегоару за лямбду та краще нарощування під час ітерації.

Рубін, 81 байт

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

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

PHP ,85 83 82 байти

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

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

Це буде не найкоротший запис, але я подумав, що було б цікаво спробувати це зробити, використовуючи вбудовані функції масиву PHP. Результат: довгий.

Вихідні дані

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

Мова Вольфрама (Mathematica) , 25 байт

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

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

C # (Visual C # Interactive Compiler) , 43 байти

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

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

C (gcc), 5 байт

Прапор компілятора -Df=(провідний провідний простір) відповідає специфікації. f(n_cards,n_hands,card_ptr)оцінює вказівник на список рук.

Пояснення

У C звичайна практика застосовувати списки списків як єдиний переплетений масив, коли кількість списків залишається постійним, але всі списки можна розширити. Наприклад, у цьому випадку карт для розсилки частіше для кожної руки додається більше карт, ніж додається більше рук, тому було б розумно реалізувати список рук як переплетений список. Випадково "колода" є таким списком, і таким чином ми повертаємо параметр немодифікованим.

Цей виклик, мабуть, мав бути пісочниці.

Perl 5 -la , 66 56 байт

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

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