8

Viết mã ngắn nhất bạn có thể giải quyết vấn đề sau:

Đầu vào:

Một số nguyên X có 2 <= XvàX <= 100

Đầu ra:

Tổng số kết hợp của 2, 3 và 5 (cho phép lặp lại, các vấn đề đặt hàng) có tổng bằng X.

Ví dụ:

Đầu vào: 8

Đầu ra : 6, bởi vì các kết hợp hợp lệ là:

3+5
5+3
2+2+2+2
2+3+3
3+2+3
3+3+2

Đầu vào: 11

Đầu ra : 16, bởi vì các kết hợp hợp lệ là

5+3+3
5+2+2+2
3+5+3
3+3+5
3+3+3+2
3+3+2+3
3+2+3+3
3+2+2+2+2
2+5+2+2
2+3+3+3
2+3+2+2+2
2+2+5+2
2+2+3+2+2
2+2+2+5
2+2+2+3+2
2+2+2+2+3

Đầu vào: 100

Đầu ra : 1127972743581281, bởi vì các kết hợp hợp lệ là ... nhiều

Đầu vào và đầu ra có thể là bất kỳ hình thức hợp lý. Số byte thấp nhất trong mỗi ngôn ngữ sẽ thắng. Luật golf tiêu chuẩn được áp dụng.

code-golf combinatorics integer-partitions

— anta40
nguồn

1

Chào mừng đến với PPCG! Thật không may, ở đây chúng tôi không trả lời các câu hỏi lập trình chung. Tuy nhiên, bạn có thể nhận trợ giúp về Stack Overflow . Chỉ cần chắc chắn kiểm tra trung tâm trợ giúp của họ trước khi yêu cầu. :)

— Erik the Outgolfer 16/218

1

Ai đó có thể điều chỉnh lại điều này thành một thách thức? Bởi vì đây sẽ là một niềm vui.

— Bạch tuộc ma thuật Urn

1

@Shaggy Ugghhh ... lọc qua các thử thách với từ sumtrong đó không phải là một ý tưởng hay để cố gắng giải quyết câu hỏi đó ...

— Bạch tuộc ma thuật Urn

2

Tôi viết lại câu hỏi của bạn một chút để làm cho nó phù hợp hơn với codegolf. Tôi cũng thay đổi kết quả cho đầu vào 11từ 12đến 16. Tất nhiên, vui lòng sửa lỗi này nếu tôi hiểu nhầm ý định của bạn

— TonMedel 16/2/18

2

Đây là oeis.org/A079973

— TonMedel 16/2/18

9

Python 2 , 46 45 byte

cảm ơn xnor cho -1 byte

f=lambda n:n>0and f(n-2)+f(n-3)+f(n-5)or n==0

Hãy thử trực tuyến!

— lò nướng
nguồn

Trông giống như and/orhoạt động và tiết kiệm một byte : f=lambda n:n>0and f(n-2)+f(n-3)+f(n-5)or n==0.

— xnor

@xnor cảm ơn rất nhiều. Tôi chỉ cố gắng nó vòng cách khác

— OVS

6

Ốc đảo , 9 byte

cd5e++VT1

Hãy thử trực tuyến!

Giải trình

        1    # a(0) = 1
       T     # a(1) = 0, a(2) = 1
      V      # a(3) = 1, a(4) = 1

             # a(n) = 
c    +       # a(n-2) +
 d  +        # a(n-3) +
  5e         # a(n-5)

— Biểu tượng
nguồn

3

Bình thường , 9 byte

