您正在编写一个自动收银机的程序。用户需要使用最少数量的硬币进行找零。编写一个程序，该程序需要一个金额（例如1.53美元）并给出美国面额的找零-在这种情况下：1 x 1美元纸币，1 x 50美分和3 x 1美分。最短的节目是获胜者。支持其他货币（即英国面额）和非正常货币（1、2、3美分？）的奖励积分

您有以下这些美国面额：1美分，5美分，10美分，25美分，50美分，1美元（纸币或硬币），2美元，5美元，10美元。

您有以下这些英国面额：1便士，2便士，5便士，10便士，20便士，50便士，1英镑，2英镑，5英镑（纸币或硬币），10英镑。

Windows PowerShell中，108 111 117

第一次尝试，到目前为止尚未解决：

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

实施说明：

1. 接受数量通过管道退回
2. 通过命令行接受货币面额列表
3. 数量可以用货币符号给定；将会被剥离（实际上是任何非数字的）。
4. 面额列表不需要排序。
5. 程序将输出小于给定面额所能达到的最大数量变化的最大零钱，即如果丢失1美分硬币，则1.5等于1.53。

如果不需要满足3和4（即，我控制输入​​格式;-）），那么以下程序就足够了（71）：

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

Mathematica：110个字符

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

用法

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

要么

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个字符）给

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

对于其他面额，只需更改有理表{10，....，5 / 100,1 / 100}

D：225个字符

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");}

更清晰：

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");
}

仅处理美元。将值作为命令行上的浮点值（对于不足1美元的值，必须以0开头）。不接受$作为价值的一部分。在单独的行上输出每种票据/硬币的编号。例如，输入1.53会导致：

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

Mathematica，51个字节

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

输入

[1.53]

输出

{0，0，0，1，1，1，0，0，0，3.}

Mathematica，82个字节-有奖金-

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

输入值

[37.6，{15，7，2.5，1，0.88，0.2，0.01}]

输出

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

Javascript，84 83个字节

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

使用贪婪算法。

APL（Dyalog），19字节

提示输入所需的数量，然后提示以最小单位（便士/分）表示的面额。

⎕CY'dfns'
⎕ stamps⎕

在线尝试！

⎕CY'dfns' Ç Ò p ÿ 的dfns工作区

⎕ stamps⎕ 要求输入和作为参数使用的stamps功能