Ваше завдання - розкласти число у форматі нижче.

Це схоже на перетворення бази, за винятком того, що замість того, щоб перелічувати digitsв базі, ви перераховуєте список values, такий, що список додає до вхідних даних.

Якщо дана база є n, то кожне число у списку має бути у формі k*(n**m), де 0<=k<nта mє унікальним у всьому списку.

Технічні характеристики

• Будь-який розумний формат введення / виводу. Ваша програма / функція займає 2 входи та виводить список.
• Список вихідних даних може бути в будь-якому порядку.
• 0 можуть бути виключені або включені.
• Ведучі 0дозволені.
• Вбудовані дозволені .

Тестові шафи

number base   converted list
input1 input2 output
123456 10     [100000,20000,3000,400,50,6] or [6,50,400,3000,20000,100000]
11     2      [8,2,1] or [0,0,0,0,8,0,2,1]
727    20     [400,320,7]
101    10     [100,1] or [100,0,1]

Оцінка балів

Це код-гольф . Найкоротше рішення в байтах виграє.

Желе , 7 байт

lr0⁹*×b

Спробуйте в Інтернеті! або перевірити всі тестові випадки .

Як це працює

lr0⁹*×b  Main link. Arguments: x (integer), n (base)

l        Compute the logarithm of x to base n.
 r0      Range; yield all non-negative integers less than the logarithm, in
         decreasing order.
   ⁹*    Elevate n to all integers in that range.
      b  Yield the list of base-n digits of x.
     ×   Multiply each digit by the corresponding power of n.

JavaScript (ES6), 47 байт

f=(n,b,p=1,q=b*p)=>[...n<q?[]:f(n,b,q),n%q-n%p]
document.write("<pre>"+
[ [ 123456, 10 ], [ 11, 2 ], [ 727, 20 ], [ 101, 10 ] ]
.map(c=>c+" => "+f(...c)).join`\n`)

Желе, 12 байт

bLR’*@€U
b×ç

Можна waaaay коротше ...

Спробуйте в Інтернеті!

Pyth - 12 11 байт

Просто FGITW, може бути коротше.

.e*b^Qk_jEQ

Тестовий сюїт .

J, 20 19 байт

