아마도 단순한 코드 골프 도전입니다. 2 개의 양의 정수가 주어 m지고 n, n합이 숫자와 같은 양의 정수인 값 목록 을 작성하십시오 m. 출력의 모든 값이 동일한 값이거나 차이가 정확히 1입니다.

예

예를 들어

• m=6그리고 n=3될 것이다2, 2, 2
• m=7및 n=3될 것 2, 2, 3또는 2, 3, 2나 3, 2, 2
• m=7및 n=2될 것 3, 4또는4, 3
• m=7그리고 n=1될 것이다7
• m=7및 n=88 개 개의 양의 정수의 합이 7이 될 수 없기 때문에 오류가 발생한다.
• m=10그리고 다른 순열 n=4이 될 것입니다.3, 3, 2, 2

규칙

• 입력과 출력은 모두 양의 정수에 불과합니다.
• 출력의 모든 값이 동일한 값이거나 차이가 정확히 1입니다.
• 목록의 값 순서는 중요하지 않습니다.
• 목록에있는 값의 합은 m입니다.
• 해결할 수 없으면 오류 또는 잘못된 값을 생성하십시오 (예 : m = 7 및 n = 8의 경우).
• 다른 규칙의 결과 m=8와 n=3의 순열 중 하나를 생성하는 것 3, 3, 2(안 2, 2, 4)

승자

이것은 코드 골프이므로 바이트 단위로 측정 된 가장 짧은 유효한 답변이 이깁니다.

가이아 , 4 바이트

…÷l¦

거의 내장되어 있습니다 ...

설명

…     Get the range [0 .. m-1].
 ÷    Split into n roughly even length chunks. Throws an error if the number of chunks if 
       more than the list's length.
  l¦  Get the length of each chunk.

파이썬 2 , 48 43 바이트

반환 0오류에.

lambda m,n:m/n and[m/n]*(n-m%n)+m%n*[m/n+1]

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

41 바이트 (@xnor의 트릭 포함)

오류 NameError가 발생합니다.

lambda m,n:[m/n or _]*(n-m%n)+m%n*[m/n+1]

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

수학, 33 바이트

#>#2&&Last@IntegerPartitions@##1&

입력

[63, 11]

산출

{6, 6, 6, 6, 6, 6, 6, 6, 5, 5, 5}

해결할 수 없을 때 False를 출력합니다

MATL , 7 바이트

:gie!Xs

솔루션이 없으면 출력은 하나 이상의 0을 포함하는 배열입니다. 이며 MATL 거짓 입니다.

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

설명

입력 m = 10과를 고려하십시오 n = 4.

:      % Implicitly input m. Push [1 2 ... m]
       % STACK: [1 2 3 4 5 6 7 8 9 10]
g      % Logical: convert nonzeros to 1
       % STACK: [1 1 1 1 1 1 1 1 1 1]
i      % Input n
       % STACK: [1 1 1 1 1 1 1 1 1 1], 4
e      % Reshape into matrix with n rows, padding with zeros
       % STACK: [1 1 1;
                 1 1 1;
                 1 1 0;
                 1 1 0]
!      % Transpose
       % STACK: [1 1 1 1;
                 1 1 1 1;
                 1 1 0 0]
Xs     % Sum of each column. Implicitly display
       % STACK: [3 3 2 2]

하스켈 , 30 바이트

m%n|m>=n=map(`div`n)[m..m+n-1]

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

숯 , NDD ¹ 을 적용한 후 15 바이트

¿÷ＮＮＩＥＩη÷⁺ＩθιＩη

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

솔루션이 없으면 아무것도 출력하지 않습니다. 자세한 버전으로 연결합니다 .

¹ NDD = 닐 주도 개발.

내 이전 답변 :

숯 , 32 27 24 20 바이트

ＮμＮν¿÷μνＩＥν⁺÷μν‹ι﹪μν

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

솔루션이 없으면 아무것도 출력하지 않습니다. 자세한 버전으로 연결합니다 .

물론 닐의 도움 없이는 골프를 타지 못했습니다.

R , 33 바이트

function(m,n)diff(trunc(0:n*m/n))

Luis Mendo의 Octave 답변 포트 . 이것이 이전 답변보다 거의 50 % 짧다는 것은 매우 슬픈 일입니다.

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

