Bạn đang viết một chương trình cho một máy tính tiền tự động. Người dùng cần thay đổi với số lượng xu ít nhất được sử dụng. Viết chương trình cần một số tiền (giả sử là 1,53 đô la) và thay đổi mệnh giá của Hoa Kỳ - trong trường hợp này: 1 x một tờ đô la, 1 x năm mươi xu và 3 x một xu. Chương trình ngắn nhất sẽ là người chiến thắng. Điểm thưởng cho việc hỗ trợ các loại tiền tệ khác (ví dụ mệnh giá của Vương quốc Anh) và các loại tiền tệ bất thường (1, 2, 3 xu?)

Bạn có các mệnh giá Mỹ: 1 xu, 5 xu, 10 xu, 25 xu, 50 xu, 1 đô la (ghi chú hoặc tiền xu), 2 đô la, 5 đô la, 10 đô la.

Bạn có các mệnh giá của Vương quốc Anh: 1 pence, 2 pence, 5 pence, 10 pence, 20 pence, 50 pence, £ 1, £ 2, £ 5 (ghi chú hoặc tiền xu), £ 10.

Windows PowerShell, 108 111 117

Nỗ lực đầu tiên, vô căn cứ cho đến nay:

$i=+("$input"-replace'[^\d.]')
$args|%{0d+$_}|sort -des|%{$a=[math]::floor($i/$_)
if($a){$i-=$a*$_
"$a×$_"}}

Ghi chú thực hiện:

1. Chấp nhận số lượng để trả lại qua đường ống
2. Chấp nhận danh sách mệnh giá tiền tệ thông qua dòng lệnh
3. Số lượng có thể được đưa ra với một dấu hiệu tiền tệ; nó sẽ bị tước (trên thực tế, bất cứ thứ gì không phải là số).
4. Danh sách các mệnh giá không cần phải sắp xếp.
5. Chương trình sẽ tạo ra thay đổi lớn nhất nhỏ hơn số lượng yêu cầu có thể đạt được với các mệnh giá đã cho, tức là 1,5 cho 1,53 nếu thiếu 1 xu.

Nếu 3 và 4 không cần phải thỏa mãn (nghĩa là tôi kiểm soát định dạng đầu vào ;-)), thì chương trình sau đủ (71):

$i=+"$input"
$args|%{$a=[math]::floor($i/$_)
if($a){$i-=$a*$_
"$a×$_"}}

Toán học: 110 ký tự

Sort[IntegerPartitions[Rationalize@#,Infinity,{10,5,2,1,1/2,1/4,1/10,5/100,1/100}],
    Length@#1<Length@#2&][[1]]&  

Sử dụng

%[0.98]  
{1/100, 1/100, 1/100, 1/10, 1/10, 1/4, 1/2}  

Hoặc là

Tally@Sort[IntegerPartitions[Rationalize@#,Infinity,
                             {10,5,2,1,1/2,1/4,1/10,5/100,1/100}],
     Length@#1<Length@#2&][[1]]&  

(6 ký tự nữa) cho

{{1/100, 3}, {1/10, 2}, {1/4, 1}, {1/2, 1}}

Đối với các mệnh giá khác, chỉ cần thay đổi bảng hợp lý {10, ...., 5 / 100,1 / 100}

D: 225 ký tự

import std.algorithm,std.conv,std.stdio;void main(string[]args){auto m=args[1].findSplit(".");void p(T,S)(T t,T u,S s){foreach(v;[u,10,5,1]){writefln("%s %s%s",t/v,v,s);t-=(t/v)*v;}}p(to!int(m[0]),20,"");p(to!int(m[2]),25,"/100");}

Dễ đọc hơn:

import std.algorithm,std.conv,std.stdio;

void main(string[] a)
{
    auto m = a[1].findSplit(".");

    void p(T, S)(T t, T u, S s)
    {
        foreach(v; [u, 10, 5, 1])
        {
            writefln("%s %s%s", t / v, v, s);
            t -= (t / v) * v;
        }
    }

    p(to!int(m[0]), 20, "");
    p(to!int(m[2]), 25, "/100");
}

Chỉ xử lý tiền Mỹ. Lấy giá trị làm giá trị dấu phẩy động trên dòng lệnh (phải có 0 đứng đầu cho các giá trị dưới 1 đô la). Không chấp nhận $ là một phần của giá trị. Xuất số lượng của từng loại hóa đơn / đồng tiền trên một dòng riêng biệt. Ví dụ: đầu vào 1,53 kết quả trong:

0 20
0 10
0 5
1 1
2 25/100
0 10/100
0 5/100
3 1/100

Toán học, 51 byte

#~NumberDecompose~{10,5,2,1,.5,.25,.1,.05,.01}&

đầu vào

[1,53]

đầu ra

{0, 0, 0, 1, 1, 0, 0, 0, 3.}

Mathicala, 82 byte - TIỀN THƯỞNG--

(s=#~NumberDecompose~#2;Row@Flatten@Table[Table[#2[[i]]"+",s[[i]]],{i,Length@s}])&

Đầu vào

[37,6, {15, 7, 2.5, 1, 0.88, 0.2, 0.01}]

đầu ra

15 +15 +7 +0.2 +0.2 +0.2 +

Javascript, 84 83 byte

(n,v=[10,5,2,1,.5,.25,.1,.05,.01],l=[])=>{for(i in v)l[i]=n/v[i]|0,n%=v[i];return l}

(n,v=[10,5,2,1,.5,.25,.1,.05,.01],l=[])=>eval("for(i in v)l[i]=n/v[i]|0,n%=v[i];l")

Sử dụng một thuật toán tham lam.

APL (Dyalog) , 19 byte

Nhắc nhở cho số tiền mong muốn và sau đó cho các mệnh giá được biểu thị bằng đơn vị nhỏ nhất (đồng xu / xu).

⎕CY'dfns'
⎕ stamps⎕

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

⎕CY'dfns' C o p y các dfnskhông gian làm việc

⎕ stamps⎕ yêu cầu đầu vào và sử dụng như là đối số cho các stampschức năng