Bu gece kart oyunu gecesi! Siz dağıtıcısınız ve göreviniz kartları oyunculara dağıtmak için bir program yazmak.

Bir dizi kart ve oyuncu sayısı göz önüne alındığında, kart dizisini her oyuncu için bir ele bölmeniz gerekir.

kurallar

Programınız boş olmayan bir dizi Ave sıfır olmayan bir pozitif tam sayı alır n. Dizi daha sonra nellere bölünmelidir . Dizenin uzunluğu n, sonunda kalan kartlarla bölünemezse , mümkün olduğunca eşit dağıtılmalıdır.

• Bir öğe n==1dizisini Atek öğe olduğu için döndürmeniz gerekir

• Eğer nuzunluğundan daha büyüktür A, her el ve boş eli dönmek gerekir. eğer n = 4ve array A = [1,2,3], dönmelisiniz [[1],[2],[3]]veya [[1],[2],[3],[]]. Boş eli boş, undefined veya null ile idare etmekte özgürsünüz.

• Dizi, sayı yerine herhangi bir tür içerebilir.

• İşlem sırasında dizinin sırasını değiştirmemelisiniz. Örneğin if n = 2ve A= [1,2,3]bunun yerine herhangi bir sonuç [[1,3],[2]]geçersiz olacaktır.

Test Durumları

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 Programı

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)

Çevrimiçi deneyin!

Bu kod golf , bu yüzden her dilin en kısa bayt kazanan olacak.

Esinlenen chau giang tarafından diziden parçalar oluşturun

05AB1E , 3 1 bayt

Adnan sayesinde 2 bayt tasarruf etti

ι

Çevrimiçi deneyin! veya Test Paketi olarak

açıklama

ι  # uninterleave

Zorluğun tam olarak ne istediğini yapar

R , 4625 bayt

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

Çevrimiçi deneyin!

splitile Atanımlanan gruplara 1:n, 1:nuzunluk ile eşleşene kadar geri dönüşüm A.

Perl 6 , 33 24 bayt

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

Çevrimiçi deneyin!

Bir sayı alan ve bir liste alan ve listelerin listesini döndüren Ne olursa olsun lambda döndüren anonim curried kod bloğu. Liste uzunluğundan daha büyük bir sayı verildiğinde ikinci seçeneği kullanır, ör.f(4)([1,2,3]) getiri[[1],[2],[3]]

Açıklama:

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

Wolfram Dili (Mathematica) , 28 bayt

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

Çevrimiçi deneyin!

Japt, 2 bayt

Diziyi ilk girdi olarak alır.

óV

Dene

Python 2 , 37 bayt

Kod:

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

Çevrimiçi deneyin!

Jöle , 6 2 bayt

sZ

Çevrimiçi deneyin!

4 bayt tasarruf için @JonathanAllan'a teşekkürler

J , 13 , 11 , 10 , 9 bayt

(|#\)</.]

Çevrimiçi deneyin!

nasıl (önceki açıklama, temelde aynı)

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

Kömür , 9 bayt

ＩＥθ✂ηιＬηθ

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. Sırayla girdi alır [n, A]ve her değeri kendi satırında ve her el öncekinden çift aralıklı olarak çıkarır. Açıklama:

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

import Data.Lists
(transpose.).chunksOf

Not: Stackage'de bulunmayan ve bu nedenle Hoogle'da görünmeyecek Data.Listsüçüncü taraf kitaplık listelerinden alınmıştır.

Kotlin , 53 51 49 bayt

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

Eski, yanlış çözüm sadece dizi uzunluğunun bölenleri için çalıştı. Bunun golf oynayabileceğinden eminim.

Çevrimiçi deneyin!

JavaScript (Node.js) , 51 bayt

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

Çevrimiçi deneyin!

JavaScript (Node.js) , 53 bayt

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

Çevrimiçi deneyin!

APL + WIN 26 veya 31 bayt

Tek tek eller bir 2D matrisin sütunları olarak temsil edilebilirse, bir dizi dizisi varsa 26 bayt sonra 5 bayt ekleyin.

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

Çevrimiçi deneyin! Dyalog Classic'in ourtesy'i

veya

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

Çevrimiçi deneyin! Dyalog Classic'in izniyle

Açıklama:

a ← ⎕ kart dizisi istemi

((l ← ⌈ (⍴a) ÷ n) × n ← ⎕) ↑ tamsayı istemi, verilen ellere sıfırlarla birlikte a

(l, n) ⍴ Her sütunu her eli temsil eden 2D matris oluşturun

⊂ [1] gerekirse iç içe vektöre dönüştür - APL dizileri dizisi

TSQL, 44 bayt

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

Denemek

MathGolf , 9 bayt

\ô_í\%q╞;

Çevrimiçi deneyin!

açıklama

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

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

Çevrimiçi deneyin!

Lamda için Olivier Grégoire ve yineleme sırasında daha iyi artış için teşekkürler .

Ruby, 81 bayt

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

Çevrimiçi Deneyin

PHP ,85 83 82 bayt

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

Çevrimiçi deneyin!

Bu en kısa giriş olmayacak, ama PHP dizi işlevi yerleşik kullanarak denemek ve yapmak eğlenceli olacağını düşündüm. Sonuç: uzun.

Çıktı

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 Dili (Mathematica) , 25 bayt

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

Çevrimiçi deneyin!

C # (Visual C # Etkileşimli Derleyici) , 43 bayt

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

Çevrimiçi deneyin!

C (gcc), 5 bayt

Derleyici bayrağı -Df=(gerekli boşluk) şartnameyi karşılar. f(n_cards,n_hands,card_ptr)bir el listesinin göstergesini değerlendirir.

açıklama

C'de, liste sayısı sabit kalsa da tüm listeler genişletilebildiğinde liste listelerini tek bir araya eklenmiş dizi olarak uygulamak yaygın bir uygulamadır. Örneğin, bu kart dağıtma durumunda, her ele daha fazla kartın eklenmesi, daha fazla elin eklenmesinden daha yaygındır, bu nedenle el listesinin serpiştirilmiş liste olarak uygulanması mantıklı olacaktır. Tesadüfen, "güverte" böyle bir listedir ve bu nedenle değiştirilmemiş parametreyi döndürürüz.

Bu meydan okuma muhtemelen korumalı alandan alınmış olmalıdır.

Perl 5 -la , 66 56 bayt

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

Çevrimiçi deneyin!