/sM{y*P30

Hãy thử nó ở đây!

Bình thường , 16 byte

l{s.pMfqT@P30T./

Hãy thử nó ở đây

Làm sao?

Tạo các thừa số nguyên tố của 30 , cụ thể là [2, 3, 5] , lấy quyền hạn của nó lặp lại N lần, loại bỏ các phần tử trùng lặp, tính tổng mỗi danh sách và đếm số lần xuất hiện của N trong đó.
Đối với mỗi parition số nguyên p , nó kiểm tra xem p có bằng p ∩ primefac (30) không . Nó chỉ giữ cho những người thỏa mãn điều kiện này và với mỗi phân vùng còn lại k , nó sẽ nhận được danh sách hoán vị của k , làm phẳng danh sách kết quả theo 1 cấp, sao chép nó và lấy ra độ dài.

— Ông Xcoder
nguồn

3

Thạch , 11 byte

5ÆRẋHŒPQḅ1ċ

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

5ÆRẋHŒPQḅ1ċ -> Chương trình đầy đủ. Đối số: N, một số nguyên.
5ÆR -> Đẩy tất cả các số nguyên tố từ 2 đến 5, bao gồm.
   H -> Lặp lại danh sách này N / 2 lần.
     P -> Tạo quyền hạn.
       Q -> Xóa các mục trùng lặp.
        1 -> Chuyển đổi từng từ unary (nghĩa là tổng hợp từng danh sách)
          -> Đếm số lần xuất hiện của N vào danh sách này.

— Ông Xcoder
nguồn

Tăng tốc bằng cách thay thế ³bằng H(sau đó sẽ hết thời gian vào lúc 12 chứ không phải 6)

— Jonathan Allan

@Jonathan ALLan Xong, cảm ơn.

— Ông Xcoder

2

Perl, 38 byte

Bao gồm +1chop

perl -pE '$_=1x$_;/^(...?|.{5})+$(?{$\++})\1/}{' <<< 11; echo

Đủ thú vị tôi phải sử dụng \1để buộc quay lại. Thông thường tôi sử dụng ^nhưng trình tối ưu hóa regex có vẻ quá thông minh cho điều đó và cho kết quả quá thấp. Có lẽ tôi sẽ phải bắt đầu đưa ra số phiên bản perl khi sử dụng thủ thuật này vì trình tối ưu hóa có thể thay đổi ở mọi phiên bản. Điều này đã được thử nghiệm trênperl 5.26.1

Điều này 49là hiệu quả và thực sự có thể xử lý X=100(nhưng tràn vào X=1991)

perl -pe '$\=$F[@F]=$F[-2]+$F[-3]+$F[-5]for($F[5]=1)..$_}{' <<< 100;echo

— Tôn bác sĩ
nguồn

2

C, 41 byte

G(x){return x>0?G(x-2)+G(x-3)+G(x-5):!x;}

Hãy thử trực tuyến!

— 0xrgb
nguồn

2

JavaScript (ES6), 32 byte

Thuật toán tương tự như trong câu trả lời Python của ovs .

f=n=>n>0?f(n-2)+f(n-3)+f(n-5):!n

Các trường hợp thử nghiệm

Hiển thị đoạn mã

f=n=>n>0?f(n-2)+f(n-3)+f(n-5):!n

console.log(f(8))
console.log(f(11))
console.log(f(13))

Mở rộng đoạn trích

— Arnauld
nguồn

2

R , 56 49 47 byte

Phương pháp đệ quy từ câu trả lời của ovs . Giuseppe đã loại bỏ hai byte cuối cùng để tạo thành 47.

f=pryr::f(+`if`(x<5,x!=1,f(x-2)+f(x-3)+f(x-5)))

Hãy thử trực tuyến!

— rturnbull
nguồn

1

48 byte

— Giuseppe

@Giuseppe Cải tiến rất hay!

— rturnbull

1

à, bạn không cần 0(tôi đã không cân nhắc điều đó trước đây), vì unary +cũng sẽ ép buộc numeric.

— Giuseppe

1

MATL , 15 byte

:"5Zq@Z^!XsG=vs

Rất không hiệu quả: bộ nhớ cần thiết là cấp số nhân.

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

:"       % For each k in [1 2 ... n], where n is implicit input
  5Zq    %   Push primes up to 5, that is, [2 3 5]
  @      %   Push k
  Z^     %   Cartesian power. Gives a matrix where each row is a Cartesian k-tuple
  !Xs    %   Sum of each row
  G=     %   Compare with input, element-wise
  vs     %   Concatenate all stack contents vertically and sum
         % Implicit end. Implicit display

— Luis Mendo
nguồn

1

05AB1E , 10 byte

30fIиæÙOI¢

Hãy thử trực tuyến!

— Ông Xcoder
nguồn

1

Ruby , 41 byte

f=->n{n<5?n==1?0:1:[n-5,n-2,n-3].sum(&f)}

Hãy thử trực tuyến!

Đây là một giải pháp đệ quy, cuộc gọi đệ quy là : [n-5,n-2,n-3].sum(&f).

— MegaTom
nguồn

1

Pari / GP , 36 byte

f(n)=if(n>0,f(n-2)+f(n-3)+f(n-5),!n)

Hãy thử trực tuyến!

Lâu hơn, nhưng hiệu quả hơn:

Pari / GP , 37 byte

n->Vec(1/(1-x^2-x^3-x^5)+O(x^n++))[n]

Hãy thử trực tuyến!

— alephalpha
nguồn

0

Thạch , 21 byte

Œṗe€2,3,5$Ạ$ÐfŒ!Q$€ẎL

Hãy thử trực tuyến!

Chắc chắn có thể chơi gôn

— HyperNeutrino
nguồn

0

Bình thường, 12 byte

l{fqQsTy*P30

Điều này cực kỳ kém hiệu quả và đạt đến giới hạn bộ nhớ cho các đầu vào trên 5.

Dùng thử trực tuyến

Giải trình

l{fqQsTy*P30
         P30   Get the prime factors of 30 [2, 3, 5].
        *   Q  Repeat them (implicit) input times.
       y       Take the power set...
  fqQsT        ... and filter the ones whose sum is the input.
l{             Count unique lists.

0

Proton , 32 byte

f=n=>n>0?f(n-2)+f(n-3)+f(n-5):!n

Hãy thử trực tuyến!

Cách tiếp cận tương tự như câu trả lời của ovs .

— Ông Xcoder
nguồn

Polyglot JS :-)

— Arnauld

0

Ngôn ngữ Wolfram (Mathicala) , 43 byte

Tr[Multinomial@@@{2,3,5}~FrobeniusSolve~#]&

Hãy thử trực tuyến!

Giải thích: FrobeniusSolvetính toán tất cả các giải pháp của tổng không có thứ tự 2a + 3b + 5c = n, sau đó chỉ Multinomialra có bao nhiêu cách chúng ta có thể đặt hàng các khoản tiền đó.

Hoặc chúng ta chỉ có thể sao chép giải pháp của mọi người khác cho cùng một số byte:

f@1=0;f[0|2|3|4]=1;f@n_:=Tr[f/@(n-{2,3,5})]

— Không phải là một cái cây
nguồn

0

Haskell , 40 byte

f 0=1
f n|n<0=0|1>0=f(n-2)+f(n-3)+f(n-5)

Hãy thử trực tuyến!

— lò nướng
nguồn

Tổng hợp các kết hợp với sự lặp lại

Python 2 , 46 45 byte

Ốc đảo , 9 byte

Bình thường , 9 byte

Bình thường , 16 byte

Làm sao?

Thạch , 11 byte

Làm thế nào nó hoạt động

Perl, 38 byte

C, 41 byte

JavaScript (ES6), 32 byte

Các trường hợp thử nghiệm

R , 56 49 47 byte

MATL , 15 byte

Làm thế nào nó hoạt động

05AB1E , 10 byte

Ruby , 41 byte

Pari / GP , 36 byte

Pari / GP , 37 byte

Thạch , 21 byte

Bình thường, 12 byte

Giải trình

Proton , 32 byte

Ngôn ngữ Wolfram (Mathicala) , 43 byte

Haskell , 40 byte