Décomposition des nombres
NumberDecompose Exprime un nombre en multiples d'unités, comme les dénominations de devises.
La monnaie Bahaméen (BSD) utilise les dénominations de billets de banque suivants.
denominations = {100, 50, 20, 10, 5, 3, 2, 1, 1/2};BSD permet des moyens plus de formes possibles de rupture d'une quantité donnée par rapport aux factures des autres devises en raison de la présence de la note BSD. Ce sont les quotients entre les dénominations consécutives.
Divide @@@ Subsequences[denominations, {2}]
Dans la plupart des systèmes monetaires, seuls les quotients 2 et 5/2 sont présents, mais dans ce cas il y a aussi 5/3 et 3/2.
Divide @@@ Subsequences[denominations, {2}];
BarChart[%]
Décomposez un montant en dollars des Bahamas disponibles dans les dénominations de billets de banque.
NumberDecompose[598.50, denominations]
Recouvrez le montant initial en utilisant NumberCompose.
NumberCompose[{5, 1, 2, 0, 1, 1, 0, 0, 1.}, denominations]
Ceci est le montant obtenu avec un billet de banque de chaque dénomination.
NumberCompose[Table[1, Length@denominations], denominations] // N
