Viết chương trình tính toán nếu một giá trị tiền tệ được nhập, dưới dạng số nguyên, có thể được biểu diễn bằng một tổ hợp tiền và / hoặc ghi chú duy nhất, có nghĩa là không thể sử dụng cùng một đồng tiền / ghi chú nhiều lần.

Chương trình của bạn sẽ lấy một giá trị làm đầu vào và có thể lấy danh sách các giá trị đồng xu / ghi chú thông qua đầu vào hoặc thông qua ngôn ngữ của bạn tương đương với một mảng. Danh sách tiền xu / ghi chú sẽ có thể thay đổi, vì vậy hãy chắc chắn rằng nó được xác định rõ nơi này được xác định nếu bạn đang sử dụng hằng số.

Chương trình của bạn sẽ xuất ra bất kỳ giá trị trung thực / giả mạo tương ứng.

Xin lưu ý rằng việc xuất ra danh sách các đồng xu / ghi chú tạo nên giá trị là không bắt buộc.

THÍ DỤ

Sử dụng bảng Anh, (£ 1,00 = 100 và £ 420,69 = 42069)

coins = [1, 2, 5, 10, 20, 50, 100, 200, 500, 1000, 2000, 5000]

Sau đây sẽ xuất ra đúng:

6 (1, 5)
15 (10, 5)
88 (1, 2, 5, 10, 20, 50)
512 (500, 10, 2)
7003 (5000, 2000, 2, 1)

Sau đây sẽ xuất sai:

4
209
8889
4242424242
[ANYTHING ABOVE 8888]

DỮ LIỆU KIỂM TRA THAY ĐỔI (Đô la Mỹ)

coins = [1, 5, 10, 25, 50, 100, 200, 500, 1000, 2000, 5000, 10000]

Chúc may mắn!

Brachylog 2 (TIO Nexus), 2 byte

⊇+

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

Đưa danh sách các đồng tiền thông qua đầu vào tiêu chuẩn hoặc thông qua việc đưa nó vào đầu chương trình dưới dạng một mảng theo nghĩa đen (sẽ hoạt động, do đó, tùy theo bạn cảm thấy là "hợp pháp hơn"; Các quy tắc PPCG, sau này được cho phép cụ thể bởi câu hỏi); và lấy giá trị để tạo ra làm đối số dòng lệnh.

Giải trình

Chương trình này sử dụng các chi tiết triển khai về cách trình bao bọc của TIO Nexus cho các chức năng Brachylog; cụ thể, nó cho phép bạn đưa ra một đối số dòng lệnh để cung cấp đầu vào thông qua Đầu ra. (Điều này không được dự tính trong thiết kế ban đầu cho Brachylog; tuy nhiên, các ngôn ngữ được xác định bởi việc triển khai trên PPCG và nếu việc triển khai xuất hiện để làm những gì tôi cần, do đó tôi có thể tận dụng lợi thế của nó.) chương trình trông như thế này:

⊇+
⊇   Some subset of {standard input}
 +  sums to {the first command-line argument}

Là một chương trình đầy đủ, nó trả về giá trị boolean; true.nếu tất cả các xác nhận trong chương trình có thể được thỏa mãn đồng thời, hoặc false.nếu chúng không thể.

(Một lời nhắc hoặc cho những người chưa biết: Brachylog 2 sử dụng mã hóa ký tự của chính nó trong đó ⊇là một byte dài.)

05AB1E , 4 byte

æOså

Giải trình:

æ      Calculate the powerset of the first input
 O     Sum each element
  s    Put the second input at the top of the stack
   å   Check whether the input is in the powerset sum.

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

Toán học, 25 byte

