Разложение чисел
NumberDecompose выражает число во множественных единицах измерения, например, в валютных единицах разного достоинства.
Валюта Багам (BSD) использует банкноты следующего достоинства.
In[1]:=
denominations = {100, 50, 20, 10, 5, 3, 2, 1, 1/2};
BSD допускает большoе количество вариантов размена валюты благодаря наличию банкноты достоинством 3 BSD. Они являются отношением между последовательными номиналами.
In[2]:=
Divide @@@ Subsequences[denominations, {2}]
Out[2]=
В большинстве валютных систем существуют только отношения 2 и 5/2, а в данном случае ещё имеются 5/3 и 3/2.
In[3]:=
Divide @@@ Subsequences[denominations, {2}];
BarChart[%]
Out[3]=
Разложить заданное количество багамских долларов на имеющиеся номиналы банкнот.
In[4]:=
NumberDecompose[598.50, denominations]
Out[4]=
Запросите начальное количество, используя NumberCompose.
In[5]:=
NumberCompose[{5, 1, 2, 0, 1, 1, 0, 0, 1.}, denominations]
Out[5]=
Полученное значение представляет собой количество денег, полученных банкнотой каждого номинала.
In[6]:=
NumberCompose[Table[1, Length@denominations], denominations] // N
Out[6]=