Heute Abend ist Kartenspielabend! Sie sind der Dealer und Ihre Aufgabe ist es, ein Programm zu schreiben, mit dem die Karten an die Spieler ausgegeben werden.

Bei einem vorgegebenen Kartenfeld und der Anzahl der Spieler müssen Sie das Kartenfeld für jeden Spieler in eine Hand aufteilen.

Regeln

Ihr Programm erhält ein nicht leeres Array Asowie eine positive Ganzzahl ungleich Null n. Das Array sollte dann in nHände aufgeteilt werden. Wenn die Länge der Zeichenfolge durch nkeine verbleibenden Karten am Ende teilbar ist, sollte so gleichmäßig wie möglich verteilt werden.

• In diesem Fall n==1müssen Sie ein Array mit Array Aals einziges Element zurückgeben

• Wenn ngrößer als die Länge von ist A, müssen Sie jede Hand und eine leere Hand zurückgeben. wenn n = 4und array A = [1,2,3], solltest du [[1],[2],[3]]oder zurückgeben [[1],[2],[3],[]]. Es steht Ihnen frei, die leere Hand mit leer, undefiniert oder null zu behandeln.

• Das Array kann einen beliebigen Typ anstelle einer Zahl enthalten.

• Sie sollten die Reihenfolge des Arrays während des Handels nicht ändern. Zum Beispiel if n = 2und A= [1,2,3]jedes Ergebnis [[1,3],[2]]ist ungültig.

Testfälle

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

Demo-Programm

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)

Probieren Sie es online!

Dies ist Code-Golf , so dass Sie die kürzesten Bytes jeder Sprache gewinnen.

Inspiriert von Create chunks from array von chau giang

05AB1E , 3 1 Byte

2 Bytes gespart dank Adnan

ι

Probieren Sie es online! oder als Testsuite

Erläuterung

ι  # uninterleave

Tut genau das, wonach die Herausforderung verlangt

R , 46 25 Bytes

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

Probieren Sie es online!

splits Ain durch definierte Gruppen einteilen 1:nund recyceln, 1:nbis Länge mit übereinstimmt A.

Perl 6 , 33 24 Bytes

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

Probieren Sie es online!

Anonymer Curry-Codeblock, der eine Zahl annimmt und ein beliebiges Lambda zurückgibt, das eine Liste annimmt und eine Liste von Listen zurückgibt. Dies ist die zweite Option, wenn eine Nummer angegeben wird, die größer als die Länge der Listen ist, z. B. f(4)([1,2,3])return[[1],[2],[3]]

Erläuterung:

->\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 Byte

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

Probieren Sie es online!

Japt, 2 Bytes

Nimmt das Array als erste Eingabe.

óV

Versuch es

Python 2 , 37 Bytes

Code:

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

Probieren Sie es online!

Gelee , 6 2 Bytes

sZ

Probieren Sie es online!

Vielen Dank an @ JonathanAllan für das Speichern von 4 Bytes

J , 13 , 11 , 10 , 9 Bytes

(|#\)</.]

Probieren Sie es online!

wie (vorherige Erklärung, im Grunde das gleiche)

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

Kohle , 9 Bytes

ＩＥθ✂ηιＬηθ

Probieren Sie es online! Link ist eine ausführliche Version des Codes. Nimmt Eingaben in der Reihenfolge vor [n, A]und gibt jeden Wert in einer eigenen Zeile und mit doppeltem Abstand zum vorherigen Zeiger aus. Erläuterung:

  θ         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 Bytes

import Data.Lists
(transpose.).chunksOf

Hinweis: Data.Listsist von den Dritt Bibliothek Listen , die nicht auf Stackage ist und daher nicht auf Hoogle angezeigt.

Kotlin , 53 51 49 Bytes

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

Die alte, falsche Lösung funktionierte nur für Teiler der Arraylänge. Ich bin mir sicher, dass man damit Golf spielen kann.

Probieren Sie es online!

JavaScript (Node.js) , 51 Byte

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

Probieren Sie es online!

JavaScript (Node.js) , 53 Byte

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

Probieren Sie es online!

APL + WIN 26 oder 31 Bytes

Wenn einzelne Hände als Spalten einer 2D-Matrix dargestellt werden können, addieren sich 26 Byte, wenn ein Array von Arrays vorhanden ist, zu 5 Byte.

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

Probieren Sie es online! Mit freundlicher Genehmigung von Dyalog Classic

oder

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

Probieren Sie es online! Mit freundlicher Genehmigung von Dyalog Classic

Erläuterung:

eine ← ⎕ Aufforderung zur Eingabe eines Kartenarrays

((l ← ⌈ (⍴a) ÷ n) × n ← ⎕) ↑ Aufforderung zur Eingabe einer ganzen Zahl, fülle a mit Nullen auf, um gerade Hände zu erhalten

(l, n) ⍴ Erstelle eine 2D-Matrix mit jeder Spalte, die jede Hand repräsentiert

⊂ [1] ggf. in verschachtelten Vektor konvertieren - APL-Array von Arrays

TSQL, 44 Bytes

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

Versuch es

MathGolf , 9 Bytes

\ô_í\%q╞;

Probieren Sie es online!

Erläuterung

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

Probieren Sie es online!

Vielen Dank an Olivier Grégoire für das Lambda und das bessere Inkrementieren beim Iterieren.

Ruby, 81 Bytes

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

Probieren Sie es online

PHP ,85 83 82 Bytes

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

Probieren Sie es online!

Dies wird nicht der kürzeste Eintrag sein, aber ich dachte, es würde Spaß machen, es mit den eingebauten PHP-Array-Funktionen zu versuchen. Ergebnis: lang.

Ausgabe

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 Byte

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

Probieren Sie es online!

C # (Visual C # Interactive Compiler) , 43 Byte

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

Probieren Sie es online!

C (gcc), 5 Bytes

Das Compiler-Flag -Df=(erforderliches führendes Leerzeichen) erfüllt die Spezifikation. f(n_cards,n_hands,card_ptr)Wertet einen Zeiger auf eine Liste von Händen aus.

Erläuterung

In C ist es üblich, Listen von Listen als einzelnes verschachteltes Array zu implementieren, wenn die Anzahl der Listen konstant bleibt, aber alle Listen erweitert werden können. In diesem Fall, in dem Karten ausgetauscht werden, kommt es beispielsweise häufiger vor, dass mehr Karten zu jeder Hand hinzugefügt werden, als dass mehr Hände hinzugefügt werden. Daher wäre es sinnvoll, eine Liste von Händen als verschachtelte Liste zu implementieren. Zufälligerweise ist das "Deck" eine solche Liste, und daher geben wir den Parameter unverändert zurück.

Diese Herausforderung hätte wahrscheinlich in einer Sandbox stattfinden sollen.

Perl 5 -la , 66 56 Bytes

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

Probieren Sie es online!