Вызов:

На выбранном вами языке программирования примите целое число в качестве ввода в базе 10 и выведите его в нечетно-десятичной записи , также известной как база -10

Пример алгоритма:

Этот алгоритм взят из Википедии для преобразования базы 10 в любую отрицательную базу в VB.NET :

Function toNegativeBase(Number As Integer , base As Integer) As System.Collections.Generic.List(Of Integer)

    Dim digits As New System.Collections.Generic.List(Of Integer)
    while Number <> 0
        Dim remainder As Integer= Number Mod base
        Number = CInt(Number / base)

        if remainder < 0 then
            remainder += system.math.abs(base)
            Number+=1
        end if

        digits.Insert(0, remainder)
    end while

    return digits
end function

Очевидно, что вы можете использовать любой алгоритм, если он выполняет задачу

Пример входов / выходов:

Входные данные:

12

Выход:

192

Другой пример:

Входные данные:

2048

Выход:

18168

Правило:

Вы не должны использовать какие-либо встроенные методы, которые решают эту проблему, которые существуют в вашем языке программирования

Это код-гольф , поэтому выигрывает самый короткий код!

JavaScript (ES6), 51 45 37 байт

f=n=>n&&n%10+((k=n<0)+f(k-n/10|0))*10

Контрольные примеры

f=n=>n&&n%10+((k=n<0)+f(k-n/10|0))*10

console.log("12 -> " + f(12))
console.log("2048 -> " + f(2048))

Japt , 11 байт

_ì ìAn)¥U}a

Проверьте это онлайн!

объяснение

_ì ìAn)¥U}a  // Implicit: U = input integer, A = 10
_        }a  // Return the smallest non-negative integer Z that returns a truthy value
             // when run through this function:
 ì           //   Convert Z to a list of its base 10 digits.
   ìAn)      //   Interpret this as a list of base -10 digits and convert to a base 10 integer.
       ¥U    //   Return (the result == U).
             // Implicit: output result of last expression

Пакет, 82 байта

@set/a"d=%1%%10,n=%1/-10-(a=d>>4),d-=a*10
@if %n% neq 0 %0 %n% %d%%2
@echo %d%%2

Деление пакета усекается до нуля, поэтому, если остаток отрицательный, мне нужно добавить 1 (а также добавить 10 к остатку), чтобы компенсировать. Затем цифры накапливаются %2до тех пор, пока результат не станет равным нулю.

Желе , 9 байт

Dḅ-10=ð1#

Это обратная перестановка в преобразование негадецимального числа в целое.

Попробуйте онлайн!

Как это устроено

Dḅ-10=ð1#  Main link. Argument: n

      ð    Combine the links to the left into a chain and start a new, dyadic
           chain with left and right argument n.
       1#  Repeatedly execute the chain with left argument k = n, n + 1, ... and
           right argument n until the first match is found.
D          Convert k to decimal.
 ḅ-10      Convert the result from base -10 to integer.
     =     Compare the result with n.

Pyth - 9 байт

В этом есть плачущий смайлик.

fqQijT;_;

Тестирование .

Python 3, 35 байт

