Dzisiaj jest noc gier karcianych! Jesteś rozdającym, a Twoim zadaniem jest napisanie programu rozdawania kart graczom.

Biorąc pod uwagę zestaw kart i liczbę graczy, musisz podzielić zestaw kart na rękę dla każdego gracza.

Zasady

Twój program otrzyma niepustą tablicę A, a także niezerową liczbę całkowitą dodatnią n. Tablicę należy następnie podzielić na nręce. Jeśli długość łańcucha nie jest podzielna przez nresztki kart na końcu, należy je rozłożyć możliwie równomiernie.

• Jeśli n==1musisz zwrócić tablicę, Aponieważ jest to jedyny element

• Jeśli njest większa niż długość A, musisz zwrócić każdą rękę i pustą rękę. jeśli n = 4i array A = [1,2,3]powinieneś powrócić [[1],[2],[3]]lub [[1],[2],[3],[]]. Możesz obsługiwać pustą rękę z pustą, niezdefiniowaną lub zerową.

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

• Podczas transakcji nie powinieneś zmieniać kolejności tablicy. Na przykład if n = 2i A= [1,2,3]dowolny wynik zamiast [[1,3],[2]]będzie nieprawidłowy.

Przypadki testowe

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

Program demonstracyjny

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)

Wypróbuj online!

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

Zainspirowany przez Utwórz fragmenty z tablicy przez chau giang

05AB1E , 3 1 bajt

Zaoszczędzono 2 bajty dzięki Adnan

ι

Wypróbuj online! lub jako pakiet testowy

Wyjaśnienie

ι  # uninterleave

Robi dokładnie to, o co prosi wyzwanie

R , 46 25 bajtów

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

Wypróbuj online!

splits Ana grupy zdefiniowane przez 1:n, recykling, 1:naż do dopasowania długości A.

Perl 6 , 33 24 bajtów

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

Wypróbuj online!

Anonimowy blok kodu curry, który przyjmuje liczbę i zwraca wartość Lambda, która pobiera listę i zwraca listę list. To bierze drugą opcję, gdy podano liczbę większą niż długość list, npf(4)([1,2,3]) Zwraca[[1],[2],[3]]

Wyjaśnienie:

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

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

Wypróbuj online!

Japt, 2 bajty

Pobiera tablicę jako pierwsze wejście.

óV

Spróbuj

Python 2 , 37 bajtów

Kod:

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

Wypróbuj online!

Galaretka , 6 2 bajty

sZ

Wypróbuj online!

Dzięki @JonathanAllan za zapisanie 4 bajtów

J , 13 , 11 , 10 , 9 bajtów

(|#\)</.]

Wypróbuj online!

jak (poprzednie wyjaśnienie, zasadniczo takie same)

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

Węgiel drzewny , 9 bajtów

ＩＥθ✂ηιＬηθ

Wypróbuj online! Link jest do pełnej wersji kodu. Pobiera dane wejściowe w kolejności [n, A]i wyświetla każdą wartość w osobnym wierszu i każdą rękę w podwójnym odstępie od poprzedniego. Wyjaśnienie:

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

import Data.Lists
(transpose.).chunksOf

Uwaga: Data.Listspochodzi z list bibliotek stron trzecich , których nie ma na Stackage i dlatego nie pojawi się na Hoogle.

Kotlin , 53 51 49 bajtów

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

Stare, niepoprawne rozwiązanie działało tylko w przypadku dzielników o długości tablicy. Jestem pewien, że można to zagrać w golfa.

Wypróbuj online!

JavaScript (Node.js) , 51 bajtów

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

Wypróbuj online!

JavaScript (Node.js) , 53 bajty

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

Wypróbuj online!

APL + WIN 26 lub 31 bajtów

Jeśli poszczególne wskazówki mogą być reprezentowane jako kolumny macierzy 2D, wówczas 26 bajtów, jeśli tablica tablic dodaje 5 bajtów.

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

Wypróbuj online! z firmy Dyalog Classic

lub

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

Wypróbuj online! Dzięki uprzejmości Dyalog Classic

Wyjaśnienie:

monit ← ⎕ o tablicę kart

((l ← ⌈ (⍴a) ÷ n) × n ← ⎕) ↑ monit o liczbę całkowitą, wstaw a z zerami do podanych parzystych rąk

(l, n) ⍴ utwórz macierz 2D z każdą kolumną reprezentującą każdą rękę

⊂ [1] w razie potrzeby przekonwertować na wektor zagnieżdżony - tablicę APL

TSQL, 44 bajty

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

Wypróbuj to

MathGolf , 9 bajtów

\ô_í\%q╞;

Wypróbuj online!

Wyjaśnienie

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

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

Wypróbuj online!

Dzięki Olivier Grégoire za lambda i lepsze zwiększanie podczas iteracji.

Ruby, 81 bajtów

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

Wypróbuj online

PHP ,85 83 82 bajty

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

Wypróbuj online!

To nie będzie najkrótszy wpis, ale pomyślałem, że fajnie byłoby spróbować zrobić to za pomocą wbudowanych funkcji tablicy PHP. Wynik: długi.

Wynik

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

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

Wypróbuj online!

C # (interaktywny kompilator Visual C #) , 43 bajty

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

Wypróbuj online!

C (gcc), 5 bajtów

Flaga kompilatora -Df=(wymagana przestrzeń wiodąca) jest zgodna ze specyfikacją. f(n_cards,n_hands,card_ptr)tworzy wskaźnik do listy rąk.

Wyjaśnienie

W C powszechną praktyką jest implementowanie list list jako pojedynczej tablicy z przeplotem, gdy liczba list pozostaje stała, ale wszystkie listy można rozszerzyć. Na przykład, w tym przypadku rozdawania kart, do każdej ręki dodaje się więcej kart niż więcej rąk, więc rozsądne byłoby wdrożenie listy rąk jako listy przeplatanej. Nawiasem mówiąc, „talia” jest taką listą, dlatego zwracamy parametr niezmodyfikowany.

To wyzwanie powinno być prawdopodobnie piaskownicą.

Perl 5 -la , 66 56 bajtów

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

Wypróbuj online!