[(]*(^<:@#\.))#.inv

Використання

   f =: [(]*(^<:@#\.))#.inv
   10 f 123456
100000 20000 3000 400 50 6
   2 f 11
8 0 2 1
   20 f 727
400 320 7
   10 f 101
100 0 1

Пояснення

[(]*(^<:@#\.))#.inv
              #.      Given a base and list of digits in that base,
                      converts it to an integer in base 10
                inv   Power conjunction by -1, creates an inverse
                      Now, this becomes a verb that given a base and an integer in base 10,
                      creates a list of digits in that base representing it
[                     Select the base and pass it along
         #\.          Tally each suffix of the list of base digits,
                      Counts down from n to 1
      <:              Decrements each value
        @             More specifically, decrement is composed with the tally and applied
                      together on each suffix
     ^                Raises each value x using base^x
  ]                   Selects the list of base digits
   *                  Multiply elementwise between each base power and base digit

CJam, 16 байт

{1$b\1$,,f#W%.*}

Безіменний блок, який очікує основу та число на вершині стека (у такому порядку) та замінює їх розрядним числом (включаючи внутрішні нулі, без провідних нулів).

Тестуйте це тут.

Пояснення

1$  e# Copy base b.
b   e# Compute base-b digits of input number.
\   e# Swap digit list with other copy of b.
1$  e# Copy digit list.
,   e# Get number of digits M.
,   e# Turn into range [0 1 ... M-1].
f#  e# Map b^() over this range, computing all necessary powers of b.
W%  e# Reverse the list of powers.
.*  e# Multiply each digit by the corresponding power.

TSQL, 68 байт

DECLARE @ INT=123456,@z INT=10
DECLARE @l INT=1WHILE
@>0BEGIN PRINT @%@z*@l SELECT @/=@z,@l*=@z END

Python 2, 44 байти

lambda n,b:[n/b**i%b*b**i for i in range(n)]

Виходи від найменш значущих до більшості, з багатьма зайвими нулями.

Для виведення найзначнішого до найменшого:

f=lambda n,b,c=1:n*[1]and f(n/b,b,c*b)+[n%b*c]

Повторіть, неодноразово знімаючи цифри за nдопомогою divmod, збільшуючи масштаб множника значення місця c.

Ruby, 35 34 байт

Це порт відповіді Python XNOR в , але він друкує nраз так тестовий приклад 727 20гравюр 7, 320, 400і 724 0с. Пропозиції з гольфу вітаються.

Редагувати: 1 байт завдяки Йордану.

->n,b{n.times{|i|p n/b**i%b*b**i}}

Математика, 12 байт (неконкурентна)

Цікаво, чи створила Wolfram Research цю функцію, побачивши виклик ОП!

NumberExpand

Це було введено у версії 11.0 (серпень, 2016).

Математика, 46 байт

DiagonalMatrix@IntegerDigits@##~FromDigits~#2&

Пояснення:

В [1]: = IntegerDigits [123456,10]                                                

Вихід [1] = {1, 2, 3, 4, 5, 6}

В [2]: = DiagonalMatrix @ IntegerDigits [123456,10] // MatrixForm                   

Вихід [2] // MatrixForm = 1 0 0 0 0 0

                    0 2 0 0 0 0

                    0 0 3 0 0 0

                    0 0 0 4 0 0

                    0 0 0 0 5 0

                    0 0 0 0 0 6

У [3]: = DiagonalMatrix @ IntegerDigits [123456,10] ~ FromDigits ~ 10                   

Вихід [3] = {100000, 20000, 3000, 400, 50, 6}

Ракетка, 82 байти

(define(d n b[a'()])(if(< n 1)a(d(/ n b)b(cons(*(modulo(floor n)b)(length a))a))))

Я переможець (!)

JavaScript (ES7), 68 байт

n=>b=>(c=[...n.toString(b)]).map(d=>b**--p*parseInt(d,b),p=c.length)

Тест

Тестове використання Math.powдля сумісності браузера.

f=n=>b=>(c=[...n.toString(b)]).map(d=>Math.pow(b,--p)*parseInt(d,b),p=c.length)
document.write("<pre>"+
[ [ 123456, 10 ], [ 11, 2 ], [ 727, 20 ], [ 101, 10 ] ]
.map(c=>c+" => "+f(c[0])(c[1])).join`\n`)

JavaScript, 75 байт

(a,b)=>[...a.toString(b)].reverse().map(($,_)=>Math.pow(b,_)*parseInt($,b))

Просто для розваги :) Це може бути більше гольфу, але я не дуже впевнений, як.

ES7, 66 байт

Якщо ES7 дозволено, тоді:

(a,b)=>[...a.toString(b)].reverse().map(($,_)=>b**_*parseInt($,b))

О , 17 байт

jQb`S/l{#Qn^*p}d

Дві ноти:

1. Третій тестовий випадок не працює через помилку з базовим перетворенням. Див. Етап / о № 68 .

2. Це не працює в онлайн-перекладачі. bще не було реалізовано.

> <>, 28 байт

:&\
&*>:{:}$%:n$}-:0=?;ao$&:

Очікує, що вхідні значення будуть присутні у стеку при запуску програми.

Оскільки у <<> немає об'єктів списку, висновок подається у вигляді переліку розділених на новий рядок значень із "одиницями" у першому рядку. Приклад запуску:

Input: 
11 2

Ouput:
1
2
0
8

@OP, якщо це неприйнятний вихідний формат, дайте мені знати, і я відповідним чином відредагую відповідь.

PHP, 55 байт

Використовується кодування Windows-1252.

for($n=$argv[1];$d+$n-=$d=$n%$argv[2]**++$i;)echo$d,~Ó;

Виконати так ( -dдодано лише для естетики):

php -d error_reporting=30709 -r 'for($n=$argv[1];$d+$n-=$d=$n%$argv[2]**++$i;)echo$d,~Ó; echo"\n";' 123056 10

C #, 77 байт

IEnumerable _(int n,int b){int m=1;while(n>0){yield return n%b*m;n/=b;m*=b;}}

Насправді 17 байт (не конкуруючий)

;a¡;lrR(♀ⁿ@♂≈♀*;░

Спробуйте в Інтернеті!

Це подання є неконкурентним, оскільки ♀команда була додана після цього виклику.

Пояснення:

;a¡;lrR(♀ⁿ@♂≈♀*;░
                   initial stack: [b n] (b = base, n = number)
;                  dupe b
 a                 invert stack
  ¡                n as a base-b integer
   ;lrR            dupe, length, range, reverse
       (♀ⁿ         raise b to each power in range
          @♂≈      create list of integers from base-b string
             ♀*    pairwise multiplication
               ;░  filter out zeroes

Піп , 13 байт

Wa-:Pa%oo*:b

Це старого способу виявилося коротшим, ніж використання TBоператора базової конверсії. Код працює циклом, поки a(число) не буде 0. При кожній ітерації він друкує a%oі віднімає її a. oпопередньо ініціалізується 1і множиться на b(базу) кожну ітерацію. (Такий підхід зберігає всі елементи 0, а також додає провідні позиції 0.)

Спробуйте в Інтернеті!