おそらく単純なコードゴルフの挑戦。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]

オンラインでお試しください！

Mathematica、33バイト

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

入力

[63、11]

出力

{6、6、6、6、6、6、6、6、6、5、5、5}

解けない場合にFalseを出力します

MATL、7バイト

:gie!Xs

解決策がない場合、出力は少なくとも1つのゼロを含む配列になります。これは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]

Haskell、30バイト

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

オンラインでお試しください！

チャコール、NDD ^1を適用した後の15バイト

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

オンラインでお試しください！

解決策がない場合は何も出力しません。詳細バージョンへのリンク。

¹ NDD =ニール駆動型開発。

私の前の答え：

炭、32 27 24 20バイト

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

オンラインでお試しください！

解決策がない場合は何も出力しません。詳細バージョンへのリンク。

もちろん、ニールの助けがなければ、ゴルフをすることはできませんでした。

R、33バイト

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

ルイスメンドーのオクターブ回答のポート。これが以前の回答よりもほぼ50％短いことは非常に悲しいことです。

オンラインでお試しください！

前の回答、63バイト：

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

2つの（必須の）引数mとn、およびゴルフを目的とする2つのオプションの引数を取る匿名関数。ベクトルを昇順で返します。失敗した場合、最初の値は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-Basic、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))

コードは匿名関数を定義します。出力は数値配列（行ベクトル）です。この配列が存在しない場合、少なくとも1つのゼロが含まれます。これは偽です Octaveです。

オンラインでお試しください！

説明

0:m/n:mstepでn+1から0までの値の配列を生成します。各エントリを次の方向に丸めますmm/nfix0て、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

Haskell、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 Core）、86 82 71バイト

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

無効な入力に対してエラーをスローします。

オンラインでお試しください！

-4バイトのおかげで TheLethalCoderの

OlivierGrégoireのおかげで-11バイト

Haskell、48バイト

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

nゼロのリストから始めます。繰り返すm回数：最初の要素を取得して追加し、リストの最後に配置します。

もしパターンマッチエラーで失敗しますn < m。

オンラインでお試しください！

ブレインゴルフ、30バイト

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

オンラインでお試しください！

入力を逆順に取ります（n最初の入力、m2番目の入力）

分割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サンドボックスオンライン

Python 2、41バイト

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

オンラインでお試しください！

NameError 不可能なとき。

Python 2、43バイト

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

オンラインでお試しください！

ValueError 不可能なとき。

Javascript（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、スタック上の。それは良い答えだっただろうが、エラー処理の要件はそれを完全に殺した。

解決できない場合のゼロ除算のエラー。

説明

{   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:,}