이전 답변, 63 바이트 :

function(m,n,o=rep(m%/%n,n),d=m-sum(o))o+c(rep(0,n-d),rep(1,d))

두 개의 (필수) 인수 m와 n골프를 목적으로하는 두 개의 선택적 인수를 취하는 익명 함수입니다 . 증가하는 순서로 벡터를 반환합니다. 실패의 경우 첫 번째 값은 0이며 이는 R에서 거짓입니다.if 이며, 벡터의 첫 번째 값만 사용하므로 (경고 포함).

기본적으로 다음 기능과 같습니다.

function(m,n){o=rep(m%/%n,n)
d=m-sum(o)
o+c(rep(0,n-d),rep(1,d))}

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

젤리 , 7 6 바이트

:ȧœsL€

온라인으로 사용해보십시오!거짓에 대해서는 아무것도 출력하지 않습니다.

작동 원리

:ȧœsL€    Main link. Arguments: m (integer), n (integer)
:         Integer division. Yields 0 if m < n; a positive integer otherwise.
 ȧ        Logical AND. Yields 0 if m < n; m otherwise.
  œs      Split into n roughly equal groups. Since the left argument is an integer,
          this implicitly converts it to [1..m] (or [] for 0) before splitting.
    L€    Length of €ach. If the inputs were 7 and 3, the previous result would be
          [[1,2,3],[4,5],[6,7]], so this would give [3,2,2].

TI 기본, 23 바이트