!FreeQ[Tr/@Subsets@#,#2]&

Hàm thuần túy lấy một mảng các giá trị coin làm đối số thứ nhất và số nguyên đích làm đối số thứ hai và trả về Truehoặc False.

Thạch, 6 byte

ŒPS€e@

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

-2 byte nhờ Leaky Nun
-13 byte nhờ Leaky Nun (truyện dài)

Võng mạc , 52 31 byte

\d+
$*
^((1+) |1+ )+(?<-2>\2)+$

Hãy thử trực tuyến! Đưa đầu vào dưới dạng danh sách các đồng tiền và ghi chú được phân tách bằng dấu cách, theo sau là giá trị mong muốn. Chỉnh sửa: Đã lưu 18 byte nhờ @Kobi, người đã gỡ lỗi mã của tôi. Giải thích: Hai dòng đầu tiên chỉ đơn giản là chuyển đổi từ thập phân sang đơn nguyên. Dòng thứ ba sau đó nắm bắt danh sách các đồng tiền và ghi chú. Sự xen kẽ cho phép động cơ quay lại và chọn không chụp các đồng xu / ghi chú cụ thể. Nhóm cân bằng sau đó khớp giá trị với tất cả các hậu tố của danh sách chụp (không cần thiết nhưng golfier.)

Brachylog , 7 byte

tT&h⊇+T

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

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

tT&h⊇+T
tT      the second input is T
  &     and
   h    the first input
    ⊇   is a superset of a set
     +  that sums up to
      T T

Bao gồm cả sự kết hợp, 9 byte

tT&h⊇.+T∧

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

Java (OpenJDK 8) , 125 byte

boolean f(int[]c,int n){int l=c.length;if(l<1)return n==0;int[]a=java.util.Arrays.copyOf(c,l-1);return f(a,n-c[l-1])|f(a,n);}

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

Prolog (SWI) , 46 byte

a([],0).
a([H|T],X):-Y is X-H,(a(T,Y);a(T,X)).

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

Ngã ba câu trả lời Python của tôi .

JavaScript (ES6), 81 69 67 64 byte

Đưa ra danh sách các đồng tiền cvà số tiền mục tiêu atrong cú pháp currying (c)(a). Trả về 0hoặc true.

c=>g=(a,m=1)=>c.map((c,i)=>x-=c*(m>>i&1),x=a)&&!x||x-a&&g(a,m+1)

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

let f =

c=>g=(a,m=1)=>c.map((c,i)=>x-=c*(m>>i&1),x=a)&&!x||x-a&&g(a,m+1)

const pound = [1, 2, 5, 10, 20, 50, 100, 200, 500, 1000, 2000, 5000];

console.log(f(pound)(6))
console.log(f(pound)(15))
console.log(f(pound)(88))
console.log(f(pound)(512))
console.log(f(pound)(7003))

console.log(f(pound)(4))
console.log(f(pound)(209))
console.log(f(pound)(8889))
console.log(f(pound)(4242424242))

Haskell , 28 byte

Hàm toán tử (#)lấy một số nguyên và một danh sách các số nguyên (hay nói chung hơn là bất kỳ vùng Traversablechứa số nào) và trả về a Bool.

Sử dụng như 6#[1, 2, 5, 10, 20, 50, 100, 200, 500, 1000, 2000, 5000].

c#l=elem c$sum<$>mapM(:[0])l

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

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

• clà giá trị mong muốn và ldanh sách các giá trị coin.
• mapM(:[0])lánh xạ (:[0])qua l, ghép từng giá trị với 0 và sau đó xây dựng sản phẩm cartesian, đưa ra danh sách trong đó mỗi phần tử là giá trị tương ứng của nó trong lhoặc 0.
• sum<$>tổng hợp từng kết hợp và elem c$kiểm tra nếu ccó trong danh sách kết quả.

R, 88 83 byte

-5 byte nhờ @Jarko Dubbeldam

trả về một hàm ẩn danh. Nó tạo ra tất cả các kết hợp có thể có của tiền (sử dụng expand.gridtrên các cặp T,F) và kiểm tra nếu có (các) giá trị. klà tiền xu vì clà một từ dành riêng trong R. Có thể kiểm tra nhiều giá trị cùng một lúc.

function(k,v)v%in%apply(expand.grid(Map(function(x)!0:1,k)),1,function(x)sum(k[x]))

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

Japt , 7 byte

à mx èN

Hãy thử trực tuyến! Đầu ra 0cho giả, một số nguyên dương cho sự thật.

Giải trình

à mx èN
          // Implicit: U = input array, V = input integer, N = array of all inputs
à         // Take all combinations of U.
  mx      // Map each combination to its sum.
     è    // Count the number of items in the result which also exist in
      N   //   the array of inputs.
          // This returns 0 if no combination sums to V, a positive integer otherwise.
          // Implicit: output result of last expression

Python 3 , 52 byte

5 byte nhờ vào lò nướng.

f=lambda c,n:c and f(c[1:],n-c[0])|f(c[1:],n)or n==0

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

Ruby , 39 byte

Trả về nilgiá trị giả và giá trị đồng xu nhỏ nhất trong danh sách tạo thành số là trung thực (tất cả các số là trung thực trong Ruby).

f=->c,n{n!=0?c.find{|i|f[c-[i],n-i]}:1}

Tuy nhiên, hãy cẩn thận, thuật toán này cực kỳ chậm, với O(C!)độ phức tạp về thời gian, trong đó Cđộ dài của danh sách tiền xu. Cuối cùng nó cũng kết thúc, nhưng hầu hết các trường hợp thử nghiệm sẽ hết thời gian trên hầu hết các thông dịch viên trực tuyến f(UK_POUND, 5).

Đây là phiên bản 41 byte kết thúc nhanh hơn nhiều bằng cách thêm một điều kiện kết thúc bổ sung và thực sự khó hơn nhiều khi hết thời gian

f=->c,n{n>0?c.find{|i|f[c-[i],n-i]}:n==0}

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

Tiện ích Bash + GNU, 56 39

printf %$2s|egrep "^ {${1//,/\}? {}}?$"

Danh sách mệnh giá đầu vào (chưa sắp xếp) được đưa ra dưới dạng danh sách được phân tách bằng dấu phẩy. Danh sách đầu vào và giá trị được đưa ra dưới dạng tham số dòng lệnh.

Đầu ra được đưa ra dưới dạng mã trả lại shell. Kiểm tra với echo $?sau khi chạy tập lệnh. 0có nghĩa là sự thật, 1có nghĩa là giả.

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

• printf %$2s xuất ra một chuỗi value khoảng trắng
• "^ {${1//,/\}? {}}?$"là một bản mở rộng shell mở rộng danh sách mệnh giá thành regex như thế nào ^ {1}? {2}? {5}? {10}? ... $. Hóa ra làegrep công cụ regex đủ thông minh để khớp chính xác với điều này, bất kể mệnh giá là gì theo thứ tự
• egrep kiểm tra xem chuỗi khoảng trắng có khớp với biểu thức chính quy không

C, 66 byte

m;v;f(n){for(m=1e5;m/=10;)for(v=5;n-=n<v*m?0:v*m,v/=2;);return!n;}

Xem nó hoạt động ở đây .

C, 53 byte

g(c,w,n)int*c;{for(;n-=n<c[--w]?0:c[w],w;);return!n;}

Biến thể này lấy mảng coin, đánh bại mục đích của vấn đề này, bởi vì nó đi đến phép trừ đơn giản.

Đối số đầu tiên là mảng coin, thứ hai là số xu và thứ ba là giá trị.

C, 48 byte

g(c,n)int*c;{for(;n-=n<*c?0:*c,*++c;);return!n;}

Một thay thế cho các biến thể trước đó. Nó giả định rằng mảng coin có thể bị đảo ngược và không bị chấm dứt.

Bình thường , 6 byte

/sMtyE

Bộ thử nghiệm.

CJam , 18 17 byte

q~_,2\m*\f.*::+#)

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

Giải trình

q~                  e# Read and eval input.
  _,                e# Duplicate the money list and take its length.
    2\m*            e# Take the (length)th Cartesian power of [0 1].
        \f.*        e# Element-wise multiplication of each set of 0's and 1's with the money
                    e#   list. This is essentially the powerset, but with 0s instead of 
                    e#   missing elements.
            ::+     e# Sum each set.
               #    e# Find the index of the desired amount in the list. (-1 if not found)
                )   e# Increment. -1 => 0 (falsy), anything else => nonzero (truthy)

C (gcc) , 91 byte

i,j,c[]={1,2,5};f(n){for(i=1000;i;i/=10)for(j=2;j>=0;j--)n-=n<i*c[j]?0:i*c[j];return n==0;}

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

PHP, 70 byte

in 1 cho đúng và không có gì sai

<?foreach($_GET[1]as$v)$i-=$v*$r[]=($i=&$_GET[0])/$v^0;echo max($r)<2;

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

Octave, 39 byte

 @(L,n)any(cellfun(@sum,powerset(L))==n)

Một hàm ẩn danh lấy một mảng các giá trị coin làm đối số thứ nhất và số nguyên đích làm đối số thứ hai và trả về true hoặc false.

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

Toán học, 42 byte

ListQ@NumberDecompose[#,Sort[#2,Greater]]&

đầu vào

[15, {10,5}]