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

Учитывая массив карт и количество игроков, вам нужно разделить массив карт в руки для каждого игрока.

правила

Ваша программа получит непустой массив 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

Wolfram Language (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

Haskell , 39 байт

import Data.Lists
(transpose.).chunksOf

Примечание: Data.Listsэто из списков сторонних библиотек , которых нет в Stackage и, следовательно, они не будут отображаться в Google.

Котлин , 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 байт

Если отдельные стрелки могут быть представлены в виде столбцов двумерной матрицы, то 26 байтов, если массив массивов, добавляют 5 байтов.

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

Попробуйте онлайн! Wetesy of Dyalog Classic

или

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

Попробуйте онлайн! Предоставлено Dyalog Classic

Объяснение:

приглашение ← ⎕ для набора карточек

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

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

Wolfram Language (Mathematica) , 25 байтов

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

Попробуйте онлайн!

C # (интерактивный компилятор Visual C #) , 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..$,

Попробуйте онлайн!