Mungkin tantangan kode-golf sederhana. Diberikan 2 bilangan bulat positif mdan n, buat daftar nnilai yang bilangan bulat positif yang jumlahnya sama dengan angka m. Semua nilai dalam output adalah nilai yang sama atau selisihnya tepat 1.

Contohnya

Sebagai contoh

• m=6dan n=3akan menjadi2, 2, 2
• m=7dan n=3akan menjadi 2, 2, 3atau 2, 3, 2atau 3, 2, 2
• m=7dan n=2akan menjadi 3, 4atau4, 3
• m=7dan n=1akan menjadi7
• m=7dan n=8akan menghasilkan kesalahan karena jumlah 8 bilangan bulat positif tidak boleh 7.
• m=10dan n=4akan menjadi 3, 3, 2, 2atau permutasi lainnya

Aturan

• Baik input dan output hanya tentang bilangan bulat positif.
• Semua nilai dalam output adalah nilai yang sama atau selisihnya tepat 1.
• Urutan nilai dalam daftar tidak penting.
• Jumlah nilai dalam daftar sama dengan m.
• Ketika tidak bisa dipecahkan, hasilkan kesalahan atau nilai salah (dalam kasus m = 7 dan n = 8 misalnya).
• Sebagai hasil dari aturan lain m=8dan n=3akan menghasilkan permutasi salah satu dari 3, 3, 2(tidak 2, 2, 4)

Pemenang

Ini adalah kode-golf, sehingga jawaban terpendek yang valid - diukur dalam byte - menang.

Gaia , 4 byte

…÷l¦

Ada hampir hanya built-in untuk ini ...

Penjelasan

…     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.

Python 2 , 48 43 byte

Pengembalian 0kesalahan.

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

Cobalah online!

41 byte (dengan trik @ xnor)

Melempar NameErrorkesalahan.

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

Cobalah online!

Mathematica, 33 byte

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

memasukkan

[63, 11]

keluaran

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

output Salah ketika tidak bisa dipecahkan

MATL , 7 byte

:gie!Xs

Ketika tidak ada solusi output adalah array yang berisi setidaknya satu nol, yang falsy di MATL.

Cobalah online!

Penjelasan

Pertimbangkan input m = 10dan 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 byte

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

Cobalah online!

Arang , 15 byte setelah menerapkan NDD ¹

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

Cobalah online!

Tidak menghasilkan apa-apa jika tidak ada solusi. Tautan ke versi verbose .

¹ NDD = Pengembangan Berbasis Neil.

Jawaban saya sebelumnya:

Arang , 32 27 24 20 byte

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

Cobalah online!

Tidak menghasilkan apa-apa jika tidak ada solusi. Tautan ke versi verbose .

Tentu saja, saya tidak bisa bermain golf tanpa bantuan Neil.

R , 33 byte

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

Port jawaban Octaf Luis Mendo . Sangat menyedihkan bahwa ini hampir 50% lebih pendek dari jawaban saya sebelumnya.

Cobalah online!

jawaban sebelumnya, 63 byte:

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

Fungsi anonim yang mengambil dua argumen (wajib) mdan n, dan dua yang opsional untuk tujuan bermain golf. Mengembalikan vektor dalam urutan yang meningkat. Untuk kegagalan, nilai pertama adalah 0, yaitu falsey dalam R, sejakif hanya menggunakan nilai pertama dari vektor (dengan peringatan).

Ini pada dasarnya setara dengan fungsi berikut:

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

Cobalah online!

Jelly , 7 6 byte

:ȧœsL€

Cobalah online! Tidak menghasilkan apa-apa untuk falsy.

Bagaimana itu bekerja

:ȧœ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 byte

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

Mengembalikan ERR: DIVIDE OLEH 0 pada kesalahan

Oktaf , 24 byte

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