:Prompt M,N
:N(M≥N
:int(Ans⁻¹randIntNoRep(M,M+N-1

오류 발생시 ERR : DIVIDE BY 0을 반환

옥타브 , 24 바이트

@(m,n)diff(fix(0:m/n:m))

이 코드는 익명 함수를 정의합니다. 출력은 숫자 형 배열 (행 벡터)입니다. 이 배열이 없으면 하나 이상의 0을 포함하며 옥타브 에서는 거짓 입니다.

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

설명

0:m/n:m배열 생성 n+1로부터 값 0을 m단계와 m/n. fix각 항목을쪽으로 반올림 0하고diff 연속적인 차이를 계산합니다.

예를 들어,에 대한 모든 중간 결과는 다음 m = 7과 n = 3같습니다.

>> 0:m/n:m
ans =
         0    2.3333    4.6667    7.0000

>> fix(0:m/n:m)
ans =
     0     2     4     7

>> diff(fix(0:m/n:m))
ans =
     2     2     3

하스켈 , 93 89 88 87 86 71 바이트

m!n|n<=m=e$m:(0<$[2..n])
e(a:b:x)|b<a=e$a-1:e(b+1:x)
e(a:x)=a:e x
e x=x

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

설명

여기서 주요 기능은 e입니다. e목록을 가져와 본질적으로 왼쪽에서 오른쪽으로 롤링 핀을 실행합니다. 리스트에 이웃보다 오른쪽에있는 요소가있는 동안 오른쪽에서 오른쪽으로 이동합니다.

이제 우리가해야 할 일은이 함수에 충분히 일방적 인 목록을주고 마법을 할 수있게하는 것입니다. 우리가 선택합니다 목록은 그냥 m다음에 n-1제로. 그렇게하기가 쉽습니다.

마지막으로해야 할 일은 오류가 처리되었는지 확인하는 것입니다. 이를 위해 우리는 Non-exhaustive patterns in function만큼 오류를 던집니다 m>n.

C # (. NET 코어) , 86 82 71 바이트

using System.Linq;a=>b=>new int[b].Select((x,i)=>(i<a%b?1:0/(a/b))+a/b)

유효하지 않은 입력에 대해 오류를 발생시킵니다.

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

TheLethalCoder 덕분에 -4 바이트

OlivierGrégoire 덕분에 -11 바이트

하스켈, 48 바이트

m#n|m>=n=iterate(\(a:b)->b++[a+1])(0<$[1..n])!!m

n0 의 목록으로 시작하십시오 . 반복m 시간 : 첫 번째 요소를 가져 와서 하나를 추가하고 목록의 끝에 놓습니다.

의 경우 패턴 일치 오류로 실패합니다 n < m.

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

Braingolf , 30 바이트

.M>.M/v.mR>[.]$_v%!?[R1+>v]|R=

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

입력을 역순으로 취합니다 ( n첫 번째 입력, m두 번째 입력 )

분할 m에 의해 n, 결과 복제 n한 후, 시간을 통해 증가 루프를 하나씩 m % n배

배치, 71 바이트

@if %1 geq %2 for /l %%i in (1,1,%2)do @cmd/cset/an=(%1+%%i-1)/%2&echo(

cmd/cset/a구분 기호를 출력하지 않으므로 사용해야합니다 echo(( (인쇄 하지 마십시오 ECHO is on.).

PHP> = 7.1, 62 바이트

for([,$s,$n]=$argv;$n;)$s-=$r[]=$s/$n--^0;$r[0]?print_r($r):0;

PHP 샌드 박스 온라인

파이썬 2 , 41 바이트

lambda m,n:(m%n*[m/n+1]+[m/n or _]*n)[:n]

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

NameError 불가능할 때.

파이썬 2 , 43 바이트

lambda m,n:[c/n for c in range(m,m+n,m>=n)]

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

ValueError 불가능할 때.

자바 스크립트 (ES6), 57 56 53 41 바이트

m=>n=>m>=n&&[...Array(n)].map(_=>m++/n|0)

답은 이제 더 현명한 가치 창출 방법을 포함합니다. 감사합니다 @ Neil

용법

f=m=>n=>m>=n&&[...Array(n)].map(_=>m++/n|0)

f(6)(3) // [2, 2, 2]
f(7)(3) // [3, 2, 2]
f(7)(2) // [4, 3]
f(7)(1) // [7]
f(7)(8) // false
f(8)(3) // [3, 3, 2]

역사

첫 번째 광산

(m,n)=>m>=n&&Array(n).fill(~~(m/n)).map((v,i)=>v+(i<m%n))

(m,n)=>m>=n&&Array(n).fill().map((v,i)=>~~(m/n)+(i<m%n))

그런 다음 @Arnauld가 제공하는 스프레드 연산자와 카레 구문을 추가했습니다.

m=>n=>m>=n&&[...Array(n)].map((v,i)=>~~(m/n)+(i<m%n))

Java (OpenJDK 8) , 80 73 63 61 59 바이트

n->m->{for(int i=n;i-->0/(m/n);)System.out.println(m++/n);}

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

참고 목적을 무두질 용 m및 n반전된다.

Pyth , 11 바이트

efqlTeQ./hQ

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

Pyth , 13 바이트

KE?>KQ0lMcK*d

온라인으로 사용해보십시오! 0에러 출력 .

부정 행위, 6 바이트

lMcE*d

온라인으로 사용해보십시오! 배열 0에 오류가 있습니다. 슬프게도 이것은 Pyth에서 거짓 이 아닙니다 .

설명

KE?>KQ0lMcK*dQ    # Implicit input Q for m
KE                # Store n in K
           *d     # Generate a string of length Q containing only spaces
         cK       # Chop this string in K pieces of equal sizes, initial piece longer if necessary
       lM         # For each string, compute the length. Here we already have our result. However if the array contain a zero, we must output a falsy value
  ?>KQ            # If K > Q...
      0           # Then display zero, otherwise display the array

CJam , 13 12 바이트

{_2$>/,/z:,}

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

n m스택에서와 같이 입력을받는 익명 블록입니다 . 좋은 대답 이었지만 오류 처리 요구 사항으로 인해 완전히 종료되었습니다.

해결할 수없는 경우 0으로 나누기 오류가 발생합니다.

설명

{   e# Stack:                | 3 10
 _  e# Duplicate:            | 3 10 10
 2$ e# Copy from back:       | 3 10 10 3
 >  e# Greater than:         | 3 10 1 (true)
 /  e# Divide:               | 3 10
    e# This will cause an error on invalid input.
 ,  e# Range:                | 3 [0 1 2 3 4 5 6 7 8 9]
 /  e# Split on nth element: | [[0 1 2] [3 4 5] [6 7 8] [9]]
 z  e# Transpose array:      | [[0 3 4 9] [1 4 7] [2 5 8]]
 :, e# Length of each:       | [4 3 3]
}

오류 처리 요구 사항이 해제되면이를 7 바이트로 단축 할 수 있으며 이는 40 % 이상 감소한 것입니다.

{,/z:,}