오늘 밤은 카드 게임의 밤입니다! 당신은 딜러이며 당신의 임무는 플레이어에게 카드를 처리하는 프로그램을 작성하는 것입니다.

다양한 카드와 플레이어 수를 감안할 때 각 플레이어의 카드를 한 손으로 나눠야합니다.

규칙

프로그램은 A0이 아닌 양의 정수뿐만 아니라 비어 있지 않은 배열을받습니다 n. 그런 다음 배열을 n손 으로 나눕니다 . 줄의 길이가 n남은 카드 로 나눌 수없는 경우 가능한 한 균등하게 분배해야합니다.

• 인 경우 요소로만 n==1배열의 배열을 반환해야합니다.A

• 경우 n의 길이보다 큰 A, 당신은 모든 손과 빈 손을 반환해야합니다. 경우 n = 4와 array A = [1,2,3], 당신은 반환해야 [[1],[2],[3]]하거나 [[1],[2],[3],[]]. 비어 있거나 정의되지 않았거나 null 인 빈손을 자유롭게 처리 할 수 ​​있습니다.

• 배열은 숫자가 아닌 모든 유형을 포함 할 수 있습니다.

• 처리하는 동안 배열 순서를 변경해서는 안됩니다. 예를 들어 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)

온라인으로 사용해보십시오!

이것은 code-golf 이므로 각 언어의 최단 바이트가 승자가됩니다.

chau giang에 의해 어레이 에서 청크 생성 에서 영감을 얻음

05AB1E , 3 1 바이트

Adnan 덕분에 2 바이트 절약

ι

온라인으로 사용해보십시오! 또는 테스트 스위트

설명

ι  # uninterleave

도전이 요구하는 것을 정확하게 수행

R , 46 25 바이트

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

온라인으로 사용해보십시오!

split이야 A에 의해 정의 된 그룹으로 1:n재활용, 1:n그것과 길이가 일치 할 때까지 A.

펄 6 , 33 24 바이트

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

온라인으로 사용해보십시오!

숫자를 가져 와서 목록을 가져 오는 목록을 반환하는 Whatever lambda를 반환하는 익명의 카레 코드 블록입니다. 리스트의 길이보다 큰 숫자가 주어지면 두 번째 옵션이 필요 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&])&

온라인으로 사용해보십시오!

apt, 2 바이트

배열을 첫 번째 입력으로 사용합니다.

óV

시도 해봐

파이썬 2 , 37 바이트

암호:

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

온라인으로 사용해보십시오!

젤리 , 6 2 바이트

sZ

온라인으로 사용해보십시오!

4 바이트를 절약 해 준 @JonathanAllan에게 감사합니다

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

오래되고 잘못된 솔루션은 배열 길이의 제수에 대해서만 작동했습니다. 나는 이것이 골프를 칠 수 있다고 확신한다.

온라인으로 사용해보십시오!

자바 스크립트 (Node.js) , 51 바이트

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

온라인으로 사용해보십시오!

자바 스크립트 (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 ← ⎕ 프롬프트

((l ← ⌈ (⍴a) ÷ n) × n ← ⎕) ↑ 정수를 입력하라는 프롬프트, 주어진 짝수 손에 0으로 패드 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)

자바 (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;}

온라인으로 사용해보십시오!

람다에 대한 Olivier Grégoire 에게 감사 드리며 반복하는 동안 더 잘 증가시킵니다.

루비, 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에서는 목록 수가 일정하게 유지되지만 모든 목록을 확장 할 수있는 경우 목록 목록을 단일 인터리브 배열로 구현하는 것이 일반적입니다. 예를 들어, 카드를 다루는 경우, 더 많은 핸드가 추가되는 것보다 더 많은 카드가 각 핸드에 추가되는 것이 더 일반적이므로, 핸드리스트를 인터리브 된리스트로 구현하는 것이 합리적입니다. 우연히도, "데크"는 그러한 목록이므로 수정되지 않은 매개 변수를 리턴합니다.

이 도전은 아마도 샌드 박스 였을 것입니다.

펄 5 -la , 66 56 바이트

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

온라인으로 사용해보십시오!