Kode mendefinisikan fungsi anonim. Outputnya adalah array numerik (vektor baris). Ketika tidak ada array ini mengandung setidaknya satu nol, yang falsy di Octave.

Cobalah online!

Penjelasan

0:m/n:mmenghasilkan array n+1nilai dari 0hingga mdengan langkah m/n. fixputaran setiap entri menuju0 , dan diffmenghitung perbedaan berturut-turut.

Sebagai contoh, di sini adalah semua hasil antara untuk 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 byte

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

Cobalah online!

Penjelasan

Fungsi utama di sini adalah e. eakan mengambil daftar dan pada dasarnya menjalankan pin bergulir sepanjang dari kiri ke kanan. Meskipun ada elemen dalam daftar yang lebih besar dari tetangganya ke kanan, kami akan memindahkan satu dari itu ke kanan.

Sekarang yang harus kita lakukan adalah memberi makan fungsi ini daftar yang cukup miring dan memungkinkannya untuk melakukan keajaiban. Daftar yang akan kita pilih hanya mdiikuti oleh n-1nol. Karena itu mudah dibuat.

Hal terakhir yang perlu kita lakukan adalah memastikan bahwa kasus kesalahan ditangani. Untuk ini kami hanya melempar Non-exhaustive patterns in functionkesalahan selama m>n.

C # (.NET Core) , 86 82 71 byte

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

melempar kesalahan untuk input yang tidak valid.

Cobalah online!

-4 byte terima kasih TheLethalCoder

-11 byte terima kasih kepada OlivierGrégoire

Haskell, 48 byte

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

Mulai dengan daftar n nol. Ulangi mwaktu: ambil elemen pertama, tambahkan satu dan letakkan di akhir daftar.

Gagal dengan kesalahan kecocokan pola jika n < m .

Cobalah online!

Braingolf , 30 byte

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

Cobalah online!

Mengambil input dalam urutan terbalik (n merupakan input pertama,m kedua)

Dibagi mdengan n, menduplikasi hasil nkali, lalu lewati dan tambah satu per satu m % nkali

Batch, 71 byte

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

cmd/cset/atidak menghasilkan pemisah apa pun, jadi saya harus menggunakan echo(( (menghindari pencetakan ECHO is on.).

PHP> = 7.1, 62 byte

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

PHP Sandbox Online

Python 2 , 41 byte

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

Cobalah online!

NameError ketika tidak mungkin.

Python 2 , 43 byte

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

Cobalah online!

ValueError ketika tidak mungkin.

Javascript (ES6), 57 56 53 41 byte

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

Jawab sekarang termasuk cara yang lebih cerdas untuk menciptakan nilai-nilai. Terima kasih @Neil

Pemakaian

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]

Sejarah

Tambang pertama

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

Kemudian menambahkan operator spread dan sintaks currying tip oleh @Arnauld

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

Java (OpenJDK 8) , 80 73 63 61 59 byte

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

Cobalah online!

Catatan, untuk tujuan kari, mdan ndibalik.

Pyth , 11 byte

efqlTeQ./hQ

Cobalah online!

Pyth , 13 byte

KE?>KQ0lMcK*d

Cobalah online! Keluaran0 pada kesalahan.

Kecurangan, 6 byte

lMcE*d

Cobalah online! Array berisi 0kesalahan saat. Sayangnya ini bukan kepalsuan di Pyth .

Penjelasan

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 byte

{_2$>/,/z:,}

Cobalah online!

Ini adalah blok anonim yang menerima input sebagai n m pada stack. Itu akan menjadi jawaban yang baik, tetapi persyaratan penanganan kesalahan benar-benar membunuhnya.

Kesalahan dengan pembagian-oleh-nol saat itu tidak mungkin dipecahkan.

Penjelasan

{   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]
}

Jika persyaratan penanganan kesalahan diangkat, ini dapat dipersingkat menjadi 7 byte, yang merupakan penurunan lebih dari 40%:

{,/z:,}