Целочисленное преобразование в заданную базу

Question

Я хочу преобразовать любое положительное целое число в некоторую базу от 2 до 9. Выход на базе 2 должно быть:

0 -> enlist 0 
1 -> enlist 1 
31 -> 1 1 1 1 1 
62 -> 1 1 1 1 1 0 
63 -> 1 1 1 1 1 1 
64 -> 1 0 0 0 0 0 0 

Я разработал следующую функцию для этого

convertToBase: reverse {[x;base;result] 
    result,: `int$x mod base; 
    x-: last result; 
    x%: base; 
    $[x=0;result;.z.s[x;base;result]] 
}; 

//invocation 
convertToBase[62;2;()] 

Вопрос в том, есть ли встроенный Q функции сделать это эффективно? Если нет, то как можно оптимизировать решение выше?

Answer 1

Функция vs делает это, если левым аргументом является число.

Например:

2 vs 100 

вернется:

1 1 0 0 1 0 0 

В случае, если у вас есть 0 в качестве правого аргумента он, однако, вернуть пустой список, но вы можете оберните его условным, который выдает 0, в случае, если возвращаемое значение пуст.