f=lambda n:n and n%10+f(0-n//10)*10

Python порт алгоритма Арно .

В качестве альтернативы, для 102 байт универсальной функции используется алгоритм исходного поста:

def f(n,b,r=0):
 if n:
  r,n=n%b,n//b
  if r<0:r+=abs(b);n+=1
  return f(n,b,r)+str(r)
 else:return ""

Желе , 10 байт

:⁵NµÐĿ%⁵ṚḌ

Попробуйте онлайн!

Фон

Преобразование неотрицательного списка из базы b в целое число может быть достигнуто путем сворачивания влево функцией x, y y bx + y . Преобразовать и целое число в базу b , мы должны просто обратить эту функцию в обратном направлении, то есть найти выражение для bx + y ↦ x, y .

В Python (и, соответственно, в Jelly) результат оператора по модулю всегда неотрицателен, поэтому (bx + y)% | b | = У .

Кроме того, целочисленное деление всегда округляется, проверяя, что если q = n / d и r = n% d , выполняется равенство n = qd + r . Если s - знак b , то (sx) | b | + y = bx + y , поэтому sx = (bx + y) / | b | и, следовательно, s ((bx + y) / | b |) = x.

Как это устроено

:⁵NµÐĿ%⁵ṚḌ  Main link. Argument: n

   µ        Combine the links to the left into a monadic chain.
    ÐĿ      Iteratively apply the chain until the results are no longer unique.
            Collect all unique results in an array.
:⁵            Divide the previous return value (initially n) by 10.
  N           Negate; multiply the result by -1.
      %⁵    Take all results modulo 10.
        Ṛ   Reverse the results.
         Ḍ  Convert from base 10 to integer.

SimpleTemplate , 147 байт

Это язык шаблонов, над которым я работал.
Ни в коем случае не для игры в гольф.
Ему даже не хватает полной базовой математики, но он позволяет писать крошечные фрагменты PHP напрямую.
Это работает вокруг этой проблемы.

{@setN argv.0}{@whileN}{@setM N}{@php$DATA[N]=($DATA[M]/-10)|0;$DATA[R]=$DATA[M]%-10}{@ifR is lower0}{@incby10 R}{@incN}{@/}{@setD R,D}{@/}{@echoD}

Это бросает кучу предупреждений.
Код «скомпилирован» в PHP.

Не вольфрам, с мусорным пробелом:

{@set no argv.0}
{@while no}
    {@set temp_no no}
    {@php $DATA["no"] = ($DATA["temp_no"] / -10) | 0}
    {@php $DATA["remainder"] = $DATA["temp_no"] % 10}

    {@if remainder is lower than 0}
        {@inc by 10 remainder}
        {@inc no}
    {@/}
    {@set digits remainder, digits}
{@/}
{@echo digits}

При необходимости можно добавить пошаговое объяснение, но я считаю, что оно довольно простое.

Отказ от ответственности :

Последний коммит, на момент написания этого ответа, был 2017-01-07 20:36 UTC + 00: 00.
Это работает для коммита 140e56ff38f45fa4fd40fd3ec382094e707b1bad от 2017-01-06 23:27 UTC + 00: 00.
Это версия, используемая для запуска этого ответа.

Код PHP доступен по адресу https://raw.githubusercontent.com/ismael-miguel/SimpleTemplate/140e56ff38f45fa4fd40fd3ec382094e707b1bad/SimpleTemplate.php

Я рекомендую запускать это с последней версией, но она хорошо работает для этого вопроса.

Как запустить?

Создайте файл с кодом и запустите его так:

<?php

    include 'path/to/SimpleTemplate.php';

    $template = new SimpleTemplate('<code>');

    $template->render(<number>);

Значение будет отображаться на экране.

PHP, 71 67 байт

for(;$n=&$argn;$n=$g-$n/10|0)$d=($r=$n%10)+10*($g=$r<0).$d;echo+$d;

или 62 байта для порта ответа Арнаулда :

function n($n){return$n?$n%10+(($k=$n<0)+f($k-$n/10|0))*10:0;}

Mathematica, 49 байтов

d@0="";d@n_:=d[-Floor[n/10]]<>ToString[n~Mod~10];

Определяет функцию, dпринимающую один целочисленный аргумент и возвращающую строку. Рекурсивный алгоритм - похож на тот же алгоритм в ответе Арно . Он работает и на отрицательных числах. (Возвращает пустую строку intsead, равную «0», если ввод равен 0.) Примечание для игроков в гольф Mathematica: для использования ±требуется один дополнительный набор скобок, и, следовательно, он не будет короче.

C 68 байт

main(f,a){f&&scanf("%d",&a);f=a?a%10+((f=a<0)+main(0,f-a/10))*10:0;}

Вместо вывода полученного числа программа просто возвращает его. Очевидно, что это ответ Арно , единственное отличие состоит в том, что, поскольку C не является интерпретируемым языком, я чувствовал, что должен сделать его полной программой, а не просто функцией.

Ржавчина, 88 байт

fn g(mut n:i32)->i32{let mut r=n%10;n/=-10;if r<0{r+=10;n+=1;}if n==0{r}else{r+g(n)*10}}

Это просто рекурсивная версия алгоритма, представленная в вопросе.