Greedy decomposition of a number into unit multiples
NumberDecompose[x, {u1, …, un}]
NumberDecompose[100000, {86400, 3600, 60, 1}]
→ {1, 3, 46, 40}NumberDecompose[598.32, {100, 50, 20, 10, 5, 2, 1}]
→ {5, 1, 2, 0, 1, 1, 1.32000000000005}NumberDecompose[99, {10, 5, 2, 1}]
→ {9, 1, 2, 0}